達(dá)標(biāo)題目源代碼
推薦 + 挑錯(cuò) + 收藏(0) + 用戶評論（0）
達(dá)標(biāo)題目源代碼
A類題源代碼
1、?比較大小：根據(jù)輸入文字大小，在中間的標(biāo)簽中顯示大于、小于或等于符號(hào)
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是否為真如果為真執(zhí)行下面程序
?? Label1.Caption = "<"
ElseIf x > y Then
?? Label1.Caption = ">"
Else
?? Label1.Caption = "="
?End If
End Sub
2、?計(jì)算1到100的和：點(diǎn)計(jì)算按鈕顯示出結(jié)果
Private Sub Command1_Click()
For i = 1 To 100
s = s + i
Next
Label2.Caption = s
End Sub
3、?三個(gè)文本框，在前兩上文本框中輸入數(shù)字，點(diǎn)“加法運(yùn)算”按鈕，顯示出結(jié)果。
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、?兩個(gè)文本框，在第一個(gè)文本框輸入數(shù)字，點(diǎn)“計(jì)算”按鈕，顯示“這是一個(gè)奇數(shù)”或“這是一個(gè)偶數(shù)”
Private Sub Command1_Click()
Dim int1 As Integer, int2 As Integer
int1 = Val(Text1.Text)
int2 = int1 Mod 2????????????????????????? '整除2取余數(shù)
If int2 = 0 Then??????????????????????????? '判斷是否為偶數(shù)
Text2.Text = "這是一個(gè)偶數(shù)!"
Else
Text2.Text = "這是一個(gè)奇數(shù)!"
End If
End Sub
5、?在兩個(gè)文本框中輸入數(shù)字，點(diǎn)“計(jì)算”按鈕，顯示出運(yùn)算值和余數(shù)。
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、?要求在窗體上點(diǎn)擊后顯示出一個(gè)倒立的直角三角形圖案
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、?小車運(yùn)動(dòng)：點(diǎn)前進(jìn)按鈕，小車往前進(jìn)，在紅綠燈處停止；點(diǎn)后退按鈕，小車后退到起點(diǎn)停止。
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
非常好我支持^.^
(0) 0%
不好我反對
(0) 0%