【VB上机试题及答案】在计算机编程的学习过程中，Visual Basic（简称VB）作为一门较为基础的编程语言，常被用于教学和实践。为了帮助学习者更好地掌握VB的语法结构和程序设计方法，以下是一些常见的VB上机考试题目及其参考答案，供同学们练习与参考。
一、题目：输入两个数，求它们的和并输出
题目描述：
编写一个VB程序，要求用户输入两个数字，计算它们的和，并将结果输出到窗体或消息框中。
参考答案：
```vb
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim sum As Integer
a = InputBox("请输入第一个数")
b = InputBox("请输入第二个数")
sum = a + b
MsgBox "两数之和为：" & sum
End Sub
```
说明：
本程序使用 `InputBox` 获取用户输入，通过 `MsgBox` 显示结果。适合初学者练习基本的输入输出操作。
二、题目：判断一个数是否为偶数
题目描述：
编写一个VB程序，让用户输入一个整数，判断该数是否为偶数，并输出相应的信息。
参考答案：
```vb
Private Sub Command1_Click()
Dim num As Integer
num = InputBox("请输入一个整数")
If num Mod 2 = 0 Then
MsgBox "这是一个偶数"
Else
MsgBox "这是一个奇数"
End If
End Sub
```
说明：
利用 `Mod` 运算符判断余数是否为零，从而判断是否为偶数。
三、题目：计算1到100之间所有偶数的和
题目描述：
编写一个VB程序，计算1到100之间所有偶数的总和，并输出结果。
参考答案：
```vb
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
For i = 2 To 100 Step 2
sum = sum + i
Next i
MsgBox "1到100之间所有偶数的和为：" & sum
End Sub
```
说明：
使用 `For...Next` 循环，步长设为2，直接遍历所有偶数，提高效率。
四、题目：实现一个简单的登录验证功能
题目描述：
设计一个简单的登录界面，用户输入用户名和密码，若正确则显示“登录成功”，否则提示“用户名或密码错误”。
参考答案：
```vb
Private Sub Command1_Click()
Dim username As String
Dim password As String
username = Text1.Text
password = Text2.Text
If username = "admin" And password = "123456" Then
MsgBox "登录成功"
Else
MsgBox "用户名或密码错误"
End If
End Sub
```
说明：
此题涉及控件的使用，如 `TextBox` 和 `CommandButton`，适合进一步了解VB的图形界面设计。
五、题目：数组的使用——查找最大值
题目描述：
定义一个包含若干整数的数组，找出其中的最大值并输出。
参考答案：
```vb
Private Sub Command1_Click()
Dim arr(5) As Integer
Dim i As Integer
Dim max As Integer
arr(0) = 10
arr(1) = 20
arr(2) = 30
arr(3) = 5
arr(4) = 15
arr(5) = 25
max = arr(0)
For i = 1 To 5
If arr(i) > max Then
max = arr(i)
End If
Next i
MsgBox "数组中的最大值是：" & max
End Sub
```
说明：
通过循环遍历数组元素，比较大小，找到最大值。
以上就是一些常见的VB上机试题及参考答案。通过这些练习，可以加深对VB语言的理解，提升实际编程能力。建议在学习过程中多动手实践，遇到问题时多查阅资料或请教老师，逐步提高自己的编程水平。
