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

第一题

题目

程序运行后，在 Text1 中输入任意一个非负数，单击“求平方根” 按钮，实现在 Text2 中显示其平方根；单击“退出”按钮，退出程序。

代码

#Private Sub Command1_Click()
Text2 = Sqr(Text1)
#End Sub

#Private Sub Command2_Click()
End
#End Sub

第二题

题目

要求在文本框中输入的口令都以“*”显示。程序运行后，单击“校验口令”按钮，实现判断输入的口令是否等于“ABC”，判断的结果显示在 MsgBox 消息框中”。

代码

Private Sub Command1_Click()
If Text1 = "ABC" Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub

第三题

题目

程序运行后，单击按钮判断文本框中输入的数是否为质数，判断结果显示在Label2中。
说明：质数（也叫素数）是指一个数只能被1和它本身整除。
算法设计思路:循环判断输入的数能否被从2到该数（不包括该数）之间的任何一个整数整除，如果能整除则是质数，否则不是质数，提前退出循环。

代码

a = Val(Text1)
For i = 2 To a - 1
If a Mod i = 0 Then
Label2 = a & "不是质数"
Exit For
Else
Label2 = a & "是质数"
End If
Next i