¼ÆËã»ú¶þ¼¶VB¿¼ÊÔÌâÄ¿

£¨A£©¡¢ If y>=x Then Max=y:Max=x £¨B£©¡¢ Max=IIf(x>y,x,y)

£¨C£©¡¢ If x>y Then Max=x Else Max=y £¨D£©¡¢ Max=x :If y>=x Then Max=y

10¡¢ [µ¥Ñ¡Ìâ]¼ÙÉèÔÚ´°ÌåÉÏÒѾ­Ìí¼ÓÁËͨÓöԻ°¿òCommonDialog¿Ø¼þ²¢ÉèÖúÃÊôÐÔ£¬ÆäÃû³ÆÊÇCommonDialog1£¬ÔÚ³ÌÐòÖÐÒªÏÔʾ\´ò¿ª\¶Ô»°¿ò£¬Ê¹ÓÃÓï¾äÊÇ£º___________¡£ £¨A£©¡¢ CommonDialog1.Action=1 £¨B£©¡¢ CommonDialog1.Action=2 £¨C£©¡¢ CommonDialog1.Action=4 £¨D£©¡¢ CommonDialog1.Action=3 11¡¢ [µ¥Ñ¡Ìâ]¼Ù¶¨ÓÐÈçϵÄSub¹ý³Ì: Sub S(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub

ÔÚ´°ÌåÉÏ»­Ò»¸öÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 £ºb=4

S a, b Print a, b End Sub

³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Êä³ö½á¹ûΪ______¡£ £¨A£©¡¢ 1.25 4 £¨B£©¡¢ 5 4 £¨C£©¡¢ 1 1 £¨D£©¡¢ 1.25 1

12¡¢ [µ¥Ñ¡Ìâ]ÒªÏë´Ó×Ó¹ý³Ìµ÷Óú󷵻ØÁ½¸ö²ÎÊýµÄÖµ£¬ÏÂÃæ×Ó¹ý³ÌÓï¾äÂú×ãÒªÇóµÄÊÇ__________¡£ £¨A£©¡¢ Sub f(a%,Byval b%) £¨B£©¡¢ Sub f(ByVal a%,Byval b%) £¨C£©¡¢ Sub f(a%,b%) £¨D£©¡¢ Sub f(Byval a%,b%)

13¡¢ [µ¥Ñ¡Ìâ]ÒÔϹý³ÌµÄ¹¦ÄÜÊǽ«×Ö·û´®str1ÖÐËùÓеÄ×Ö·û\ɾ³ý£¬Ñ¡ÔñÌî¿ÕÍê³É¸Ã¹ý³Ì¡£ Sub change(str1 As String , ch As String) Dim str2 As String,I As Integer,len1 As Integer len1=Len(str1) For I=1 to len1

If Mid(str1,I,1)< >\ Next I

_________________ End Sub

£¨A£©¡¢ str2=str1

£¨B£©¡¢ str1=str2 £¨C£©¡¢ change=str2 £¨D£©¡¢ change=str1

14¡¢ [µ¥Ñ¡Ìâ]Ö´ÐÐÏÂÁеijÌÐò¶Îºó£¬½á¹ûΪ______¡£ i = 0 n = 0

Do While i < 32 i = (i + 1) * (i + 1) n = n + 1 Loop Print n

£¨A£©¡¢ 29 £¨B£©¡¢ 3 £¨C£©¡¢ 4 £¨D£©¡¢ 0

15¡¢ [µ¥Ñ¡Ìâ]Ö´ÐÐÏÂÁгÌÐò£¬Êä³ö½á¹ûΪ__________¡£ Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a, b

Print \ End Sub

Sub S1(ByVal x As Integer, ByVal y As Integer) t = x x = y y = t End Sub

£¨A£©¡¢ a=10 b=10 £¨B£©¡¢ a=10 b=30 £¨C£©¡¢ a=30 b=10 £¨D£©¡¢ a=30 b=30

16¡¢ [µ¥Ñ¡Ìâ]´°ÌåµÄNameÊôÐÔΪ´°ÌåÖ¸¶¨___________¡£ £¨A£©¡¢ ±ß¿ò¸ñʽ £¨B£©¡¢ ±êÌâ £¨C£©¡¢ Ãû³Æ £¨D£©¡¢ Êä³öÎÄ×ÖÐÅÏ¢

17¡¢ [µ¥Ñ¡Ìâ]ÓÃÓÚÏÔʾµ¯³öʽ²Ëµ¥µÄ·½·¨ÃûÊÇ______________¡£ £¨A£©¡¢ PopupMenu £¨B£©¡¢ ShowPopupMenu £¨C£©¡¢ ShowPopup £¨D£©¡¢ ShowMenu

18¡¢ [µ¥Ñ¡Ìâ]ÏÂÃæ³ÌÐòµÄÑ­»·´ÎÊýΪ____________¡£ For i=10 to 40 step 6

Print i Next i

£¨A£©¡¢ 33 £¨B£©¡¢ 5 £¨C£©¡¢ 6 £¨D£©¡¢ 32

19¡¢ [µ¥Ñ¡Ìâ]Ö´ÐÐÒÔϳÌÐò¶Îºó£¬±äÁ¿c$µÄֵΪ_______¡£ a$ = \ b$ = \

c$ = b$ & Ucase(Mid$(a$, 7, 6)) & Right$(a$, 11) £¨A£©¡¢ Quick BASIC Programing £¨B£©¡¢ Visual BASIC Programing £¨C£©¡¢ Quick Basic Programing £¨D£©¡¢ QUICK Basic Programing

20¡¢ [µ¥Ñ¡Ìâ]¿ÉÒÔΨһÇø·Ö²»Í¬´°ÌåµÄÊôÐÔÊÇ__________¡£ £¨A£©¡¢ Caption £¨B£©¡¢ Text £¨C£©¡¢ Tag £¨D£©¡¢ Name

21¡¢ [µ¥Ñ¡Ìâ]ÔÚÕý³£°²×°Visual Basic6.0ºó£¬¿ÉÒÔͨ¹ý¶àÖÖ·½Ê½Æô¶¯Visual Basic¡£ÒÔÏ·½Ê½Öв»ÄÜÆô¶¯Visual BasicµÄÊÇ£º___________¡£

£¨A£©¡¢ ½øÈëDOS·½Ê½£¬Ö´ÐÐvb6.exeÎļþ £¨B£©¡¢ ͨ¹ý\¿ªÊ¼\²Ëµ¥ÖеÄ\³ÌÐò\ÃüÁî

£¨C£©¡¢ ͨ¹ý\ÎҵĵçÄÔ\ÕÒµ½vb6.exe£¬Ë«»÷¸ÃÎļþÃû £¨D£©¡¢ ͨ¹ý\¿ªÊ¼\²Ëµ¥ÖеÄ\ÔËÐÐ\ÃüÁî 22¡¢ [µ¥Ñ¡Ìâ]ÔĶÁ³ÌÐò£º

Function func(n As Integer) As Integer Sum=0 For I=1 to n

Sum=Sum+(I+1)*I Next I Func=Sum End Function

Private Sub Command1_Click() Dim a As Integer a=3 s=func(a) print s End Sub

³ÌÐòÔËÐк󣬵¥»÷ÃüÁŦ£¬Êä³ö½á¹ûΪ£º__________¡£ £¨A£©¡¢ 15 £¨B£©¡¢ 20 £¨C£©¡¢ 8 £¨D£©¡¢ 30

23¡¢ [¶àÑ¡Ìâ]ÏÂÃæ______ÊǺϷ¨µÄ±äÁ¿Ãû¡£ £¨A£©¡¢ hjlk_jk £¨B£©¡¢ 6lk £¨C£©¡¢ integer_1 £¨D£©¡¢ h-i

24¡¢ [¶àÑ¡Ìâ]______¶ÔÏó¾ßÓÐCls·½·¨¡£ £¨A£©¡¢ ´°Ìå £¨B£©¡¢ ͼƬ¿ò £¨C£©¡¢ ͼÏñ¿ò £¨D£©¡¢ ´òÓ¡»ú

25¡¢ [µ¥Ñ¡Ìâ]ҪʹÁбí¿òÖеÄÁбíÏîÏÔʾΪ¸´Ñ¡¿òÐÎʽ£¬Ó¦½«ÆäStyleÊôÐÔÉèÖÃΪ__________¡£ £¨A£©¡¢ 0 £¨B£©¡¢ 1 £¨C£©¡¢ 3 £¨D£©¡¢ 2

¶þ¡¢×éºÏÑ¡Ôñ£¨20·Ö£¬¹²10Ì⣩

26¡¢ÈôÒª½áÊøÒ»¸öVBÓ¦ÓóÌÐò£¬¿ÉÒÔʹÓÃ___C___Óï¾ä¡£ 27¡¢¶ÔÏó¶ÔʼþµÄÏìÓ¦ÊÇͨ¹ýÖ´ÐÐÏàÓ¦µÄ__S____À´ÊµÏֵġ£ 28¡¢ÏÂÃæ___A___ÊǺϷ¨µÄÈÕÆÚÐͳ£Á¿¡£

29¡¢¹ØÓÚÇý¶¯Æ÷£¬ÏÂÁÐÐðÊöÖв»ÕýÈ·µÄÊÇ__B____¡£ 30¡¢ÈôҪжÔØÒ»¸ö´°Ì壬¿ÉÒÔʹÓøô°ÌåµÄ__D____Óï¾ä¡£ 31¡¢DoEventsÓï¾äµÄ×÷ÓÃÊÇ__F____¡£

32¡¢ÔÚVisual Basic 6.0ÖУ¬¹ý³ÌÓÐ×Ó³ÌÐò¹ý³ÌºÍº¯Êý¹ý³Ì£¬ÆäÖÐ__I____Ö´ÐÐÍêºó½«µÃµ½Ò»¸ö·µ»ØÖµ¡£ 33¡¢Ö´ÐÐÑ­»·Óï¾ä For a= -3 to 2 Step 1 Print a Next a

ʱ£¬Ñ­»·Ìå±»Ö´ÐÐ__L____´Î¡£

34¡¢µ¥¾«¶ÈÊý¾ÝÀàÐÍϵͳʹÓÃ___N___±êʶ·û¡£

35¡¢³ÌÐòÉè¼Æ½×¶Î£¬ÏÂÁÐ__T____¿Ø¼þÔÚ´°ÌåÉÏ´óС¹Ì¶¨£¬²»ÄÜÓÉÓû§ÈÎÒâ¸Ä±ä¡£

×¢Ò⣺ÇëÔÚÊÔÌâµÄºìÉ«Ï»®Ïß´¦Ìîд´ð°¸Ç°Ëù¶ÔÓ¦µÄ×Öĸ£¬Èç¡°(D) Style¡±£¬Ö»ÄÜÌîдӢÎÄ×Öĸ¡°D¡±£¨´óСд¾ù¿É£¬±ØÐëÔÚÓ¢ÎÄÊäÈë״̬ÏÂÊäÈ룩£¬²»ÄÜÌîд¡°Style¡±£¬·ñÔò×÷´íÎó×÷´ð´¦Àí£¬ÌîÍêºó°´»Ø³µ¼ü¿Éתµ½ÏÂÒ»Ìâ¡£¿É¹©Ñ¡ÔñµÄ´ð°¸ÈçÏ£º £¨A£© #11-09-99 9:36:23 PM#

£¨B£© Òª¸Ä±äϵͳµ±Ç°µÄ¹¤×÷Çý¶¯Æ÷ÐèҪʹÓÃChDriveÓï¾ä £¨C£© End £¨D£© UnLoad £¨E£© Load

£¨F£© ½«¿ØÖÆȨ½»¸ø²Ù×÷ϵͳ £¨G£© ͨÓùý³Ì

£¨H£© µ±Óï¾äÖеÄÌõ¼þΪÕæʱִÐÐÑ­»·Ì壬µ±Ìõ¼þΪ¼Ùʱ£¬ÖÕֹѭ»· £¨I£© º¯Êý¹ý³Ì £¨J£© Stop £¨K£© ×Ó³ÌÐò¹ý³Ì