[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
未经允许不得转载:Sansmall's Blog » [vb真题]2017年福建高职招考本科技能第四场
评论列表