2020年计算机二级VB语言考试每日一练（7月14日）
【摘要】 小编整理了2020年计算机二级VB语言考试每日一练（7月14日）的相关内容，下面一起来看看2020年计算机二级VB语言考试每日一练（7月14日）的具体内容吧，希望能够帮助到大家！
2020年计算机二级VB语言考试每日一练（7月14日）
2020年计算机二级VB语言考试每日一练（7月14日）
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
以上就是2020年计算机二级VB语言考试每日一练（7月14日）的内容，更多资讯请及时关注考必过网站，小编会第一时间发布考试最新消息，大家考试加油！
相关文章推荐
最新文章
- 1 2021年全国计算机等级考试二级C++模拟试题和答案四
- 2 2021年全国计算机等级考试二级C++模拟试题和答案三
- 3 2021年全国计算机等级考试二级C++模拟试题和答案二
- 4 2021年全国计算机等级考试二级C++模拟试题和答案一
- 5 2020年全国计算机二级C++复习知识点：运算符函数据与运算
- 6 2020年全国计算机二级C++复习知识点：典范运算符的重载（
- 7 2020年全国计算机二级MS Office复习知识点：考试内容要求
- 8 2020年全国计算机二级MS Office复习知识点：考试题型及分值
- 9 2020年计算机二级VB语言考试每日一练（8月7日）
- 10 2020年计算机二级Access考试每日一练（8月7日）