達(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

相關(guān)電子資料下載

• Makefile簡(jiǎn)介和使用方法 530
• 當(dāng)一名高職生成為開源代碼頂級(jí)貢獻(xiàn)者 111
• git命令的基本使用 357
• 分享一套生產(chǎn)管理MES系統(tǒng)源碼，可以直接拿來(lái)搞錢的好項(xiàng)目 140
• C/c++源代碼qt軟件 svn版本管理開發(fā)如何防泄密？ 48
• 為什么安秉信息的源代碼防泄密軟件這么穩(wěn)定？ 76
• C語(yǔ)言必備知識(shí)編譯預(yù)處理 419
• 非常可靠的c#+svn或git服務(wù)器源代碼防泄密方案 全解析 82
• 極狐GitLab—新一代源代碼管理倉(cāng)庫(kù) 152
• 能夠生成java文檔注釋的命令 140