VB程序调试，有一个程序，调试只是有错误，请高手指点，谢谢

2024-12-15 19:52:47

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim x As Integer, y As String
x = Val(Text1.Text)
If (x = 1) Or (x = 3) Then
y = "讲计算机课"
ElseIf (x = 2) Or (x = 4) Then
y = "讲程序设计课"
ElseIf (x = 5) Then
y = "进修英语"
ElseIf (x = 6) Then
y = "政治学习"
ElseIf (x = 0) Then
y = "休息"
Else
Unload Form1
End If
Label1.Caption = "今天的工作安排是：" & y
我创建了一个命令按钮（单击事件），一个文本框(输入数字)，和一个标签（用来显示信息)
你试试吧！！！