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

前端之家收集整理的这篇文章主要介绍了从 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>


OptionExplicit‘对未声明的变量发出警告

Dimx



Bitmap

在窗体中添加一副图片


IfIndex=1Then

如果命令按钮的索引值为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的下限要小于上线aTob:a<b

:Alignment:文字


Val函数:表示将字符型数据转化为数值型数据

字符“&”:这是链接字符,用于链接字符串或函数

Chr(13):表示回车符


Label2.Caption = "计算的结果为:"& Str(sum) '求得的和放在标签框中

If n Mod 5 = 0 Then '如果n与5的余数为0


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

猜你在找的VB相关文章