[vb真题]2017年福建高职招考本科技能第五场
第一题
题目
程序运行后,单击“当前日期”按钮,在 Label1 中显示当前日期。单击“退出”按钮,退出程序。
代码
#Private Sub Command1_Click()
Label1 = Day(Now) & "日"
#End Sub
#Private Sub Command2_Click()
End
#End Sub
第二题
题目
程序运行后,在第一个文本框中输入一个学生的课程成绩(百分制),单击“鉴定”按钮,当成绩大于等于90分时,在第二个文本框中显示“优秀”;当成绩小于90分但大于等于60分时,显示“合格”,当成绩小于60分时,显示“不合格”;单击“退出”按钮,退出程序。
代码
#Private Sub Command1_Click()
If Val(Text1) >= 90 Then
Text2 = "优秀"
ElseIf Val(Text1) < 60 Then
Text2 = "不合格"
Else
Text2 = "合格"
End If
#End Sub
#Private Sub Command2_Click()
End
#End Sub
第三题
题目
实现选课功能,界面如图 3-1 所示。程序运行后,单击“选课”按钮,实现将左边课程列表框中选中的课程添加到右边已选课程列表框中,如果要添加的课程在已选课程列表框中已经存在,则弹出消息框显示提示信息。
代码
#Private Sub Command1_Click()
If List2.ListCount = 0 Then
List2.AddItem List1.Text
Else
n = 0
For i = 0 To List2.ListCount - 1
If List2.List(i) = List1.Text Then
n = 1
MsgBox "已选过这门课"
End If
Next i
If n = 0 Then List2.AddItem List1.Text
End If
#End Sub
#Private Sub Form_Load()
List1.AddItem "Java"
List1.AddItem "VB 6.0"
List1.AddItem "C#"
List1.AddItem "网页制作"
List1.AddItem "软件测试"
List1.AddItem "ASP.net"
List1.AddItem "PHP"
List1.AddItem "HTML5"
#End Sub
第四题
题目
程序运行后,单击“平方逆序数”按钮,实现在窗体上显示所有 2 位的“平方逆序数”,要求每行显示一对逆序数,且小数在前,大数在后,结果如图 4-2 所示。说明:一个数和它的逆序数称为一对逆序数,如 12 和 21 就是一对逆序数。有些成对逆序数的平方也是一对逆序数,称为平方逆序数。如 12 的平方 144 和 21 的平方 441 也是一对逆序数,因此 12 和 21 是一对平方逆序数。
代码
For i = 10 To 99
If i <> StrReverse(i) Then
If i < Val(StrReverse(i)) And i ^ 2 = Val(StrReverse(Val(StrReverse(i)) ^ 2)) Then
Print i & "^2=" & i ^ 2, StrReverse(i) & "^2=" & Val(StrReverse(i)) ^ 2
End If
End If
Next
未经允许不得转载:Sansmall's Blog » [vb真题]2017年福建高职招考本科技能第五场
发表于2020-03-26 21:14