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

第一题

题目

程序运行后，单击“系统时间”按钮，Label1 显示当前系统时间；单击“退出”按钮，退出程序。

代码

#Private Sub Command1_Click()
Label1 = Time()
#End Sub

#Private Sub Command2_Click()
End
#End Sub

第二题

题目

程序运行后，在文本框中输入一个数，单击“判断结果”按钮，如果输入的数大于 60，则 Label1 显示 “超重，不能参赛！”，如果小于等于 60，Label1 显示“合格，可以参赛！”；单击“退出”按钮，退出程序。


`

代码

#Private Sub Command1_Click()
If Val(Text1) > 60 Then
Label1 = "超重，不能参赛！"
Else
Label1 = "合格，可以参赛！"
End If
#End Sub

#Private Sub Command2_Click()
End
#End Sub

第三题

题目

实现字体和字型设置效果，界面如图所示。程序运行后，实现对文本框中内容的字体和字型的设置。

代码

#Private Sub Check1_Click()
If Text1.FontBold = False Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
#End Sub

#Private Sub Check2_Click()
If Text1.FontItalic = False Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
#End Sub

#Private Sub Option1_Click()
Text1.Font = "黑体"
#End Sub

#Private Sub Option2_Click()
Text1.Font = "宋体"
#End Sub

第四题

题目

程序运行后，单击按钮，实现在窗体上显示所有的“玫瑰花数”，结果如图所示。说明：如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如: 1634=1^4+6^4+3^4+4^4,1634是一个玫瑰花数。

代码

For i = 1000 To 9999
a = i Mod 10
b = i \ 10 Mod 10
c = i \ 100 Mod 10
d = i \ 1000
If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i Then Print i
Next i