VBרÌâÏ°Ìâ

¸Ã³ÌÐòÔËÐк󣬱äÁ¿sµÄÖµÊÇ()

£¨A£©0 £¨B£©1 £¨C£©5 £¨D£©15 25.ÏÂÁÐVisual Basic±í´ïʽµÄÖµµÈÓÚ56µÄÊÇ() £¨A£©Mid(\£¨B£©Len(\£¨C£©Sqr(56) £¨D£©Abs(-55)+1 26.

27.

9 / 30

VBרÌâÏ°Ìâ

28. С½ð±àдÁËÒ»¸öͳ¼ÆËæ»úÊý·Ö²¼µÄVB³ÌÐò£¬²¿·Ö³ÌÐòÈçÏÂËùʾ£¬ÔÚµ÷ÊÔ³ÌÐòµÄʱºò³öÏÖÈçÓÒͼËùʾµÄ´íÎóÐÅÏ¢£º

n = 0 m = 0

For i = 1 To 100 If Rnd > 0£®5 Then n = n + 1 Else m = m + 1 Next i ??

С½ð×Ðϸ·ÖÎö¸Ã³ÌÐò¶Îºó£¬·¢ÏÖÆäÖÐȱÉÙÁË( ) A. For

B. Next

C. End If

D. If

29. ÓÐÈçÏÂVB³ÌÐò£º

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer a = Val(text1.Text) b = Val(text2.Text)

c = (a + b + Abs(a - b)) \\ 3 Text3.Text = Str(c) End Sub

ÔËÐиóÌÐò£¬·Ö±ðÔÚÎı¾¿òText1¡¢Text2ÖÐÊäÈë5¡¢9£¬µ¥»÷ÃüÁî°´Å¥Command1ºó£¬Îı¾¿òText3ÖÐÏÔʾµÄÄÚÈÝÊÇ£¨£©

A.6

B.5

C.4

D.7

30.ÈçÓÒͼËùʾµÄVB³ÌÐòÖУ¬ÊäÈëÒÔϳÌÐò´úÂ룬ÔËÐк󵥻÷ÃüÁî°´Å¥Command1£¬³öÏÖ´íÎóµÄÌáʾͼÊÇ£º £¨ £© Private Sub Command1_Click() Dim a(1 To 4) As Integer Dim i As Integer a(1) = 1 For i = 2 To 4

a(i) = 2 * a(i - 1) + 1 Next i

List1.AddItem Str(a(i)) End Sub

10 / 30

VBרÌâÏ°Ìâ

A£® C£®

31. Èôx±íʾÄܱ»3Õû³ýµÄÕýÕûÊý£¬ÔòÏÂÃæÂß¼­±í´ïʽµÄÖµÒ»¶¨ÎªÕæµÄÊÇ£º £¨ £© A. Int(x / 3) = 0 B. 3 Mod x = 0 C. x Mod 3 = 0 D. x\\3 = 0

32. ¡¢ÎªÊ¹ÏÂÃæ×óÓÒ¿òÄÚµÄVB³ÌÐò¶ÎʵÏÖÏàͬµÄ¹¦ÄÜ£¬Ôò×ó¿òÄÚ»®Ïß´¦ÌîдµÄ´úÂëÓ¦¸ÃÊÇ£¨ £©¡£

0 s=0:t= Do While t<=6

s=s+t

Loop A£® A.t=2 C.t=t+1

s=0 For t=1 To 6 Step 2 s=s+t Next t D£® B£®

B£®B.t=6 D£®D.t=t+2

33. VB±í´ïʽS=Int£¨Rnd()*1000+9000£©£¬ÔòSµÄÈ¡Öµ·¶Î§ÊÇ£¨ £©

,S?R} B. {S|9000?S?10000,S?Z} A.{S|9000?S?10000,S?R} D. {S|9000?S?10000,S?Z} C.{S|9000?S?1000034. ϱí¼Ç¼ÁË6¸öÊý¾ÝµÄÅÅÐò¹ý³Ì¡£·ÖÎö±íÖÐÊý¾Ý¿ÉÖª£¬¸ÃÅÅÐò²ÉÓõÄËã·¨ÓëÅÅÐò·½Ê½·Ö±ðΪ£¨ £©

ԭʼÊýµÚ1±é µÚ2±é µÚ3±é ? 65 44 44 44 ? 57 65 45 45 ? 59 57 65 57 ? 11 / 30

44 59 57 65 ? 45 45 59 59 ? 69 69 69 69 ? VBרÌâÏ°Ìâ

A£®Ã°ÅÝÅÅÐò£¬ÉýÐò B£®Ñ¡ÔñÅÅÐò£¬ÉýÐò C£®Ã°ÅÝÅÅÐò£¬½µÐò D£®Ñ¡ÔñÅÅÐò£¬½µÐò

35.½×³ËÊÇ»ù˹¶Ù©q¿¨ÂüÓÚ1808Äê·¢Ã÷µÄÔËËã·ûºÅ¡£ÕýÕûÊýnµÄ½×³ËΪn£¡=1¡Á2¡Á3?¡Án¡£Ð¡Íõ±àдÁËÈçÏÂVB³ÌÐòÓÃÀ´ÇóS=1£¡+2£¡+3£¡+?+10£¡¡£

Function fac(n As Integer) As Long fac = 1 For i = 1 To n fac = fac * i Next i End Function

Private Sub Command1_Click() Dim s As Long, j As Integer For j = 1 To 10

Next j

Text1.Text = Str(s) End Sub

·½¿òÖеÄÕýÈ·Óï¾äÊÇ£º A£®s = s + fac(j)

B£®s = fac(j) D£®s = s + fac(i)

C£®s = s + i * fac(i)

36. ÏÂÁÐÂß¼­±í´ïʽÖУ¬ÖµÎªFalseµÄÊÇ£¨ £©

A£®Asc(\£®Int( Rnd * 49 ) < 49 C£®3+4 <= 7 and 5+6 > 9 D£®\

37. ÓÐ100¸ö´óСÐÎ×´Ò»ÑùµÄ͸Ã÷²£Á§Çò£¬ÆäÖÐÓÐ1¸ö²£Á§ÇòµÄÖØÁ¿ÇáÓÚÆäËû99¸ö²£Á§Çò£¬Ð¡Ã÷ÏëÀûÓÃһ̨ÎÞíÀÂëµÄÌìƽ£¬ÔËÓúÏÀíµÄËã·¨±£Ö¤Ò»¶¨ÄÜÕÒ³öÕâ¿ÅÇá²£Á§ÇòµÄ×îÉٵĴÎÊýΪ£º

A£®100

B£®10

C£®8

D£®6

38. ÏÂÁÐVB³ÌÐòÖУ¬fÊÇÒ»¸öµÝ¹éº¯Êý£º Private Sub Command1_Click() Dim y As Integer y = Val(Text1.Text) Label1.Caption = Str(f(y)) End Sub

Function f(n As Integer) As Integer

12 / 30