ͼ3

Private Sub Command1_Click() Dim s1 As String, s2 As String s1 = s2 =

For i = £¨10£©

s3 = s3 + Mid(s1, i, 1) + Mid(s2, i, 1) Next i s3 End Sub

10£®ÏÂÁгÌÐòµÄ¹¦ÄÜÊǽ«Êý×éÖеÄÆæÊýÏà¼Ó¡£¸ø¶¨µÄ³ÌÐò²»ÍêÕû£¬½«³ÌÐò²¹³äÍêÕû¡£

Option Base 1

Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n

n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) If £¨11£© Then Total = Total + n(k) End If Next k Print Total End Sub

11£®´°ÌåÉÏÓÐÈý¸öÎı¾¿òText1¿Ø¼þÊý×飬Á½¸ö°´Å¥Command1ºÍCommand2£¬Ò»¸öͼƬ¿òPic1¡£³ÌÐò¹¦ÄÜÊǽâÒ»¸öÒ»Ôª

2¶þ´Î·½³Ì(ax?bx?c?0)¡£³ÌÐòÔËÐкóÈçͼ4Ëùʾ¡£¸ø¶¨µÄ³ÌÐò²»ÍêÕû£¬½«³ÌÐò²¹³äÍêÕû¡£

ͼ4

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single Dim x1 As Single, x2 As Single Dim st As Single a = Val(Text1(0).Text) b = Val(Text1(1).Text) c = Val(Text1(2).Text) If a <> 0 Then col = £¨12£© st = -b / (2 * a) If £¨13£© Then

x1 = st + Sqr(col) / (2 * a) x2 = st - Sqr(col) / (2 * a) \·½³ÌÓÐÁ½¸öʵ¸ù\

ElseIf col = 0 Then

\·½³ÌÓÐÁ½¸öÏàµÈʵ¸ù\ Else

x1 = Sqr(-col) / (2 * a)

\·½³ÌÓÐÁ½¸öÐé¸ù\ End If Else

If £¨14£© Then root1 = -b / c

\·½³Ì½öÓÐÒ»¸ö¸ù\ Else

\·½³ÌÎÞÒâÒå\ End If End If End Sub

Private Sub Command2_Click() Text1(0).Text = \ Text1(1).Text = \ Text1(2).Text = \ Pic1. £¨15£© End Sub

12£®ÏÂÁгÌÐòÔËÐкóÈçͼ5Ëùʾ¡£¸ø¶¨µÄ³ÌÐò²»ÍêÕû£¬½«³ÌÐò²¹³äÍêÕû¡£

ͼ5

Private Sub form_Click() k = 7

For i = 5 To 1 Step -2

Print Tab(k); £¨16£© k = k + 1 Next i End Sub 13£®ÔËÐÐÏÂÁгÌÐò£º

Private Sub Command1_Click() Dim s As Integer, i As Integer s = 0

For i = To Step s = s + 1 Next i Print s End Sub

µ¥»÷Command1ÃüÁî°´Å¥ºó£¬ÔòÔÚ´°ÌåÉÏÏÔʾµÄ½á¹ûÊÇ £¨17£© ¡£

14£®ÏÂÁгÌÐòÖÐÓÐÒ»¸ö°´Å¥Command1£¬Ò»¸öÎı¾¿òtext1£¬ÆäÊôÐÔMultiLine£½True¡£µ±µ¥»÷°´Å¥ºó£¬Îı¾¿òÏÔʾ £¨18£© ÐÐÊý¾Ý£¬ÆäÖеڶþÐк͵ÚÈýÐеÄÊý¾Ý·Ö±ðÊÇ £¨19£© ºÍ £¨20£© ¡£

Option Explicit

Private Sub Command1_Click() Dim a As Single, i As Integer a = For i = 1 To 3 a = a * i Print fun1(a) Next i End Sub

Private Function fun1(t As Single) As Single Static y As Single y = y + t t = y + 1 fun1 = t End Function

15£®Òª´òÓ¡³ö50¸öÔÚ-100¡«100Ö®¼ä²»Í¬µÄËæ»úÕûÊý£¬²¢ÕÒ³öµÚ¼¸¸öÊÇ×î´óÊý¡£¸ø¶¨µÄ³ÌÐò²»ÍêÕû£¬½«³ÌÐò²¹³äÍêÕû¡£

Option Base 1

Private Sub Command1_Click() Dim b() Randomize £¨21£© Do x = Rnd

If x > Then y = 1 Else y = -1 t = y * Int(Rnd * 100) + 1 £¨22£© Do While k < j If t <> b(k) Then k = k + 1 Else Exit Do End If Loop If k = j Then

ReDim Preserve b(k) b(k) = t Print b(k); j = j + 1 End If Loop Until j > 50 Print £¨23£© Max = b(1) For n = 2 To 50

If b(n) > Max Then £¨24£© p = n End If Next n

Print \×î´óÊýÊÇ£º\ Print \λÖÃÔÚµÚ\¸ö\End Sub

16£®ÓÐÏÂÁгÌÐò£¬ÔËÐкó±äÁ¿x1¡¢y1ºÍz1µÄ½á¹û·Ö±ðÊÇ £¨25£© ¡¢ £¨26£© ºÍ £¨27£© ¡£

Private Sub fun1(s, m, n) s = m + 1 m = n + 2 n = s + 3 End Sub

Private Sub form_Click() Dim x1, y1 x1 = 1 y1 = 1 z1 = 1

Call fun1(x1, y1 + 1, (z1)) x1; y1; z1 End Sub 17£®±àдһ¹ý³Ì°ÑCÅÌÖеÄÎļþÄÚÈݶÁ³ö£¬²¢ÔÚÎı¾¿òÖÐÏÔʾ³öÀ´¡£ÔÚ´°ÌåForm1ÉϽ¨Á¢Ò»¸öÎı¾¿òText1£¬½«ÆäMuhiLineÊôÐÔÉèÖÃΪTrue£¬ScrollBarsÊôÐÔÉèÖÃΪ3-Both¡£¸ø¶¨µÄ³ÌÐò²»ÍêÕû£¬½«³ÌÐò²¹³äÍêÕû¡£

Option Explicit

Private Sub Form_Click()

Dim ch1 As String, fn As Integer Dim Str As String fn = £¨28£© Open \ Do While Not EOF( £¨29£© ) Line Input #fn, ch1 Str = Str + ch1 + vbCrLf Loop

= £¨30£© End Sub

¶þ¼¶Visual BasicÈ«ÕæÄ£ÄâÊÔ¾íÒ»²Î¿¼´ð°¸

Ò»¡¢Ñ¡ÔñÌ⣺

1£®B2£®D3£®B4£®C5£®A6£®A7£®B8£®D9£®A10£®A11£®D12£®C13£®B14£®D15£®C16£®C17£®D18£®B19£®B20£®C 21£®C22£®D23£®A24£®B25£®B26£®B27£®C28£®D29£®A30£®D¶þ¡¢Ìî¿ÕÌ⣺£¨1£©ÎļþºÅ£¨2£©3£¨3£©¿ª/¹Ø £¨4£©Index£¨5£©×Ö·û´®£¨6£©12£¨7£©33£¨8£©Val(Text1(i).Text)£¨9£©x(i)>x(j)£¨10£©Len(s1) To 1 Step-1 £¨11£©n(k) Mod 2<>0£¨12£©b^2-4*a*c£¨13£©col>0£¨14£©b<>0£¨15£©Cls£¨16£©String(i,\£¨17£©7 £¨18£©£¨19£©£¨20£©£¨21£©j=1£¨22£©k=1£¨23£©p=1£¨24£©Max=b(n)£¨25£©3£¨26£©1£¨27£©1 £¨28£©FreeFile£¨29£©fn£¨30£©Str

¶þ¼¶Visual BasicÈ«ÕæÄ£ÄâÊÔ¾í¶þ

1£®ÏÂÁйØÓÚ¡°ÐÅϢϵͳ¡±µÄÐðÊöÖдíÎóµÄÊÇ 1 ¡£

A£®Í¼Êé¹ÝÊÇÒ»ÖÖÒÔÐÅÏ¢ÊղغͼìË÷ΪÖ÷µÄϵͳ B£®À×´ïÊÇÒ»ÖÖÒÔ¸ÐÖªÓëʶ±ðΪÖ÷ҪĿµÄµÄϵͳ C£®ÐÅϢϵͳ¿ÉÒÔÓÐÈ˹¤µÄ£¬Ò²¿ÉÒÔÓÐ×Ô¶¯µÄ