2012VBÁ·Ï°Ìâ

2012VBÀíÂÛÁ·Ï°Ìâ

(1) Private Sub Form_Load() (2) End Sub

Private Sub Command1_Click() Text1.Text = \End Sub

Private Sub Command2_Click() If n < 0 Then n = -n: Text1.Text = \ While n <> 0

Text1.Text = (3) (4) Wend End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) A¡¢Dim n As Byte B¡¢Dim n As Integer C¡¢Dim n As String D¡¢Public n As Byte (2) A¡¢Text1.Locked = True B¡¢Text1.Locked = False C¡¢Text1.Visible = True (3) A¡¢n/10 & Text1.Text C¡¢Text1.Text & n/10 (4) A¡¢n = n \\ 10

D¡¢Text1.Visible = False B¡¢n Mod 10 & Text1.Text

D¡¢Text1.Text & n Mod 10

B¡¢n = n / 10

C¡¢n = n Mod 10 D¡¢n = n - 10

ÊÔÌâ3

¡¾³ÌÐò¡¿

Private Sub Command1_Click()

Dim a As Integer, b As Integer, x As Long, i As Integer On Error GoTo qq a = InputBox(\ b = InputBox(\ x = a

While Not (a Mod x = 0 And b Mod x = 0) x = x - 1 Wend Print x Exit Sub

qq: MsgBox \ÇëÖØÊä\ Exit Sub

13

End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1)µ¥»÷Command1ºó£¬ÒÀ´ÎÊäÈë8¡¢6ºó£¬ÏÔʾ£º A¡¢2 B¡¢24 C¡¢14 D¡¢1 (2)µ¥»÷Command1ºó£¬ÒÀ´ÎÊäÈë28¡¢16ºó£¬ÏÔʾ£º A¡¢44 B¡¢1 C¡¢112 D¡¢4 (3)µ¥»÷Command1ºó£¬ÒÀ´ÎÊäÈë3¡¢5ºó£¬ÏÔʾ£º

A¡¢15 B¡¢1 C¡¢8 D¡¢125 (4)µ¥»÷Command1ºó£¬ÒÀ´ÎÊäÈë4¡¢32987ºó£¬ÏÔʾ£º A¡¢¿Õ°× B¡¢1 C¡¢0 D¡¢ÇëÖØÊä

ÊÔÌâ4

¡¾³ÌÐò¡¿ Dim m As Integer

Private Sub Command1_Click()

Dim a As Integer, i As Integer, f As Integer a = InputBox(\ f = 1: i = 2 Do While i <= a / 2

If a Mod i = 0 Then f = f + i i = i + 1 m = m + 1 Loop

Form1.Cls: Print f End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) ÔËÐÐʱµÚ1´Îµ¥»÷Command1ÊäÈë7ºó£¬´°ÌåÉϵÄÏÔʾ½á¹ûΪ£º A¡¢1 B¡¢3 C¡¢5 D¡¢7

(2) ÔËÐÐʱµÚ2´Îµ¥»÷Command1ÊäÈë8ºó£¬´°ÌåÉϵÄÏÔʾ½á¹ûΪ£º A¡¢2 A¡¢3

B¡¢7 C¡¢8 D¡¢6 B¡¢5 C¡¢7 D¡¢4

(3) ÔËÐÐʱµÚ3´Îµ¥»÷Command1ÊäÈë9ºó£¬´°ÌåÉϵÄÏÔʾ½á¹ûΪ£º

(4) ÔËÐÐʱ3´Îµ¥»÷Command1¡¢²¢ÒÀ´ÎÊäÈë7¡¢8¡¢9ºó£¬±äÁ¿mµÄµ±Ç°ÖµÎª£º A¡¢6 B¡¢7 C¡¢8 D¡¢3

ÊÔÌâ5

¡¾³ÌÐò¡¿

Private Sub Form_click()

Dim n As Integer, i As Integer, k As Integer, j As Integer

14

2012VBÀíÂÛÁ·Ï°Ìâ

Do

n = InputBox(\ÇëÊäÈë1¸ö1ÖÁ9Ö®¼äµÄÕûÊý\ Loop Until 0 < n And n < 10 k = 10: j = 1 For i = 1 To n

Print Space(k); String(j, Trim(Str(i))) If i <= n / 2 Then k = k - 1: j = j + 2 Else

k = k + 1: j = j - 2 End If Next i

End Sub

(1) ÈôÔËÐÐʱÊäÈënֵΪ2£¬´°ÌåÉϵÄÏÔʾ½á¹ûΪ£º A¡¢ 1

B¡¢ 1 C¡¢ 1 D¡¢ 2

121 222 123 121 (2) ÈôÔËÐÐʱÊäÈënֵΪ3£¬´°ÌåÉϵÄÏÔʾ½á¹ûΪ£º A¡¢ 1

B¡¢ 1 C¡¢ 1 D¡¢ 1

222 123 12 222 33333 12321 123 3 (3) ÈôÔËÐÐʱÊäÈënֵΪ4£¬´°ÌåÉϵÄÏÔʾ½á¹ûΪ£º A¡¢ 1

B¡¢ 1 C¡¢ 1 D¡¢ 1

222 222 123 222 3 33333 12345 33333 444 444 1234567 4444444

ÊÔÌâ17

¡¾³ÌÐò¡¿

Private Sub Text1_KeyPress(K As Integer) If K < Asc(\ K = 0 Else

Label1.Caption = Chr(K) + Label1.Caption End If End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) Text1»ñµÃÊäÈë½¹µãºó£¬ÒÀ´Î°´Êý×Ö¼ü1¡¢3¡¢5£¬Label1ÏÔʾ£º A¡¢135 B¡¢531 C¡¢9

D¡¢5

(2) Text1»ñµÃÊäÈë½¹µãºó£¬ÒÀ´Î°´Êý×Ö¼ü2¡¢7¡¢9£¬Label1ÏÔʾ£º

15

A¡¢972 B¡¢279 C¡¢297 A¡¢-532

B¡¢-235 C¡¢532

D¡¢18 D¡¢235 D¡¢521

(3) Text1»ñµÃÊäÈë½¹µãºó£¬ÒÀ´Î°´ -¡¢2¡¢3¡¢5¼ü£¬Label1ÏÔʾ£º (4) Text1»ñµÃÊäÈë½¹µãºó£¬ÒÀ´Î°´ 1¡¢2¡¢a¡¢5¼ü£¬Label1ÏÔʾ£º A¡¢¿Õ°× B¡¢12a5 C¡¢5a21

ÊÔÌâ18

¡¾³ÌÐò˵Ã÷¡¿µ¥»÷Command1ºó¼ÆËãa?x£«b?x£«cµÄÖµ²¢ÏÔʾ£¬½çÃæÉè¼ÆÒÔ¼°ÔËÐÐʱµÄÏÔʾ·Ö±ðÈçÏÂͼ×ó¡¢Í¼ÓÒËùʾ¡£ÒªÇóÔÚÎı¾¿òÖв»¿ÉÊäÈëÓ¢ÎÄ×Öĸ¡£

2

¡¾³ÌÐò¡¿

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, x As Single, y As Single a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text: x = Text1(3).Text y = a * x * x + b * x + c Label3.Caption = y End Sub

Private Sub Text1_ (1) (Index As Integer, (2) ) Select Case (3) Case \ K = 0

Case (4) K = 0 End Select End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿ (1) A¡¢keyPress

B¡¢change C¡¢keyDown D¡¢keyup B¡¢Value C¡¢Text() D¡¢k As Integer B¡¢Chr(K) C¡¢Asc(K) D¡¢Asc(KeyAscii)

C¡¢\

D¡¢'a'...'z'

(2) A¡¢keyAscii As Integer

(3) A¡¢Chr(KeyAscii)

(4) A¡¢a To z B¡¢'a' To 'z'

ÊÔÌâ19

¡¾³ÌÐò¡¿

Private Sub Form_Load()

16