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ÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......