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