2018年12月计算机二级VB考前提分练习题(3)

全国计算机等级考试NCRE考试网 鲤鱼小编 更新时间:2018-11-27

2018年12月计算机二级考试就要来临了,鲤鱼网为各位考生准备了计算机二级VB考前提分练习题(3),请大家自行练习。祝愿大家都能考出好成绩!

 

1.以下程序段运行的结果为(B)()

 

Private Sub Form_Click( )

 

MyDate = #7/21/1997#

 

Print Format(MyDate, "m/d/yy")

 

Print Format(MyDate,"yyyymdd")

 

End Sub

 

A.7/21/97 1997721

 

B.7-21-97 1997721

 

C.97/7/21 1997721

 

D.7/21/97 97721

 

2.以下程序段运行的结果为(B)()

 

Private Sub Form_Click( )

 

MyTime = #9:21:30 PM#

 

MyDate = #7/21/1997#

 

Print Tab(2); Format(MyDate, "mmmm-yy")

 

Print Tab(2); Format(MyTime, "hh:mm:ss A/P")

 

End Sub

 

A.July-97 9:21:30 P

 

B.July-97 09:21:30 P

 

C.07-97 9:21:30 P

 

D.July-97 9:21:30

 

3.以下程序段运行的结果为(C)()

 

Private Sub Form_Click( )

 

MyDate = #7/21/1997#

 

Print Format(MyDate, "dddd,mmmm,dd,yyyy")

 

End Sub

 

A.21,07,1997

 

B.21,07,21,1997

 

C.Monday,July,21,1997

 

D.Monday,07,21,1997

 

4.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

 

Private Sub Text1_LostFocus( )

 

If Not IsNumeric(Text1) Then

 

MsgBox "帐号有非数字字符错误"

 

Text1.Text = ""

 

Text1.SetFocus

 

else

 

MsgBox "帐号正确"

 

End If

 

End Sub

 

当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)()

 

A.显示对话框,提示信息为"帐号正确"

 

B.显示对话框,提示信息为"帐号有非数字字符错误"

 

C.程序出错

 

D.没有任何提示

 

5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

 

Private Sub Text1_LostFocus( )

 

If Not IsNumeric(Text1) Then

 

MsgBox "帐号有非数字字符错误"

 

Text1.Text = ""

 

Text1.SetFocus

 

else

 

MsgBox "帐号正确"

 

End If

 

End Sub

 

当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)()

 

A.显示对话框,提示信息为"帐号正确"

 

B.显示对话框,提示信息为"帐号有非数字字符错误"

 

C.程序出错

 

D.没有任何提示

 

6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

 

Private Sub Command1_Click( )

 

Dim I As Integer

 

If Text1.Text <> "Gong" Then

 

I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

 

If I <> 4 Then

 

End

 

Else

 

Text1.Text = ""

 

Text1.SetFocus

 

End If

 

Else

 

MsgBox "密码帐号正确!"

 

End If

 

End Sub

 

若在text1中输入字符串"Gong",则程序运行结果为(A)()

 

A.显示对话框,提示"密码帐号正确!"

 

B.显示对话框,提示"密码错误"

 

C.程序出错

 

D.没有任何提示

 

7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

 

Private Sub Command1_Click( )

 

Dim I As Integer

 

If Text1.Text <> "Gong" Then

 

I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

 

If I <>4 Then

 

End

 

Else

 

Text1.Text = ""

 

Text1.SetFocus

 

End If

 

Else

 

MsgBox "密码帐号正确!"

 

End If

 

End Sub

 

若在text1中输入字符串"gong",则程序运行结果为(B)()

 

A.显示对话框,提示"密码帐号正确!"

 

B.显示对话框,提示"密码错误"

 

C.程序出错

 

D.没有任何提示

 

8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

 

Private Sub Command1_Click( )

 

Dim I As Integer

 

If Text1.Text <> "Gong" Then

 

I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")

 

If I <> 4 Then

 

End

 

Else

 

Text1.Text = ""

 

Text1.SetFocus

 

End If

 

Else

 

MsgBox "密码帐号正确!"

 

End If

 

End Sub

 

若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)()

 

A.显示对话框中有“重试”按钮

 

B.显示对话框中有“确定”按钮

 

C.显示对话框中有“是”按钮

 

D.以上说法都不正确

 

9.在窗体中建立三个文本框,名称分别为text1text2text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:

 

Private Sub Command1_Click( )

 

Dim x!, y!, z!, t!

 

x = Text1

 

y = Text2

 

z = Text3

 

If x < y Then

 

t = x

 

x = y

 

y = t

 

End If

 

If y < z Then

 

t = y

 

y = z

 

z = t

 

If x< y Then

 

t = x

 

x = y

 

y = t

 

End If

 

End If

 

Label1.Caption = x & "," & y & "," & z

 

End Sub

 

当在文本框text1text2 text3 中分别输入538,则标签显示的结果为(C)()

 

A.3,5,8

 

B.5,3,8 C.8,5,3

 

D.3.8.5

 

10.以下程序段:

 

Private Sub Form_Load( )

 

Dim Nop As Integer, Op As String * 1

 

Num1 = 3

 

Num2 = 2

 

Nop = val(Inputbox("请输入1-4之间的整数"))

 

Select Case Nop

 

Case 1

 

Op = "+"

 

Result = Num1 + Num2

 

Case 2

 

Op = "-"

 

Result = Num1 - Num2

 

Case 3

 

Op = "×"

 

Result = Num1 * Num2

 

Case 4

 

Op = "÷"

 

Result = Num1 / Num2

 

End Select

 

Label1= Num1 & Op & Num2 & "=" & Result

 

End Sub

 

窗体运行后,输入1,则label1的标题显示结果为(A)()

 

A.3+2=5

 

B.3-2=1

 

C.3×2=6

 

D.3÷2=1.5

 

11.以下程序段:

 

Private Sub Form_Load( )

 

Dim Nop As Integer, Op As String * 1

 

Num1 = 3

 

Num2 = 2

 

Nop = val(Inputbox("请输入1-4之间的整数"))

 

Select Case Nop

 

Case 1

 

Op = "+"

 

Result = Num1 + Num2

 

Case 2

 

Op = "-"

 

Result = Num1 - Num2

 

Case 3

 

Op = "×"

 

Result = Num1 * Num2

 

Case 4

 

Op = "÷"

 

Result = Num1 / Num2

 

End Select

 

Label1= Num1 & Op & Num2 & "=" & Result

 

End Sub

 

窗体运行后,输入2,则label1的标题显示结果为(B)()

 

A.3+2=5

 

B.3-2=1

 

C.3×2=6

 

D.3÷2=1.5

 

12.以下程序段:

 

Private Sub Form_Load( )

 

Dim Nop As Integer, Op As String * 1

 

Num1 = 3

 

Num2 = 2

 

Nop = val(Inputbox("请输入1-4之间的整数"))

 

Select Case Nop

 

Case 1

 

Op = "+"

 

Result = Num1 + Num2

 

Case 2

 

Op = "-"

 

Result = Num1 - Num2

 

Case 3

 

Op = "×"

 

Result = Num1 * Num2

 

Case 4

 

Op = "÷"

 

Result = Num1 / Num2

 

End Select

 

Label1= Num1 & Op & Num2 & "=" & Result

 

End Sub

 

窗体运行后,输入3,则label1的标题显示结果为(C)()

 

A.3+2=5

 

B.3-2=1

 

C.3×2=6

 

D.3÷2=1.5

 

13.以下程序段:

 

Private Sub Form_Load( )

 

Dim Nop As Integer, Op As String * 1

 

Num1 = 3

 

Num2 = 2

 

Nop = val(Inputbox("请输入1-4之间的整数"))

 

Select Case Nop

 

Case 1

 

Op = "+"

 

Result = Num1 + Num2

 

Case 2

 

Op = "-"

 

Result = Num1 - Num2

 

Case 3

 

Op = "×"

 

Result = Num1 * Num2

 

Case 4

 

Op = "÷"

 

Result = Num1 / Num2

 

End Select

 

Label1= Num1 & Op & Num2 & "=" & Result

 

End Sub

 

窗体运行后,输入4,则label1的标题显示结果为(D)()

 

A.3+2=5

 

B.3-2=1

 

C.3×2=6

 

D.3÷2=1.5

 

14.以下程序段的作用是(A)()

 

Private Sub Picture1_Click( )

 

Dim asci As Integer, i As Integer

 

i = 0

 

For asci = 32 To 126

 

Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;

 

i = i + 1

 

If i = 7 Then i = 0: Picture1.Print

 

Next asci

 

A.打印ASCII码表,一行7个表达式

 

B.打印九九乘法表,一行7个表达式

 

C.打印ASCII码表,一行8个表达式

 

D.以上说法都不正确

 

15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。

 

Private Sub Command1_Click( )

 

Dim x, n

 

x = Val(Text1)

 

n = 0

 

Do While x<26

 

x = x * (1 + 0.008)

 

n = n + 1

 

Loop

 

Text2 = Str(n)

 

End Sub

 

16.以下程序的作用是(B)()

 

For i = 1 To 9

 

For j = 1 To 9

 

se = i & "×" & j & "=" & i * j

 

Picture1.Print Tab((j - 1) * 9 + 1); se;

 

Next j

 

Picture1.Print

 

Next i

 

A.打印ASCII码表

 

B.打印九九乘法表

 

C.打印加法表

 

D.以上说法都不正确

 

17.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e

 

Private Sub Form_Click( )

 

Dim I%, n&, t!, e!

 

E = 0 ' 存放累加和结果

 

I = 0 ' 计数器

 

n = 1 ' 存放阶乘的值

 

t = 1 ' 级数第I项值

 

Do While t>0.00001

 

e = e + t

 

I = I + 1

 

n = n * I

 

t = 1 / n

 

Loop

 

Print "计算了 "; I; " 项的和是 "; e

 

End Sub

 

18.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e

 

Private Sub Form_Click( )

 

Dim I%, n&, t!, e!

 

E = 0 ' 存放累加和结果

 

I = 0 ' 计数器

 

n = 1 ' 存放阶乘的值

 

t = 1 ' 级数第I项值

 

Do While t>0.00001

 

e = e + t

 

I = I + 1

 

n = n * I

 

t = 1 / n

 

Loop

 

Print "计算了 "; I; " 项的和是 "; e

 

End Sub

 

19.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e

 

Private Sub Form_Click( )

 

Dim I%, n&, t!, e!

 

E = 0 ' 存放累加和结果

 

I = 0 ' 计数器

 

n = 1 ' 存放阶乘的值

 

t = 1 ' 级数第I项值

 

Do While t>0.00001

 

e = e + t

 

I = I + 1

 

n = n * I

 

t = 1 / n

 

Loop

 

Print "计算了 "; I; "项的和是"; e

 

End Sub

 

20.以下程序是求最大公约数和最小公倍数的程序。

 

Private Sub Form_Click( )

 

Dim m1, n1, m, n, r As Integer

 

n1 = InputBox("输入自然数n", "输入数")

 

m1 = InputBox("输入自然数m", "输入数")

 

n = n1

 

m = m1

 

If m < n Then

 

t = m: m = n: n = t

 

End If

 

r = m Mod n

 

Do While (r<>0)

 

m = n

 

n = r

 

r = m Mod n

 

Loop

 

Print "最大公约数=", n

 

Print "最小公倍数= ", m1 * n1 / n

 

End Sub

相关推荐:

2018年12月计算机二级MSOffice考前冲刺题(5)

2018年12月计算机二级VB考前提分练习题(2)

专题汇总