VB实例源码Word文档下载推荐.docx

1、 End If【例3-5】 Print: Print FontName = 隶书 FontSize = 16 姓名 Tab（8）;年龄 Tab（16）;职务 Print Tab（24）;单位 Tab（32）;籍贯 Print吴大明 25;职员 Tab（24）;人事科北京【例3-6】X = InputBox（请输入成绩学生成绩录入00Print x【例3-7】 Dim x As Single, y As Single x=InputBox（“请输入x的值”） If x0 Then y=1 ElseIf x=0 Then y=0 Else y=-1 Print “x=”; x ,”y=” ; y【

2、例3-8】Dim msg, UserInputmsg = 请输入一个字母或09之间的数字.UserInput = InputBox（msg） 输入一个字母或数字If Not IsNumeric（UserInput） Then 判断是否是数字 If Len（UserInput） = 1 Then 不是数字时，判断输入的字符串长度是否为1 Select Case Asc（UserInput） 判断输入字母的ASCII码值 Case 60 To 90 在60-90之间为大写字母 msg = 你输入的是一个大写字母 msg = msg & Chr（Asc（UserInput） &。 Case 97 T

3、o 122 小写字母你输入的是一个小写字母 Case Else你没有输入字母或数字. End SelectElse Select Case Val（UserInput） 将输入的数值型字符转换为数值 Case 1, 3, 5, 7, 9 如果是奇数 msg = UserInput & 是一个奇数。 Case 0, 2, 4, 6, 8 如果是偶数 是一个偶数。 Case Else 出界你输入的数字不在09范围内 MsgBox msg【例3-10】Sub Form_Click（）Dim N As Integern = InputBox（Enter N:） 输入N的值k = 1For i = 1

4、To N 循环N次，计算出N！ k = k * I Print N;”!=”;k 数据输出【例3-12】Dim S, NS = 0: N = 0Do While S = 100N = N + 1S = S + NLoopPrint S, N【例3-13】Dim char As StringCount = 0char = InputBox（请输入一个字符While char ? Count = Count + 1 char = InputBox$（Wend输入的字符数是: Count【例3-14】 *For i = 1 To 9 Print Tab（i * 6）; i;For j = 1 To

5、9 Print j; For k = 1 To j Print Tab（k * 6）; j * k; Next k第4章（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下： Private Sub Text1_LostFocus（） If Val（Text1.Text） 100 Then Text1.Text = Text1.SetFocus End If（2）其他文本框的LostFocus事件类似。（3）假定按钮名称为Command1，该按钮的Click事件过程如下：Private Sub Command1_Click（）If Check1.Valu

6、e = 1 Then Sum = Sum + Val（Text1.Text）If Check2.Value = 1 Then Sum = Sum + Val（Text2.Text）If Check3.Value = 1 Then Sum = Sum + Val（Text3.Text）If Check4.Value = 1 Then Sum = Sum + Val（Text4.Text）If Check5.Value = 1 Then Sum = Sum + Val（Text5.Text）Text6.Text = Sum【例4-1】Private Sub Command1_Click（） 在其单

7、击事件中编程For i = 1 To 6 外循环，控制输出几行For j = 1 To i 内循环，控制输出几列 * Print 换行【例4-2】Private Sub Text1_Change（） Text2.Text = LCase（Text1.Text） Text3.Text = UCase（Text1.Text） End Sub【例4-3】Private Sub Check1_Click（） Text1.FontUnderline = Not Text1.FontUnderlinePrivate Sub Check2_Click（） Text1.FontItalic = Not Tex

8、t1.FontItalicPrivate Sub Option1_Click（） Text1.Font = 黑体Private Sub Option2_Click（）宋体【例4-4】 If Option1 Then Text1.FontName = Else If Option3 Then Text1.FontSize = 8 Text1.FontSize = 10Private Sub Command2_Click（） End【例4-5】Private Sub Form_Load（）在窗体的Load事件中输入列表框的各个项目 lstBooks.AddItem 计算机应用基础操作系统数据结构网

9、络技术基础Private Sub cmdAdd_Click（）单击添加命令按钮时将文本框中输入的内容添加到列表框中 lstBooks.AddItem txtItem txtItem = Private Sub cmdDelete_Click（）删除列表框中选中的项目 lstBooks.RemoveItem lstBooks.ListIndexPrivate Sub cmdModify_Click（）所选项目显示在文本框中，等待修改 txtItem.Text = lstBooks.Text cmdAdd.Enabled = False cmdDelete.Enabled = False cmdM

10、odify.Enabled = False cmdModify_OK.Enabled = TruePrivate Sub cmdModify_OK_Click（）所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容 lstBooks.List（lstBooks.ListIndex） = txtItem cmdAdd.Enabled = True cmdDelete.Enabled = True cmdModify.Enabled = True【例4-6】 Picture3.Picture=Picture1.Picture Picture1.Picture=Picture2.Pic

11、ture Picture2.Picture=Picture3.Picture Pciture3.Picture=LoadPicture（） 把第3个图片框设置为空 End sub【例4-7】Private Sub HScroll1_Change（） Text1.Text = HScroll1.Value【例4-8】Private Timer1_Timer（） Labe1.Caption=Time$实训Debug.Print 姓名: Text1.Text出生年月: Text2.Text籍贯: Text3.TextIf Option1.Value Then Debug.Print 性别:男If O

12、ption2.Value Then Debug.Print 女民族: Combo1.TextIf Check1.Value = 1 Then Debug.Print 健康 Else Debug.Print 不健康职称: Combo3.Text工资: Text4.Text外语熟练程度 HScroll1.Value简历: Text5.Text第5章Private Sub Command6_Click（）Const n = 10 定义常量n的值为10Max = 0: K = 0 最高分及所在位置赋初值For i = 1 To n b（i） = InputBox（请输入第& i &个同学的成绩,求最高

13、分） 输入成绩 If b（i） Max Then Max = b（i）K = I 将第i个成绩与最高分Max相比，如果比最高分高，则保存起来Print最高分是第 K &个同学，其成绩是： Max【例5-1】Option Base 1Dim a（3） As Integera（1） = 1: a（2） = 3: a（3） = 5Print a（1）Print a（2）Print a（3）【例5-2】For i=1 To 10b（i） = InputBox（ &个数【例5-3】For i=1 To 2For j=1 To 2b（i,j） = i+j【例5-4】Dim S（3，2） As Intege

14、r程序如下：For i = 0 To 3 Print Tab（5）; 输出位置定位 For j = 0 To 2 S（i, j） = i * 2 + j 给各元素赋值图5-4 使用二维数组打印出的图形 Print S（i, j）; Next j Print 换行【例5-5】Dim s（5） As Integer 定义数组SConst n = 5For i = 1 To n s（i） = Val（InputBox（ LTrim$（Str$（i） &, 数据排序）输入n个数，转换成数值后保存在数组中。For i = 1 To n-1 进行n-1趟比较 Max = I 对第i遍比较时，初始假定第i个

15、元素最小。 For j = i + 1 To n 在数组in个元素中选最小元素 If s（j） s（Max） Then Max = j t = s（i） s（i） = s（Max） s（Max） = t in个元素中选出的最小元素与第i个元素交换For i = 1 To 5 Print s（i）【例5-6】Dim b（） As Integer ReDim b（2） For i = 0 To 2 b（i） = i Next i ReDim Preserve b（3） b（3） = 7 Print b（i）;【例5-7】Dim a（8, 8） As Integer 定义一个二维数组 下面的二层循环

16、语句给数组赋值For i = 1 To 8 If i = 1 Or j = 1 Then a（i, j） = 1 数组中每一行第一个，最后一个数均为1 a（i, j） = a（i - 1, j - 1） + a（i - 1, j） 数组中其余数据等于它上一行的相邻两列之和 Next j 下面的二层循环语句将数组中的值打印出来For i = 1 To 8 Print Tab（20 - 2 * i）;定位打印位置 For j = 1 To i If a（i, j） 10 Then 将数组中的值转换成长度为3的字符串，可使打印数据整齐 s = + Str（a（i, j） + ElseIf a（i,

17、j） arr（row, col） Then row = i: col = j 下列程序段输出矩阵及最大值及所在位置您输入的矩阵是： Print Tab（8）； 打印位置定位 Print arr（i, j）; Next i矩阵中最大值为：arr（row, col）;其位置在第 row &行 col &列第6章（2）编写窗体装载事件过程： For I = 0 To 100 List1.AddItem i（3）使用“添加过程”对话框创建出判断成绩等级的过程Public Sub DengJi（a As Integer） Select Case a Case 0 To 59 Label1.Caption = 不及格 Case 60 To 69及格 Case 70 To 79中等 Case 80 To 89良好 Case 90 To 100优秀 End Select4）编写列表框单击Click事件过程：Private Sub List1_Click（） Dim n As Integer N = Val（List1.Text） Call DengJi（n） 调用判断成绩等级的过程（5）编写命令按钮单击Click事件过程：