[vb真题]2017年福建高职招考本科技能第四场

第一题

题目

程序运行后，单击“当前月份”按钮，在 Label1 中显示当前月份；单击“退出”按钮，退出程序。

代码

#Private Sub Command1_Click()
Label1 = Month(Now) & "月"
#End Sub

#Private Sub Command2_Click()
End
#End Sub

第二题

题目

设定初始密码为“123456”，程序运行后，单击“确定”按钮，若密码正确，弹出新窗体显示“登录成功！”，若密码不正确，则弹出消息框显示“无法登录！”

代码

#Private Sub Command1_Click()
If Text1 = "123456" Then
Form1.Hide
Form2.Show
Else
MsgBox "无法登录", 0
End If
#End Sub

#Private Sub Command2_Click()
End
#End Sub

第三题

题目

程序运行后，在两个文本框中分别输入两个整数，根据单选按钮所选的运算类型执行对应的运算，运算结果显示在 Label3 中。

代码

#Dim a, b As Integer

#Private Sub Option1_Click()
Label3 = a + b
#End Sub

#Private Sub Option2_Click()
Label3 = a - b
#End Sub

#Private Sub Option3_Click()
Label3 = a * b
#End Sub

#Private Sub Option4_Click()
Label3 = a \ b
#End Sub

#Private Sub Text1_Change()
a = Val(Text1)
#End Sub

#Private Sub Text2_Change()
b = Val(Text2)
#End Sub

第四题

题目

程序运行后，在两个文本框中分别输入整数，单击“最大公约数” 按钮，实现求两个整数的最大公约数，结果显示在Label3中，结果示例如图所示。说明：如果一个整数同时是两个整数的约数，称这个整数为它们的“公约数”。

代码

a = Val(Text1)
b = Val(Text2)
For i = 1 To a
    If a Mod i = 0 And b Mod i = 0 Then Label3 = i
    Next