这两天一直在围着 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
零零散散,都是一些基础痕迹,跟自己对话,不要太在乎其他的,做自己。