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

来源：互联网发布：电脑怎么下载软件编辑：程序博客网时间：2024/06/05 06:27

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

<span style="font-family:KaiTi_GB2312;font-size:18px;">Option Explicit'定义变量XDim xPrivate 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 ExplicitDim 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 SubPrivate Sub Timer1_Timer()  If delaytime >= 15 Then                               '若时间延迟大于15秒   Timer1.Enabled = False                               '计时器不可用   Unload Form1                                         '卸载窗体form1   Form2.Show                                           '显示窗体form2  Else                                                  '若时间延迟小于15秒   delaytime = delaytime + 1                            '时间延迟加1  End IfEnd 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

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

1 0