µÚ1-2Õ VB.NET»ù´¡ Ò»¡¢Ìâ1
1£®.NETµÄÄ¿µÄ¾ÍÊǽ«( )×÷ΪÐÂÒ»´ú²Ù×÷ϵͳµÄ»ù´¡£¬¶Ô»¥ÁªÍøµÄÉè¼ÆË¼Ïë½øÐÐÀ©Õ¹¡£ 2£®¶ÔÏóµÄÌØÕ÷³Æ( )£¬¶ÔÏóÄܹ»Ö´ÐеIJÙ×÷³Æ( )£¬¶ÔÏóÄܹ»Ê¶±ðµÄ²Ù×÷³Æ£¨ £©¡£ 3£®ÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑԵĻù±¾±à³ÌģʽÊÇ( )Çý¶¯¡£ 4£®ÒªÍ˳öÓ¦ÓóÌÐòµÄÖ´ÐУ¬²»ÄÜÖ´ÐÐÏÂÁеÄ( )Óï¾ä¡£
¢ÙEnd ¢ÚApplication.Exit ¢ÛApplication.Exit() ¢ÜStop ¢ÝDebug.Break 5.ҪʹÎı¾¿òÖеÄÎÄ×Ö²»Äܱ»Ð޸ģ¬Ó¦°Ñ£¨ £©ÊôÐÔÉèÖóÉFalse¡£ 6.µ±ÔËÐгÌÐòʱ£¬ÏµÍ³×Ô¶¯Ö´ÐÐÆô¶¯´°¿ÚµÄ( )ʼþ¹ý³Ì¡£ 7.µ±Îı¾¿òµÄScrollBarsÊôÐÔÉèΪHorizontal£¬MultLine ÊôÐÔÉèΪTrue,ȴûÓÐЧ¹û£¬ÔÒòÊÇ( )¡£
8£®Í¼Æ¬¿Ø¼þPictureBoxµÄÊôÐÔSizeModeÓÃÓÚµ÷½Ú¿òÄÚÏÔʾͼµÄ´óС¡£ÏÂÃæµÄ( )ö¾ÙÖµÄÜʹͼƬ×Ô¶¯Ëõ·ÅÌîÂúÕû¸öͼƬ¿ò¡£
¢ÙZoom ¢ÚStretchImage ¢ÛAutoSiuze ¢ÜCenterImage
¶þ¡¢Ìâ2
1..NET¿ò¼Ü°üÀ¨ ºÍNETÀà¿â¡£
2£®ÏîÄ¿¿ÉÒÔÊÓΪ±àÒëºóµÄÒ»¸ö¿ÉÖ´Ðе¥Ôª£¬¿ÉÒÔÊÇÓ¦ÓóÌÐò¡¢¶¯Ì¬Á´½Ó¿âµÈ£¬¶øÆóÒµ¼¶µÄ½â¾ö·½°¸ÍùÍùÐèÒª¶à¸ö¿ÉÖ´ÐгÌÐòµÄºÏ×÷£¬Îª±ãÓÚ¹ÜÀí£¬ÔÚVisual Studio.NET¼¯³É»·¾³ÖÐÒýÈëÁË ¡£ 3£®ÒªÏëLabel¿Ø¼þÏÔʾ¸ø¶¨µÄÎÄ×Ö¡°ÄúºÃ¡±£¬Ó¦ÔÚÉè¼Æ×´Ì¬ÏÂÉèÖÃËüµÄ ÊôÐÔÖµ¡£ 4£®ÒªÏëÔÚ¿ØÖÆÌ¨³ÌÐòÔËÐÐʱÊäÈëÐÅÏ¢£¬¿ÉʹÓÃConsole¶ÔÏóµÄ ·½·¨£¬ÒªÊä³öÐÅϢӦʹÓÃConsole¶ÔÏóµÄ ·½·¨¡£
5£®ÔÚVB.NETÖУ¬ ¹ý³ÌÊÇ¿ØÖÆÌ¨Ó¦ÓóÌÐòµÄÈë¿Úµã¡£ 6£®Óï¾ä£ºMe.BackgroundImage= £¬¿ÉÒÔÇå³ý´°ÌåµÄ±³¾°Í¼¡£
µÚ3Õ Êý¾ÝÀàÐÍÓë±í´ïʽ Ò»¡¢Ìâ1 1£®½«ËãÊõʽ£¬5?a?bд³ÉVB.NET±í´ïʽΪ( )¡£ c1?d?e(x+y)
2£®Êýѧʽ¡°2£¯3e¡±µÄVB£®NET±í´ïʽÊÇ( )¡£ 3.15³ýÒÔ4ÓàÊýµÄ-3´Î·½µÄVB£®NET±í´ïʽΪ£¨ £© 4£®½«±äÁ¿kËÄÉáÎåÈë±£Áô2λСÊýµÄ±í´ïʽÊÇ£¨ £©¡£ 5£®Òª¶¨Òå¹Ì¶¨³¤¶È×Ö·û´®±äÁ¿strҪʹÓ㨠£©¡£ 6£®±í´ïʽChr(Int(Rnd*10+66))Ëù²úÉúµÄÊÇ( )¡£ 7.±í´ïʽLen(¡°123³ÌÐòÉè¼ÆABC¡±)µÄÖµÊÇ( )¡£ ¶þ¡¢Ìâ2 1£®ÈôA=20£¬B=80£¬C=70£¬D=30£¬Ôò±í´ïʽA+B>160 or (B*C>200 And Not D>60)µÄÖµÊÇ ¡£ 2£®±í´ïʽ7Mod4*4^3£¯6\\2µÄֵΪ: ¡£
3.±í´ïʽLen(Str(17.35))mod 2µÄֵΪ ¡£
4.VB.NETµÄÒ»¸öÓï¾äºÃ¿ÉÒÔ·Ö±ðдÔÚ¶àÐÐÉÏ£¬ÐÐĩβ¼ÓÉÏ ×÷ÎªÐøÐбêÖ¾£»Áí
Í⣬һÐÐÒ²¿ÉÒÔд¶à¸öÓï¾ä£¬µ«Óï¾äÖ®¼äÐèÒªÓÃðºÅ·Ö¸ô¡£
(B+8)
5£®Îª¼ÆËã±í´ïʽeSin75oµÄÖµ£¬Ó¦Ê¹ÓõÄVB.NETÓïÑԵıí´ïʽÊÇ ¡¤
x+y
6£®Îª¼ÆËã±í´ïʽ(a + b)µÄÖµ£¬Ó¦Ê¹ÓõÄVB£®NETÓïÑÔ±í´ïʽÊÇ ¡£ 7£®ÓÃPublicºÍ
8£®ÉèÕûÐͱäÁ¿xÖÐÓÐÁ½Î»Êý£¬Òª½«ÕâÁ½Î»Êý»¥»»Î»Öã¨Èç13±ä³É31£©£¬ÊµÏÖÕâÒ»¹¦Äܵıí´ïʽÊÇ: ¡£
9.º¯Êý ¿É»ñÈ¡µ±Ç°ÏµÍ³µÄÈÕÆÚ¡£ 10£®ÅжÏ×Ö·û´®±äÁ¿strÊÇ·ñµÈÓÚ¡°abc¡±£¨²»Çø·Ö´óСд£©£¬ÍêÉÆÏÂÃæµÄIfÓï¾ä£º If =¡±abc¡± Then MsgBox(¡°Yes¡±) Else MsgBox(¡°No¡±)
11£®ÔÚÄ£¿éµÄ¿ªÍ·Í¨¹ýImports Óï¾ä£¬¿ÉÒÔʹ±í´ïʽ|x|д³Éabs(x)¡£
µÚ4Õ ½á¹¹»¯³ÌÐòÉè¼ÆÓï¾ä Ò»¡¢Ìâ1
1£®IfÓï¾äºóÃæµÄ±í´ïʽӦ¸ÃÊÇ( )¡£ 2£®ÓÐÈçϰ´Å¥µÄClickʼþ´úÂ룺
Private Sub Button1¡ªChck(¡(Ê¡ÂÔ²ÎÊý))Handles Button1.Click Dim x As Integer=1£¬a As Integer=0,b As integer=0 Select Case x Case 0:b=b+1 Case 1:a=a+1
Case 2: a=a+1: b=b+1 End Select
TextBoxl.Text=\End Sub
³ÌÐòÖ´ÐÐʱµ¥»÷¸Ã°´Å¥£¬ÔÚTextBox1¿Ø¼þÖÐÏÔʾµÄÄÚÈÝÊÇ( )¡£ 3£®ÓÐÈçϰ´Å¥µÄClickʼþ´úÂ룺
Private Sub Button1 Click(¡(Ê¡ÂÔ²ÎÊý))Handles Buttonl.Crick Dim aAs Integer=0,j As Integer Forj=1 T0 20 Step 2 a=a+j\\5 Next j
TextBox1.Text=Str(a) End Sub
³ÌÐòÖ´ÐÐʱµ¥»÷¸Ã°´Å¥£¬ÔÚTextBox1¿Ø¼þÖÐÏÔʾµÄÄÚÈÝÊÇ( )¡£ 4£®ÏÂÃæ³ÌÐò¶ÎµÄÖ´Ðнá¹ûΪ( )¡£
Private Sub Buttonl¡ªClick(¡(Ê¡ÂÔ²ÎÊý))Handles Button1.Click Dim I As Integer£¬A As integer I=4£ºA=5 Do
I=I+1 £ºA=A+2 Loop Until I>=7
TextBox1.Text=\ End Sub
5.ÔÚSelectÓï¾äÖУ¬ÏÂÃæ¸÷×Ó¾ä´íÎóµÄÊÇ£¨ £©¡£
¢ÙCase 10,Is >20 ¢ÚCase 2,4,6 ¢ÛCase -1 To 10 ¢Ü Case x>10 And x<20 ¶þ¡¢Ìâ2
l.VB.NETÓïÑÔÖÐʵÏÖÑ»·µÄÓï¾äÓУº Óï¾ä¡¢Do while¡LoopÓï¾ä¡¢Do¡LoopWhileÓï¾ä¡¢Do Until¡LooPÓï¾ä¡¢Do¡Loop UntilÓï¾äºÍ Óï¾ä¡£ 2£®ÏÂÃæÑ»·µÄÖ´ÐдÎÊýΪ ´Î¡£
Dim A As Integer=6£¬B As Integer=2 Dim i As Integer For I=1 to A Step B A=1£ºB=5 Next I
3£®ÓÐÈçϳÌÐò£º
Dim d£¬a As String£¬i As Integer d=\£ºa=\
For i=Len(a) To 1 Step-1 d=d+Mid(a,i,1) Next i
TextBox1.Text=d
ÔËÐкó£¬TextBox1ÖÐÏÔʾµÄÎÄ×ÖÊÇ ¡£
4£®ÔÚForÑ»·Ö´Ðйý³ÌÖУ¬Ï£Íûµ±Ä³¸öÌõ¼þÂú×ãʱÍ˳öÑ»·£¬Ê¹ÓõÄÓï¾äÊÇ ¡£ 5.ÏÂÁгÌÐòµÄ×÷ÓÃÊÇÇó³öËùÓеÄË®ÏÉ»¨Êý¡££¨ËùνˮÏÉ»¨ÊýÊÇÖ¸ÕâÑùµÄÊý£º¸ÃÊýÊÇÈýλÊý£¬
333
Æä¸÷λÊý×ÖµÄÁ¢·½ºÍµÈÓÚ¸ÃÊý¡£È磺153=1+5+3£¬ËùÒÔ153ÊÇÒ»¸öË®ÏÉ»¨Êý£© Dim i£¬a£¬b£¬c,t As Integer TextBox1.Text=\
For i=1OO To ¢Ù Step 1
t=i
a=t Mod lO£ºt=t\\lO£ºb=t Mod 1O:c=t\\1O If ¢Ú Then
TextBox1.Text=TextBox1.Text+\ End if Next i
6.ÏÂÁгÌÐò¶ÎÖ´Ðкó£¬ÔÚTextBex1ÖÐÏÔʾµÄ½á¹ûΪ ¡£ Dim x As Integer£¬dj As String x=Int((69-60)*Rnd()+60) Select Case x
Case Is>=90 Dj=¡±ÓÅÐ㡱 Case 80 TO 89 Dj=¡±Á¼ºÃ¡± Case 60 TO 79 Dj=¡±ºÏ¸ñ¡±
Case else
Dj=¡±²»ºÏ¸ñ¡± End Select
TextBox1.text=dj
Èý¡¢½á¹¹»¯Òì³£´¦Àí Ò»)¡¢Ìâ1
1£®ÏÂÁйØÓÚTry¡Catch¡Finally¡EndTryÓï¾äµÄ˵Ã÷ÖУ¬²»ÕýÈ·µÄÊÇ£¨ £©¡£
¢ÙCatch¿é¿ÉÒÔÓжà¸ö ¢ÚFinally¿éÊÇ¿ÉÑ¡µÄ¢ÛCatch¿éÒ²ÊÇ¿ÉÑ¡µÄ ¢Ü¿ÉÒÔÖ»ÓÐTry¿é (²»ÄÜͬʱʡÂÔCatch ºÍFinally) 2£®ÏÂÁÐ˵·¨ÕýÈ·µÄÊÇ£¨ £©¡£
¢ÙÔÚVB£®NETÖУ¬±àÒëʱ¶ÔÊý×éϱêÔ½½ç½«×÷¼ì²é
¢ÚÔÚVB£®NETÖУ¬³ÌÐòÔËÐÐʱ£¬Êý×éϱêÔ½½çÒ²²»»á²úÉúÒì³£ ¢ÛÔÚVB£®NETÖУ¬³ÌÐòÔËÐÐʱ£¬Êý×éϱêÔ½½çÊÇ·ñ²úÉúÒì³£ÓÉÓû§È·¶¨ ¢ÜÔÚVB£®NETÖУ¬³ÌÐòÔËÐÐʱ£¬Êý×éϱêÔ½½çÒ»¶¨»á²úÉúÒì³£
¶þ)¡¢Ìâ2
1£®¸ù¾Ý´íÎóµÄÐÔÖÊ£¬¿ÉÒÔ½«´íÎó·Ö³ÉÈýÀࣺÓï·¨´íÎó¡¢ÔËÐдíÎóºÍ ´íÎó¡£ 2£®VB.NETµÄ¼¯³É»·¾³ÌṩÁËÈýÖÖ¹¤×÷ģʽ£ºÉè¼ÆÄ£Ê½¡¢ÔËÐÐģʽºÍ ģʽ¡£ 3£®[ ]¶Ô»°¿òÓÃÓÚÏÔʾµ±Ç°±»¼àÊÓ±í´ïʽµÄÖµ£¬Ö»ÄÜÔÚÔËÐÐģʽ»òÖжÏģʽÏ´ò¿ª¡££¨ÄÜ¿¿±ßµÄÊǾֲ¿±äÁ¿´°¿Ú,µ«¸Ã´°¿ÚÖ»Äܲ鿴±äÁ¿£¬²»Äܲ鿴±í´ïʽ£©
4£®ExceptionÀàÓÐÁ½¸öÖØÒªµÄÊôÐÔ£¬ÆäÖÐ ÊôÐÔ°üº¬¶ÔÒì³£ÔÒòµÄÃèÊöÐÅÏ¢¡£ 5£®ÔÚCatchÓï¾äÖÐÁоÙÒì³£ÀàÐÍʱ£¬FormatExceptionÒì³£Ó¦ÁÐÔÚExceptionÒì³£µÄ ¡£(ÌîÇ°Ãæ»òºóÃæ)
6£®Äܹ»²¶»ñϱêÔ½½çÒì³£µÄÀàÊÇ ¡£
7.Äܹ»²¶»ñµ½ËãÊõÔËËãÒç³öÒý·¢µÄÒì³£¼°¸¡µãֵΪÕýÎÞÇî´ó¡¢¸ºÎÞÇî´ó»ò·ÇÊý×Ö(NaN)ʱÒý·¢µÄÒì³£µÄÀàÊÇ ¡£
µÚ5Õ Êý×é Ò»¡¢Ìâ1
1. ÏÂÁÐÊý×鶨ÒåÓï¾äÕýÈ·µÄÊÇ£¨ £©
¢ÙDim Arr(1 To 8) As Integer ¢ÚDim Arr() As Integer={1,2,3} ¢ÛDim Arr(3) As Integer={1,2,3,4} ¢ÜDim Arr(1 To 2)={1£¬2} 2£®Dim a(9) As IntegerÓï¾ä¶¨ÒåµÄÊý×éÕ¼£¨ £©¸ö×Ö½Ú¡£ 3£®ÓÐÈçϳÌÐò£º
Dim a(3£¬3),m£¬n As Integer For m=1 To 3