达标题目源代码

达标题目源代码
A类题源代码
1、 比较大小：根据输入文字大小，在中间的标签中显示大于、小于或等于符号
Private Sub Command1_Click()
Dim x  As Integer, y As Integer
x = Val(Text1.Text): y = Val(Text2.Text)
If x < y Then            '判断x>y是否为真如果为真执行下面程序
   Label1.Caption = "<"
ElseIf x > y Then
   Label1.Caption = ">"
Else
   Label1.Caption = "="
 End If
End Sub
2、 计算1到100的和：点计算按钮显示出结果
Private Sub Command1_Click()
For i = 1 To 100
s = s + i
Next
Label2.Caption = s
End Sub
3、 三个文本框，在前两上文本框中输入数字，点“加法运算”按钮，显示出结果。
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command3_Click()
End
End Sub
4、 两个文本框，在第一个文本框输入数字，点“计算”按钮，显示“这是一个奇数”或“这是一个偶数”
Private Sub Command1_Click()
Dim int1 As Integer, int2 As Integer
int1 = Val(Text1.Text)
int2 = int1 Mod 2                          '整除2取余数
If int2 = 0 Then                            '判断是否为偶数
Text2.Text = "这是一个偶数!"
Else
Text2.Text = "这是一个奇数!"
End If

End Sub
5、 在两个文本框中输入数字，点“计算”按钮，显示出运算值和余数。
Private Sub Command1_Click()
a = Fix(Text1.Text / Text2.Text)
b = Text1.Text - Text2.Text * a
Label3.Caption = a
Label5.Caption = b
End Sub
6、 要求在窗体上点击后显示出一个倒立的直角三角形图案
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 5
  For j = 1 To i
    Print "*";
  Next j
  Print
Next i
End Sub
B类题源代码
1、 小车运动：点前进按钮，小车往前进，在红绿灯处停止；点后退按钮，小车后退到起点停止。
Private Sub Command1_Click()
While image1.Left <= 3300
image1.Left = image1.Left + 1
Wend
image2.Visible = True
End Sub

Private Sub Command2_Click()
While image1.Left >= 0
image1.Left = image1.Left - 1
Wend
End Sub

Private Sub Form_Load()
image1.Left = 0
End Sub