[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