从 Option Explicit 开始的零碎知识点(一)

这两天一直在围着 Visual Basic 转，敲了一些例子，记录了一些零碎的知识点，自己都觉得自己有点小幼稚，不过还好啦，至少没有放弃！

<span style="font-family:KaiTi_GB2312;font-size:18px;">Option Explicit

'定义变量X
Dim x

Private Sub Form_Load()

  '弹出窗口以及窗口上的文字
  x = Val(InputBox("请输入0-100中的数值：", "成绩等级"))
  
  
  
  'Select Case 语句开始了哦
  Select Case x
  
  '如果是90到100分，那么就回复....
  Case 90 To 100
  lblscore.Caption = "优" & Chr(13) & "成绩不错，要保持哦！"

  '如果是80到90分，那么就回复....
  Case 80 To 89
  lblscore.Caption = "良" & Chr(13) & "还可以要继续努力，想优秀靠近啊！"
  
  '如果是70到80分，那么就回复“要努力啦，不然就落后啦”
  Case 70 To 79
  lblscore.Caption = "中" & Chr(13) & "要努力啦，不然就落后了"
  
  '如果是60到70分，那么就回复“加油了，马上及不及格了”
  Case 60 To 69
  lblscore.Caption = "差" & Chr(13) & "要努力啦，不然就不及格了"
  
  '如果是0到60分，那么就回复“你不及格”
  Case 0 To 59
  lblscore.Caption = "不及格" & Chr(13) & "你不及格"
  
  End Select
  
End 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) / 2
  End With
  
  delaytime = 0                                         '时间延迟为0
  Timer1.Enabled = True                                 '计时器可用
End Sub

Private Sub Timer1_Timer()
  If delaytime >= 15 Then                               '若时间延迟大于15秒
   Timer1.Enabled = False                               '计时器不可用
   Unload Form1                                         '卸载窗体form1
   Form2.Show                                           '显示窗体form2
  Else                                                  '若时间延迟小于15秒
   delaytime = delaytime + 1                            '时间延迟加1
  End 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

零零散散，都是一些基础痕迹，跟自己对话，不要太在乎其他的，做自己。