vb程序设计测试题

Private Sub Command1_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

If n < 18 Then

Print n; "少年"

ElseIf n >= 18 And n < 45 Then

Print n; "青年"

ElseIf n >= 45 And n <= 59 Then

Print n; "中年"

ElseIf n > 59 Then

Print n; "老年"

Else

Print n; "输入年龄错误"

End If

End Sub

Private Sub Command2_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

Select Case n

Case Is < 18

Print n; "少年"

Case Is > 59

Print n; "老年"

Case Is >= 18

Select Case n

Case Is < 45

Print n; "青年"

Case Else

Print n; "中年"

End Select

Case Else

Print n; "输入年龄错误"

End Select

End Sub

Private Sub Form_Load()

MeCaption = "年龄段划分"

Command1Caption = "使用if"

Command2Caption = "使用select"

End Sub

1

Private Sub Form_Load()

List1Clear

List1AddItem ""大学计算机基础""

List1AddItem ""VB程序设计""

List1AddItem ""数据库技术与应用""

List1AddItem ""C程序设计""

List1AddItem ""多媒体技术""

List1AddItem ""硬件技术基础""

List1AddItem ""网络技术与应用""

List1AddItem ""WEB程序设计""

End Sub

Private Sub List1_Click()

If List2ListCount >= 5 Then

MsgBox ""超过5门课程，不能再选！""

Exit Sub

Else

List2AddItem List1Text

List1RemoveItem List1ListIndex

End If

End Sub

2

Private Sub Command1_Click()

Dim N As Long, Flags As Boolean

N = Val(Text1Text)

Flags = True

For i = 2 To Sqr(N)

If N Mod i = 0 Then

Flags = False

Exit For

End If

Next

MsgBox N & IIf(Flags, "", "不") & "是一个素数"

End Sub

Option Explicit

Private Sub Command1_Click()

Label2Caption = "Hello"

Command1Enabled = False

Command2Enabled = True

MeCaption = "单击“隐藏”按钮隐藏文字"

End Sub

Private Sub Command2_Click()

Label2Caption = ""

Command1Enabled = True

Command2Enabled = False

MeCaption = "单击“显示”按钮显示文字"

End Sub

Private Sub Form_Click()

Label1FontName = "新宋体"

Label1FontSize = 15

Label1ForeColor = RGB(255, 0, 0)

Label1Caption = "Visual Basic 程序设计"

MeCaption = "VB程序1"

End Sub

Private Sub Form_Load()

Label1Caption = ""

Label2Caption = ""

Command2Enabled = False

MeCaption = "单击“显示”按钮显示文字"

End Sub

以上就是关于vb程序设计测试题全部的内容，包括:vb程序设计测试题、两道vb编程题、VB设计题，，求教等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！