2020年计算机二级VB语言考试每日一练（7月10日）

2020年计算机二级VB语言考试每日一练（7月10日）

1.以下程序段：

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

2.以下程序段：

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

3.以下程序段：

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

4.以下程序段的作用是(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.以上说法都不正确

更多2020年计算机二级VB语言考试每日一练试题，请继续关注环球网校计算机二级频道。需要及时了解考试动态的小伙伴可“ 免费预约短信提醒”届时环球网校会及时为大家推送2020年计算机二级考试相关信息提醒。环球网校友情提示：对于想要参加计算机二级考试的小伙伴们，环球网校特地为您准备了计算机二级考试资料，如有需要请点击文章下方“免费下载>>>计算机二级考试资料”下载学习。