Visual Basic程序设计作业4
- 格式：doc
- 大小：79.00 KB
- 文档页数：10
文档推荐
-
VisualBasic程序设计_0004页数:5
-
8966 VisualBasic程序设计页数:150
-
VisualBasic程序设计作业题解页数:29
下载文档原格式
合集下载
Visual Basic程序设计作业参考答案
10
窗体
作业2
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
C
B
D
A
B
D
A
A
D
A
二、填空题:
题号
参考答案
1
对象列表框，属性显示排列方式，属性列表框，属性说明框
2
Text1.text=”Hello”
3
标准控件ActiveX控件
4
Top Left Width Height
5
Shift
6
Shift＋ctrl
7
《Visual Basic程序设计》作业参考答案
作业1
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
B
C
D
A
C
B
A
D
C
B
二、填空题:
题号
参考答案
1
学习版专业版企业版
2
通过“开始菜单”中的“程序”命令
通过“开始”菜单中的“运行”命令
3
文件 退出
4
ALT＋Q
5
13
6
7
8
.vbp,.frm
9
标准菜单 功能菜单
3
Path。
三、实训：（略）
作业12
一、选择题：
1
2
C
D
二、实训：（略）
作业13、作业14、作业15、作业16（略）
5
运行（执行）
6
1
作业5答案
窗体
作业2
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
C
B
D
A
B
D
A
A
D
A
二、填空题:
题号
参考答案
1
对象列表框，属性显示排列方式，属性列表框，属性说明框
2
Text1.text=”Hello”
3
标准控件ActiveX控件
4
Top Left Width Height
5
Shift
6
Shift＋ctrl
7
《Visual Basic程序设计》作业参考答案
作业1
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
B
C
D
A
C
B
A
D
C
B
二、填空题:
题号
参考答案
1
学习版专业版企业版
2
通过“开始菜单”中的“程序”命令
通过“开始”菜单中的“运行”命令
3
文件 退出
4
ALT＋Q
5
13
6
7
8
.vbp,.frm
9
标准菜单 功能菜单
3
Path。
三、实训：（略）
作业12
一、选择题：
1
2
C
D
二、实训：（略）
作业13、作业14、作业15、作业16（略）
5
运行（执行）
6
1
作业5答案
Visual Basic 程序设计题
【编号:1】'------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求闭区间[1..m]上所有偶数之积，并将结果输'出在窗体上。
m是大于1的自然数，例如m=10，则输出3840'-------------------------------------------------Private Function fun(m As Integer) As Double'******begin******'******end******End FunctionPrivate Sub Form_Click()Print fun(10)TestFuncEnd SubPrivate Sub TestFunc()Dim fIn As IntegerDim fOut As IntegerDim i As IntegerDim t As IntegerDim j As IntegerDim l As IntegerDim a(10) As String, b As StringfIn = FreeFileOpen App.Path & "\in.dat" For Input As #fInfOut = FreeFileOpen App.Path & "\out.dat" For Output As #fOutFor i = 1 To 3Line Input #fIn, a(i)b = ""For j = 1 To Len(a(i))t = Asc(Mid(a(i), j, 1)) Xor 10b = b & Chr(t)Nextl = Val(b)Print #fOut, fun(l)NextClose #fInClose #fOutEnd Sub参考答案:Dim sum As DoubleDim i As Integersum = 1#For i = 1 To mIf i Mod 2 = 0 Thensum = sum * iEnd IfNextfun = sum【编号:2】'------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
Basic语言程序的设计作业
《Visual Basic语言程序设计》作业一、单项选题（在每小题的备选答案中选出正确答案）1、在Visual Basic中，下列运算符中优先级最高的是什么（ D ）。
A *B \C < D．Not2.下列什么控件没有水平滚动条（ D ）。
A listviewB listboxC richtextbox D．Treeview3、在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是什么（B ）。
A 撇号(')B 冒号(:)C 感叹号(!) D．星号（*）4、如果要在程序代码中为图片框动态加载和清除图象，可以利用什么函数（ C ）。
A InputBoxB InputC LoaD．Picture D．PaintPicture5、在Visual basic中，所有的窗体和控件都必定具有的一个属性是（A ）。
A）Name B）Font C）Caption D．）FillColor 6．在VB集成开发环境中，在窗体中添加控件可以通过双击或单击拖动【C 】中的图标来完成。
A)属性窗E B)窗体设计窗C)工具箱窗D)工程资源管理窗口7．在Vi sual Bas i c环境下，当要设计一个新的Vi sual Bas i c程序时，所做的第一件事是【B 】。
A)编写代码B)新建一个工程C)打开属性窗D)设计应用程序界面8..文本框控件最多能处理多少个字节（ B ）。
A 32KB 64KC 128K D．16K9．VB语句Const tt As S i ngl e=3 3．1 7 9用于声明一个【A 】。
A)常量B)变量C)定值D)数组10．表达式Mi d(“He l l o”，2，3)的值是【C 】。
A) “ll" B) “llo'’C) “ell" D) “ello'’11．在没有其他说明的情况下，用下面的语句定义数组，其元素的个数是【10 】。
Dim A(10)As IntegerA)9 B)1 0 C)11 D)1 212．下列控件中，没有Capt i on属性的是【D 】。
VisualBasic程序设计作业题解.
Visual Basic程序设计作业题解作业 3一、选择题1． Visual Basic 依据计算机接见文件的方式将文件分红三类，此中不包含（）。
A．次序言件B． Unix 文件C．二进制文件D．随机文件答案： B2．随机文件进行文件读写的单位是（）。
A ．字节B．记录C．整个文件D ．字符答案： B3．为了使目录路径列表Dir1 的内容切合驱动器列表框Drive1 的选择，应该（）。
A ．在 Dir1_Click事件中加入Dir1.Path=Drive1.DriveB．在 Drive1_Click事件中加入Dir1.Path=Drive1.DriveC．在 Dir1_Click事件中加入Drive1.Path=.Drive.PathD ．在 Dir1_Click事件中加入Drive1.Path=.Dir1.Path答案： A4．为了使 Drive1 驱动器列表框、 Dir1 目录路径列表框和File1 文件列表框能同步协调工作，需要在（）。
A ．Drive1 的 Change 事件过程中加入 Drive1.Drive=Dir1.Path, 在 Dir1 的 Change 事件过程中加入 Dir1.Path=File1.Path 代码。
B．Drive1 的 Change 事件过程中加入 Dir1.Path=Drive1.Drive, 在 Dir1 的 Change 事件过程中加入 File1.Path=Dir1.Path 代码。
C． Dir1 的 Change 事件过程中加入 Dir1.Path=Drive1.Drive, 在 File1 的 Click 事件过程中加入File1.Path=File1.FileName 代码。
D ．Dir1 的 Change 事件过程中加入 Dir1.Path=Drive1.Drive, 在 File1 的 Click 事件过程中加入File1.Path=Dir1.FileName 代码。
(完整word版)Visual-Basic程序设计教程(第4版)实验答案[2]模板
![(完整word版)Visual-Basic程序设计教程(第4版)实验答案[2]模板](https://img.taocdn.com/s1/m/d14ee9e601f69e31433294e5.png)
※声明：1.实验所属课本原件为《Visual Basic程序设计教程（第4版）（□主编龚沛曾□编者杨志强陆慰民谢步瀛）》；2.实验答案代码采用红色字体突出；3.仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作；4.教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信；5.本文为作者原创，复制转载请注明出处；6.如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信；7.浏览、复制、下载后请给作者一个合理的评价，感激不尽。
实验1-1编制简单的欢迎界面程序。
要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。
程序运行效果如图2.1.1所示。
程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。
以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”。
（如某同学的学号为A10414001，所完成的是实验2的第3题，那么程序文件名为“A10414001-2-3.frm”和“A10414001-2-3.vbp”）图2.1.1 实验1.1运行界面提示：(1) 实验所用到的控件及属性设置见表2.1.1。
表2.1.1属性设置控件名属性Label1 Caption="欢迎学习Visual Basic"；Font属性：字号为二号，字体为隶书，Aligment=2(居中)Label2 Caption="请输入你的姓名"；Font属性：字体为楷体，有下划线Label3 Caption=""，BorderStyle=1Private Sub Command1_Click() Label3.Caption = Text1.Text End Sub实验1-2Label1 Caption="我开始学习程序设计"；FontSize=36；BackStyle=0Command1 Caption=""；Style=1；Picture="clock02.ico"；ToolTipText＝"自动"Command2 Caption=""；Style=1；Picture="key04.ico"；ToolTipText＝"手动"Timer1 Interval=0注：因为印刷错误，例题1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。
Visual Basic6.0程序设计(1-4章)答案
Visual Basic6.0试卷答案（1-4章）（满分100分，时间：90分钟命题人：李世华）一、选择题（每题2分，共20分）1．A 2．B 3．B 4．A 5．C 6．A 7．D 8．B 9．B 10．C二、填空题（每题2分，共20分）1．Activate 2．双引号，井号（“”，##）3．False 4．对象，事件5．254 6．ScrollBars，2 7．BackStyle，0 8．ShowOpen 9．MDIChild 10．Name（名称）三、判断题（每题1分，共10分）1．错2．错3．对4．对5．错6．错7．对8．对9．对10．对四、名词解释（每题2分，共10分）1．事件：事件是由VB预先设置好的、能够被对象识别的动作2．对象：是代码和数据的组合/程序运行中的实体3．方法：指的是控制对象动作行为的方式4．属性：是对对象外在特征的描述5．变量：就是命名的存储单元位置，包含在程序执行阶段修改的数据注：名词解释的分数可以根据作题答案的含义给分，不用完全刻意对照答案五、简答题（每题5分，共20分）1．a.标识符必须以字母开头，最大长度为255b.标识符不能使用VB的关键字c.标识符不能包含在VB中有特殊含义的字符2．从低到高顺序为：逻辑运算符->比较运算符->字符串连接运算符->算术运算符3．MsgBox函数的返回值一共有7个，从1到7分别对应的按钮是“确定”、“取消”、“终止”、“重试”、“忽略”、“是”、“否”4．1.添加控件2.选取控件3.移动控件4.调整控件大小5.复制控件6.删除控件7.设置控件的格式8.设置控件的间距注：答案可不分先后六、编程题（每题10分，共20分）1．For i=1 to 100 [step 1]S=s+iNext [i]Print s2．For i=3 to 100 step 3Print iNext [i]注：以上答案中出现的变量名可随意声明,“[]”符号括起来的可有可无。
VisualBasic程序设计-国家开放大学电大学习网形考作业题目答案
VisualBasic程序设计【实操题】按要求将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
一、形考任务1.请同学选择【第1章】-【实战演练】“实验1 欢迎程序”或【第2章】-【实战演练】“实验2 计时秒表程序”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
2.请同学选择课程【第3章】-【实战演练】“实验3 冒泡排序程序”，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
3.请同学选择课程【第4章】-【实战演练】“实验4 菜单设计”或【第5章】-【实战演练】“实验5鼠标MouseMove事件应用”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
4.请同学选择课程【第6章】-【实战演练】“实验6 word文件显示程序”或【第7章】-【实战演练】“实验7 绘制图形程序”或【第8章】-【实战演练】“实验8 网络下载程序”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
5.请同学选择课程【第9章】-【实战演练】“实验9 进销存管理信息系统”，在VB集成开发环境中认真完成实验。
《Visual_Basic程序设计》试题及其答案
《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言，广泛应用于图形用户界面(GUI)的开发。
下面是一套Visual_Basic程序设计的试题，以及详细的答案解析。
一、概念题（共10题，每题2分，共20分）1. 什么是Visual_Basic程序设计？答案：Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE)，用于Windows平台的程序开发和编程。
2. Visual_Basic程序设计的特点是什么？答案：Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。
3. 什么是控件？答案：控件是Visual_Basic程序设计中用于构建用户界面的基本元素，如按钮、文本框、标签等。
4. Visual_Basic程序中的数据类型有哪些？答案：Visual_Basic支持多种数据类型，包括整数、浮点数、字符串、布尔值等。
5. 什么是条件结构？答案：条件结构是一种根据不同条件执行不同操作的程序结构，如If语句和Select Case语句。
6. 什么是循环结构？答案：循环结构是一种重复执行特定操作的程序结构，如For循环和While循环。
7. 什么是函数？答案：函数是一段可重复调用的代码，通常用于实现特定功能，并可以返回结果。
8. 如何定义和调用函数？答案：在Visual_Basic中，可以使用Function关键字定义函数，并使用函数名调用函数。
9. 什么是异常处理？答案：异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制，以保证程序的稳定性。
10. Visual_Basic程序如何进行调试？答案：Visual_Basic提供了丰富的调试工具，包括断点调试、单步调试等，以帮助程序员发现和解决问题。
二、编程题（共2题，每题40分，共80分）题目一：设计一个Visual_Basic程序，实现计算器的基本功能。
vb4
Visual Basic 程序设计简明教程
第四章 基本控制语句
第四章 基本控制语句
程序设计语言的三种结构： 顺序 选择 循环
4.1 顺序结构
例: n%=“123” n%=“a123” n%=true a$=1234 a$=1234a s=s+1 x=y=z=1 ‘转换为 整数 出错 n为-1 a为“1234” 出错 x=((y=z)=1)
4.3 选择结构
4.3.3 条件函数 1. IIf函数 IIF(条件表达式，值1，值2） 条件表达式值为真时为值1，否则为值2 如：IIF(x>y,x,y) 2. Choose函数 Choose(整数表达式，选项列表） 整数表达式为1，列表第1项，... ... ... op=Choose(nop,”+”,”-”,”×”,”÷”)
常用算法（ 4.5 常用算法（一）
1. 累加 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 连乘 3～10的乘积 t=1 For i =3 To 10 t=t*i Next i Print t
4.3 选择结构
闰年 否则 不是闰年 如果结束
判断闰年
如果 年份除以400整除 或者 (除以100不整除 并且 除以4整除) 那么
If y Mod 400 = 0 Or (y Mod 100 <> 0 And y Mod 4 = 0) Then Print y & "是闰年" Else Print y & "不是闰年" End If
第四章 基本控制语句
第四章 基本控制语句
程序设计语言的三种结构： 顺序 选择 循环
4.1 顺序结构
例: n%=“123” n%=“a123” n%=true a$=1234 a$=1234a s=s+1 x=y=z=1 ‘转换为 整数 出错 n为-1 a为“1234” 出错 x=((y=z)=1)
4.3 选择结构
4.3.3 条件函数 1. IIf函数 IIF(条件表达式，值1，值2） 条件表达式值为真时为值1，否则为值2 如：IIF(x>y,x,y) 2. Choose函数 Choose(整数表达式，选项列表） 整数表达式为1，列表第1项，... ... ... op=Choose(nop,”+”,”-”,”×”,”÷”)
常用算法（ 4.5 常用算法（一）
1. 累加 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 连乘 3～10的乘积 t=1 For i =3 To 10 t=t*i Next i Print t
4.3 选择结构
闰年 否则 不是闰年 如果结束
判断闰年
如果 年份除以400整除 或者 (除以100不整除 并且 除以4整除) 那么
If y Mod 400 = 0 Or (y Mod 100 <> 0 And y Mod 4 = 0) Then Print y & "是闰年" Else Print y & "不是闰年" End If
Visual Basic课后作业
班级： 姓名： 学号：
程序设计基础与VB - 1 - （4 -1）设计一个计算购书价程序，界面如图所示。要求： 1） 界面上的文字全部为宋体五号字 2） 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键 3） 编写代码，使得运行时焦点定位在DJ文本框中，输入单价后，按Tab键可输入数量。在输入单价和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框ZJ中，单击“退出（X）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在ZJ文本框中。 提示：先将文本框中的内容使用Val函数转换后再进行计算。 4） 将ZJ文本框改换成标签，将标签的BorderStyle属性设置为1-Fixed Single，用标签输出计算结果。
代码 ： Private Sub Command1_Click() ZJ.Text = Val(DJ.Text) * Val(SL.Text) End Sub Private Sub Command2_Click() End End Sub Private Sub DJ_GotFocus() ZJ.Text = " " DJ.SelStart = 0 DJ.SelLength = Len(DJ.Text) End Sub Private Sub Command1_Click() ZJ.Caption = Val(DJ.Text) * - Val(SL.Text) End Sub
Private Sub Command2_Click() End End Sub
Private Sub DJ_GotFocus() ZJ.Text = " " DJ.SelStart = 0 DJ.SelLength = Len(DJ.Text) End Sub
（4 -2）设计一个收款计算程序，界面如图所示。要求： 1） 三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。 2） 运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。 - 1 -
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
作业2 一、选择题1．按照变量的作用域可将变量划分为（B ）。
2. 可获得字符的ASCII码的函数是（C）。
3、要退出Do….Loop循环，可使用的语句的（D）语句。
4. 把数值型转换为字符串型需要使用的函数是（B）。
5.关于语句行，下列说法正确的是（B）。
６．表达式6+10 Mod 4*2+1的值是（A）．7.以下可以作为Ｖisual Basic 变量名的是（B）．8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．10.Sub过程与Function过程最根本的区别是（D）．11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）. 12.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B )13.如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic中提供的方法是(D).14.下列可以用来存储图像供其他对象使用的控件是(C ).15.当单击工具拦上的按扭时,会触发的事件是(A ).16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的(B )方法.17.对于窗体级变量,下列说法中错误的是(C ).18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B)19.用下面的语句所定义的数组的元素的个数是(D ).20.有如下程序段:Strl=”Visual Basic”当该段程序被执行完时,变量strl的值为(B ).二、填空题1．菜单一般有_下拉式_和_弹出式__两种基本类型。
2．通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。
3．组合框具有__文本框_和__列表框_两种控件的基本功能。
4．要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句__Option Base 1_。
5．调用Sub过程时，使用__call__语句,语句用于把程序控制传送到一个Visual Basic的Sub 过程。
6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。
通过_工程_菜单__属性_命令的_通用_选项卡，可将启动窗体设置为Form2。
在程序中若要显示Form1窗体，则执行_Form1.show_语句。
7．列表框中项目的序号是从_0_开始的。
8．Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值。
9．VB的代码存储在模块中。
在VB中提供了三种类型的模块：_类模块_、_窗体模块__和_标准模块_。
10．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体__卸载_，被调用的窗体中的属性等已处于_内存中_。
11．将下列数学式子写成Visual Basic表达式。
⑴答：2*cos(a)*sin(a)/(2*a)⑵答：sqr(s*(s-a)*(s-b)*(s-c))⑶sin45°:sin(45*2*3.1415/360)_12.将下列数学式子各条件写成Visual Basic逻辑表达式。
⑴1≤x<12: 1<=x and x<12⑵A+B≥C或a-c≤c: (A+B)>=C OR (a-c)<=c⑶a和b都为正整数或同为负数: (a>=0 and b>=0) or (a<=0 and b<=0)13．设A=2，B=3，C=4，D=5。
表达式Not A<=C Or4*B^2 And B< >A+C的值为_False_。
14．在Visual Basic语言中有三种形式的循环结构。
其中，若循环的次数可以事先确定，可使用_For…next__循环；若要求先判断循环进行的条件，可使用_Do while…loop_循环或_ while…Wend_循环。
15．以下语句的输出结果是__3_。
a%=3.14159 Print a%三、阅读下列程序，写出程序运行结果。
1、Private Sub Form_Click( )Static Sum As IntegerFor I= 1 to 100Sum=Sum+INext IPrint SumEnd Sub程序运行结果为：1+2+…….+99+100=50502、private Sub Form_Click( )A=10: b=15:c=20:d=25Print A;Spc(5);b;Spc(7);cPrint A;Spc(8);b;Space$(5);cPrint c;Spc(3);”+”;Spc(3);c+dEnd Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、Private Sub Form_click( )For i% =1 to3Forj% = 1 to iPrint L Trim(Str(i%))+ “*”+L Trim(Str(j%))+ “=”;i% * j%;Next j%PrintNext i%End Sub1*1= 12*1= 2 2*2= 43*1= 3 3*2= 6 3*3= 94、Private Sub Command1_Click( )Dim a,b As IntegerA=3.4B=3.4Text1.Text=aText2.Text=bEnd SubText1显示3 、4Text2显示35、Private Sub Form_Click()For I =1 to 5Print Tab( 11 – I )For J =1 To I * 2 – 1Print “*”;NextNext iEnd Sub*************************四、程序设计题1、If Val(text1)>=500 then text2=V al(text1)*0.7 Else if Val(text1)>=300 then text2=Val(text1)*0.85 Else if Val(text1)>=200 then text2=val(text1)*0.9 Else if val(text1)>=100 then text2=val(text1)*0.95 End if2、窗体的装入事件中加入如下代码：Dim a as integerA=100Do while a <=200If (a mod 3)<> 0 thenList1.additen str(a)End ifA=a+1loop3、编写程序，打印如下的乘积表：Dim I ,j as integerPrint”*”:space(5):For i=3 to 12 step 3Print str(i);space(5);Next iPrintFor I = 15 to18Print str(i);space(3);For j=3 to 12 step3Print str(i*j);space(4);Next jPrintNext j4、乘法单选按钮的单击事件中添加如下代码：Text1=10*2除法单选按钮中添加如下代码：Text1=10/2加法单选按钮中添加如下代码：Text1=10+2减法单选按钮中添加如下代码：text1=10-2结束按钮中代码: end 或unload me5.文本框的change事件中代码如下:Select case val(text1)Case 0 Label1.caption=”星期天”+chr(13)+”(Sunday)”Case 1 Label1.caption=”星期一”+chr(13)+”(monday)”Case2 Label1.caption=”星期二”+chr(13)+”(Tuesday)”Case 3Label1.caption=”星期三”+chr(13)+”(wednesday)”Case 4Label1.caption=”星期四”+chr(13)+”(thursday)”Case 5Label1.caption=”星期五”+chr(13)+”(firday)”Case 6 Label1.caption=”星期六”+chr(13)+”(saturday)”End select 6.Picture1_mouseupIf button=2 thenI=1Msgbox” you pressed right button”End ifEnd sub7、添加按钮代码：list1.additem text1.textText1.text=””删除: if list1.text<>”” thenList1.removeitem =list1.listindexEnd if修改:If command3.caption=“修改” thenText1.text=list1.textCommand3.caption=”修改确认”ElseIf command3.caption=”修改确认” thenList1.list=list1.listindex>=text1.textCommand3.caption=”修改”End ifEnd if作业3一、选择题1、Visible Basic根据计算机访问文件的方式将文件分成三类，其中不包括（B）2、随机文件进行文件读取的单位是（B）3、为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（B）。
4、为了使drive1驱动器列表框、dir1目录路径列表框和file1文件列表框能同步协调工作，需要在（B）5、下面关于顺序文件的描述正确的是（A）6、KILL语句在VB语言中的功能是（C）。
7、可用来改变坐标度量单位的是（D）8、以下的属性和方法中，可重定义坐标系的是（C）9、当用Line方法画直线后，当前坐标在（C）10、Line (200, 200)-Step( 500, 500)将在窗体（C）画一直线。
11、设置对象的边框类型的属性是（B）。
12、为了清除图片框Picture1中的图形，应采取的正确方法是（B）13、绘制多种形状的图形，需要设置Shape控件的（A）属性。
14、绘制多种形状的直线，需要设置Line控件的（B）属性。
15、如果准备读文件，打开顺序文件“text.dat”的正确语句是（C） 16、如果准备向随机文件中写入数据，正确的语句是（C）17、下列“CommandDialog1”控件程序代码，CommandDialog1.Action=1，代表（B）18、FileFilter.Pattern=”*.bat” 程序代码执行后，会显示（A）。