m=m-10;
–m=n;
m=m+n;
8=n;
Dim i As Integer, a As Integer
i=6
a=6
If i <6 Then
a = a +4
Else
a = a -4
End If
Private Sub Command1_Click()
a = 0
For i = 8 To 100 Step 8
a = a + 1
Next i
End Sub
Dim x As Integer
x=2
Do while x<=63
x=(x+1)*(x-1)
Loop
输入一个成绩,判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
请用VB程序实现上面的内容,算出人数并在窗体上列出所有编号。
界面设计参考如下: