①界面设计②分析问题③编写代码④保存文件⑤调试与运行⑥生成可执行文件
x=3
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
Private Sub Command1_Click()
Dim x, y, t As Integer
x = 10
y = 30
If x < y Then
t =
x =
y =
End If
Label1.Caption = Str(x)
Label2.Caption = Str(y)
End Sub
Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s =
For i = 1 ToStep 1
s =
Next i
Print "s="; s
End Sub
要求,学生成绩由文本框(Text1)输入,结果显示在文本框(Text2)中。评分标准如下:
90≤成绩≤100 A
80≤成绩<90 B
60≤成绩<80 C
0≤成绩<60 E
其余成绩 无效 文本框(Text2)中显示“输入有误,请检查输入的成绩”