Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBµÄÌâÄ¿£¬Ï£Íû¸÷λ¸ßÊÖÀ´°ï¸öæ

8£®ÒÔÏÂÊÇÒ»¸ö¼ò»¯Á˵IJÂÊýÓÎÏ·³ÌÐò£¬×Ô¶¯Éú³ÉÒ»¸öСÓÚ1000µÄËæ»úÕýÕûÊýÓëÄúÓÃÊäÈë¶Ô»°¿òÊäÈëµÄÊý½øÐжԱȣ¬²ÂÖкóÊä³öÏà¹ØÐÅÏ¢£¬¹ý³Ì½áÊø¡£
Private Sub Form_Click()
  Dim r As Integer, x As Integer, i As Integer
  Randomize : r = _______________       
  For i = 1 To 10
    x = Val(InputBox("ÇëÊäÈëÒ»¸öÕûÊý£º"))
    If x < r Then m = MsgBox("̫СÁË£¬Çë¼ÌÐø²Â£¡")
    If x > r Then m = MsgBox("Ì«´óÁË£¬Çë¼ÌÐø²Â£¡")
    If x = r Then
      Print "²ÂÖÐÁË£¡¹²²ÂÁË" + ______________  + "´Î"
    If i <= 5 Then Print "Ì«°ôÁË£¡" Else Print "¼ÓÓÍ£¡"
      ________________       
    End If
  Next i
End Sub

VB.NET code:
Private Sub MainForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim r As Integer, x As Integer, i As Integer
Dim m As String
Randomize: r = Rnd() * 1000
For i = 1 To 10
x = Val(InputBox("ÇëÊäÈëÒ»¸öÕûÊý£º"))
If x < r Then m = MsgBox("̫СÁË£¬Çë¼ÌÐø²Â£¡")
If x > r Then m = MsgBox("Ì«´óÁË£¬Çë¼ÌÐø²Â£¡")


Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

Ö»»áVB£¬ÏÖÔÚÏëÖØÐÂѧÃÅÓïÑÔ - VB / ·Ç¼¼ÊõÀà

Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ