一、赋值相容问题
Private Sub Command1_Click()
Dim x As Integer
Dim y As String
y = "100.23" '将数值形式的字符串赋给y
x = y '将字符串变量y赋给整形变量x
y = y + 20
Text1.Text = x
Text2.Text = y
End Sub
<思想**>很容易就可以看出这是一个对x、y进行相互赋值的代码。
<分析**>赋值语句Let
作用:把一个表达式的值赋给一个变量或一个对象的属性
一般格式:[let] <变量名>=<表达式> 变量赋值
[Let] [<对象名>.]<属性名>=<表达式> 属性赋值
说明:赋值语句具有计算和赋值的双重功能,先计算“=”号右边的表达式,然后把结果赋给“=”号左边的变量
举例:
x=y '将y的值赋给x
y=x '将x的值赋给y
二、信息对话框MsgBox
Private Sub Form_Unload (Cancel As Integer)
X = MsgBox("确定要退出吗?",4+32+256,"关闭窗口")
//或者X = MsgBox("确定要退出吗?",vbYesNo+vbQuestion+vbDefaultButton2,"关闭窗口")
If X = 6 Then
Cancel = 0
Else
Cancel = 1
End If
End Sub
<思想**>使用信息框函数(MsgBox)显示信息,等待用户选择
<分析**>信息框函数(MsgBox)
使用格式:<变量名>=MsgBox(<提示信息>)[, <对话框类型> [,<对话框标题>]])
*<提示信息>最大长度为1024个字符,使用回车符Chr(13)、换行符Chr(10)使显示的文本换行
MsgBox()函数的返回值指明了用户在对话框中选择了哪一个按钮。
返回值 返回常量 操作说明
1 VbOK 选择了确定按钮
2 VbCancel 取消按钮
3 VbAbort 终止按钮
4 VbRetry 重试按钮
5 VbIgnore 忽略按钮
6 VbYes 是按钮
7 vbNo 否按钮
参数Cancel是一个整数,用来确定窗体是否从屏幕删除。如果Cancel为0,则窗体被删除。将Cancel设置为任何一个非0只可 防止窗体被删除;当使用窗体右上角的“×”(关闭)按钮命令或用Unload语句关闭该窗体是,此事件被触发。
三、口令问题
Private Sub Command1_Click()
a = UCase(Text1.Text) '将Text1中输入的字符转换成大写字母
If a = "ABC" Then '口令正确
Unload Form1 '卸载窗体Form1
Form2.Show '显示窗体Form2
Else
Label2.Caption = "对不起,口令错!"& Chr(13) & "请重新输入"
Text1.SetFocus 'Text1获得焦点
Text1.SelStart = 0 '将Text的插入点置于最前端
Text1.SelLength = Len(a) '选中用户上次输入错误的所有字符
End If '自动进入改写状态
End Sub
Private Sub Form_Load()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_Change()
Label2.Caption = ""
End Sub
<思想**>输入口令,点击确认进入指定窗口,若错误提示错误信息,输入框不管输入什么字符,只显示“*”
<分析**>块结构条件语句(多行条件语句)
语法格式:
If<条件>Then
<语句块1>
[Else
<语句块2>]
End If
这是一个我们很常见的设计口令窗口,本段代码就是一个典型的运用选择结构中条件条件语句的实例,通过先判断后执行的方法对输入的字符进行判断后生效。
四、计算1+2+3+...+100
Private Sub Form_Click()
Dim s As Integer,n As Integer
Show
s = 0:n=1
Do While n <=100
s = s + n
n = n + 1
Loop
Print"1+2+3+...100=";s
End Sub
<思想**> 利用循环结构中的Do...Loop语句对1-100的数进行累加,用变量s存放累加和,s的初值为0,用变量n计数
<分析**>Do...Loop语句(既可以先判断后执行,又可以先执行后判断)
语句格式:Do[While|Until<条件>]
[循环体]
Loop
当<条件>为真(True)时执行循环,条件为假(False)时,终止循环
五、求自然数1~100之间的奇数之和
Private Sub Form_Load()
Dim i As Integer,s As Integer
Show
For i = 1 To Step 2
s = s + i
Next i
Print"1~100奇数累加和为:";s
End Sub
<思想**>使用循环结构中的For ... Next语句求奇数和问题,运用步长Step概念
<分析**>For ... Next语句
是实现循环结构的一种形式,属于计数型循环,通常用于循环次数已知的程序结构中。
语法格式:
For<循环变量>=<初值>To<终值>[Step<步长>]
[<循环体>]
Next[<循环变量>]
本段代码用变量i 作循环变量,i的初值为1,终值为100,步长为2,i分别取值为1,3,5,...,99,变量s作为累加器,将每一个i的值累加到s中,最后将累加结果显示在窗体中。
六、 打印乘法九九表
Private Sub Form_Click()
FontSize = 10
Print Tab (31) ;"乘法九九表"
Print Tab (30) ;"----------"
For i = 1 To 9
For j = 1 To i
Print Tab ((j-1) * 8); i & "*" & j & "=" & i*j;
Next j
Print '每行之后产生一个换行
Next i
End Sub
<思想**>使用循环结构中的多重循环对代码进行嵌套
<分析**>当在循环体内包含另外一个循环语句时,就形成了嵌套循环,又叫多重循环。
以上就为小编对VB书中一些经典代码的理解,欢迎下方评论(微笑!)