? ? 這兩天一直在圍著?Visual Basic 轉，敲了一些例子，記錄了一些零碎的知識點，自己都覺得自己有點小幼稚，不過還好啦，至少沒有放棄！

? ??

<span style="font-family:KaiTi_GB2312;font-size:18px;">Option Explicit'定義變量X Dim xPrivate Sub Form_Load()'彈出窗口以及窗口上的文字x = Val(InputBox("請輸入0-100中的數值：", "成績等級"))'Select Case 語句開始了哦Select Case x'如果是90到100分，那么就回復....Case 90 To 100lblscore.Caption = "優" & Chr(13) & "成績不錯，要保持哦！"'如果是80到90分，那么就回復....Case 80 To 89lblscore.Caption = "良" & Chr(13) & "還可以要繼續努力，想優秀靠近啊！"'如果是70到80分，那么就回復“要努力啦，不然就落后啦”Case 70 To 79lblscore.Caption = "中" & Chr(13) & "要努力啦，不然就落后了"'如果是60到70分，那么就回復“加油了，馬上及不及格了”Case 60 To 69lblscore.Caption = "差" & Chr(13) & "要努力啦，不然就不及格了"'如果是0到60分，那么就回復“你不及格”Case 0 To 59lblscore.Caption = "不及格" & Chr(13) & "你不及格"End SelectEnd Sub </span>

? ? Option?Explicit??‘對未聲明的變量發出警告

? ? Dim?x

? ? Bitmap

? ??在窗體中添加一副圖片

? ? If??Index?=?1?Then?

? ? 如果命令按鈕的索引值為?1 ，里面的“Index”特意查了一查，涉及到具體的環境中會是針對“數組”這一東西出來的，當然，僅僅是目前這么理解。

?

? ? 斷句符：空格+下劃線

? ? 連接符：中間加“：”

? ??

<span style="font-family:KaiTi_GB2312;font-size:18px;">Option Explicit Dim delaytime As Integer '定義時間延遲的變量Private Sub Form_Load()With lbl1.ForeColor = QBColor(12) '將標簽框中文字的顏色設置為亮紅色.Font = "創藝簡魏碑" '設置標簽框中文字的字體.FontSize = 36 '設置標簽框中文字的字號.FontBold = True '是標簽框中的文字加粗顯示.Left = (Me.Width - lbl1.Width) / 2 '使標簽框再窗體form1中垂直居中.Top = (Me.Height - lbl1.Height) / 2End Withdelaytime = 0 '時間延遲為0Timer1.Enabled = True '計時器可用 End SubPrivate Sub Timer1_Timer()If delaytime >= 15 Then '若時間延遲大于15秒Timer1.Enabled = False '計時器不可用Unload Form1 '卸載窗體form1Form2.Show '顯示窗體form2Else '若時間延遲小于15秒delaytime = delaytime + 1 '時間延遲加1End If End Sub </span>

? ? 注釋：

? ? ’+注釋的語言

? ? Rme?+注釋的語言

?

?

?

? ?：關鍵字?TO?指定范圍的時候，要注意To的下限要小于上線?a?To?b??:??a<b

? ?：Alignment?:文字

? ?Val函數：表示將字符型數據轉化為數值型數據

? ?字符“&”：這是鏈接字符，用于鏈接字符串或函數

? ?Chr(13):表示回車符

? ?

? ?Label2.Caption = "計算的結果為："?& Str(sum)?? ? '求得的和放在標簽框中

? ?If n Mod 5 = 0 Then ? ? '如果n與5的余數為0

? ?零零散散，都是一些基礎痕跡，跟自己對話，不要太在乎其他的，做自己。

??

總結

以上是生活随笔為你收集整理的从 Option Explicit 开始的零碎知识点(一)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。