一、赋值相容问题
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书中一些经典代码的理解，欢迎下方评论（微笑！）
