VB程序设计阶段性作业1

中国地质大学(武汉)远程与继续教育学院

VB程序设计课程作业1（共4 次作业）

学习层次：专升本涉及章节：第1章——第4章

一、判断题

1．在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。

2．在面向对象的程序设计中，对象是指可以访问的实体。

3．事件是由Visual Basic预先定义的对象能够识别的动作。

4．由Visual Basic语言编写的应用程序有解释和编译两种执行方式。

5．“事件过程”是用来完成事件发生后所要执行的程序代码。

6．在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。7．用DIM定义数值变量时，该数值变量自动赋初值为0。

8．函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值。9．函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式。

二、选择题

1．在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是。

A、项目（工程）窗口

B、工具箱

C、代码窗口

D、属性窗口2．窗体的FontName属性的缺省值是。

A、宋体

B、仿宋体

C、楷体

D、黑体3．将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。A、.doc与.txt B、.com与.exe C、.bat与.frm D、.vbp与.frm 4．运算符“\”两边的操作数若类型不同，则先再运算。

A、取整为Byte类型

B、取整为Integer类型

C、四舍五入为整型

D、四舍五入为Byte类型

5．Print语句的一个输出表达式为，则输出包括日期、时间信息。

A、Date

B、Month

C、Time

D、Now

6. 语句Print "5*5" 的显示结果是。

A、25

B、"5*5"

C、5*5

D、出现错误提示7．语句“Form1.Print T ab(10);"#"”的作用是在窗体当前输出行。4 A、第10列输出字符“#”B、第9列输出字符“#”

C、第11列输出字符“#”

D、输出10个字符“#”

三、填空题

1．事件是由Visual Basic预先定义的能够识别的动作。

2．新建工程时系统会自动将窗体标题设置为。

3．长整型变量（Long类型）占用个字节。

4．表达式81 \ 7 Mod 2 ^ 2的值是。

5．用随机函数产生一个两位整数的Visual Basic表达式是。

6．#20/5/01#表示类型常量。

7．设I为大于0的实数，写出大于I的最小整数的表达式。

四、程序设计题

1．编程，输入圆的半径，计算并输出圆的面积，按下列要求分别实现：

（1）界面设计尽可能美观、大方。

（2）创建一个文本框控件用于输入，单击命令按钮后通过标签控件显示计算结果。（3）修改界面和程序：单击命令按钮后，调用Inputbox函数输入数据，通过标签控件显示计算结果。

（4）新建一个文件夹，保存工程（工程文件、窗体文件等等，可以用缺省的名称，也可以重命名）在该文件夹中，然后退出Visual Basic。

（5）求计算结果具有15位有效位数，重新打开工程，检查程序并决定是否修改。

参考答案

一、判断题

1．√2．√3．√4．√5．√6．×7．√8．√9．×

二、选择题

1．C 2．A 3．D 4．C 5．D 6. C 7．A

三、填空题

1．对象

2．Form1

3．4

4．3

5．10 + Int( Rnd * 90 )

6．日期

7．Int(x)+1

四、程序设计题

1．界面设计略，过程设计如下：

方法一、用文本框控件输入圆的半径

Private Sub Command1_Click()

Dim x As Single

x = Text1.T ext

Label1.Caption = x * x * 3.141593

End Sub

方法二、用InputBox函数输入圆的半径

Private Sub Command1_Click()

Dim x As Single '若要求计算结果具有15位有效位数，声明x为Double类型x = InputBox("r=","输入圆的半径")

Label1.Caption = x * x * 3.141593

End Sub

VB程序设计作业参考答案

《VB程序设计》作业参考答案 一．选择题 1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC 25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD 51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－75BBBAD 76—80CDABC 81-85ABCD C 86-90BAADD 91-95CBBAD 96.B 二．填空题 (1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And (6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random （11）事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text (16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr （21）Output ；Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序，随机 (25)INPUT,OUTPUT,APPEND （26）程序代码窗口的字符过大或过小，可以通过（工具→选项→编辑器格式→大小）去改变。（27）窗体、控件、对象（28）界面设计（29）对象、代码（30）窗体、标准模块、类模块、工程（31）窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) （32）E D（33）81 （34）程序，数据（35）窗体、控件、对象（36）对象、代码（37）用户界面的窗体、执行具体操作的代码。（38）Picture属性、剪切板把图形粘贴 三．编程题 1. Option Base 1 Private Sub Form_click() Dim a(3) As Integer, m As Integer Do While m <> -1 And i < 3 m = InputBox("请输入第" & i + 1 & "条边") i = i + 1 a(i) = m If a(i) < 0 Then MsgBox "输入错误，请重新输入！" i = i - 1 End If Loop If a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Then

VB程序的设计_试题与答案_1

《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

VB程序设计网上作业2016

题1.若要使命令按钮不可操作，要对下列哪个属性进行设置 A、Enabled B、Visible C、BackColor D、Caption 标准答案:A 题2.打开文件的Open语句中，如果省略“For模式”，则打开的文件的存取方式是 A、顺序存取方式 B、顺序文件方式 C、随机存取方式 D、二进制方式 标准答案:C 题3.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过下列哪一个属性来控制 A、Appearance属性 B、Style属性 C、DisabledPicture属性 D、DownPicture属性 标准答案:B 题4.系统启动时自动执行下列哪一个事件过程

A、Load B、Click C、UnLoad D、GotFocus 标准答案:A 题5.VB工程中窗体文件的扩展名是 A、.bas B、.frm C、.vbg D、vbp 标准答案:B 题6.如下数组声明语句，正确的是 A、Dim x[1,4] As integer B、Dim x(1, 1 to 4) As integer C、Dim x([1,n] As integer D、Dim x(1 4) As integer 标准答案:B 题7.如下VB的特点中错误的是 A、简单易学 B、界面友好

C、不可编译 D、集成化环境 标准答案:C 题8.从随机文件读出数据使用的语句是 A、Input # 文件号，变量名 B、Get # 文件号，变量名 C、Put # 文件号，变量名 D、Write # 文件号，变量名 标准答案:B 题9.为了防止用户随意将光标置于控件之上，应 A、将控件的TabIndex属性设置为0 B、将控件的Tapstop属性设置为True C、将控件的TapStop属性设置为False D、将控件的Enabled属性设置为False 标准答案:D 题10.如果希望在InputBox的提示项中输出多行内容时，需要使用下列哪个参数实现 A、Chr(13)+Chr(10) B、Chr(13) C、Chr(10) D、Chr(10)+Chr(13) 标准答案:A

VB程序设计大作业报告

VB程序设计大作业报告 班级：机械11102班学号：201103112 姓名：孙文斌日期：2013.05.13 一、设计题目：《抓交通肇事犯》 一辆卡车违反了交通规则，撞人后逃逸。现场有三人目击事件，但都没有记住车号，记住车号的一些特征。甲说：车号的前两位数字是相同的；乙说：车号的后两位数字 是相同的，但与前两位不同；丙是位数学家，他说：四位的车号正好是一个整数的平 方。现在请你根据以上线索帮助警方找出车号以便尽快破案 二、问题分析与算法设计： 按照题目的要求造出一个前两位数相同、后两位数相同且相互间又不同的整数，然后判断该整数是否是另一个整数的平方。 假设这个四位数的前两位数字都是i，后两位数字都是j，则这个可能的四位数k为：k = 1000 * i + 100 * i + 10 * j + j 其中，i和j都在0~9之间变化。现在还需使k满足是一个整数c的平方，由于k是一个四位数，所以，m值不可能小于31和大于100，因此，可从31开始试验到100，看是否满足k == c*c，若不满足，则c加1再试，直到找到满足这些限制条件的k为止结束测试。 三、界面与结果截图： 界面截图：

结果截图： 四、结果分析与总结： 通过结果截图我们知道最后得到的车牌号为7744，首先检验甲叙述的前两位数字相同都为7，再检验乙叙述的车牌号后两位相同都为4且不与前两位相同，最后检验丙叙述的该车牌号为88的平方，所以综合上述检验分析结果满足题意。 通过此次VB程序设计从理论到实践，我学到很多很多的的东西，让我对vb程序编写有了一个初步认识。从最初的拿到题目无从下手，接着网上查阅些材料以及反复看书本上的例题使我对这个程序的编写有了一个大致轮廓，接着在草稿纸上写下程序代码，然后到计算机上反复调试，最终才算完成。在这反复调试的过程中我明白了时间是检验真理的唯一标准。这对我今后的学习中都会起到非常重要的作用。最后衷心感谢李宁老师对我vb课程的指导，祝您身体健康，工作愉快。 附录程序源代码： Private Sub command1_click() Dim i%, j%, k%, c% For i = 0 To 9 For j = 0 To 9 If i <> j Then k = i * 1000 + i * 100 + j * 10 + j For c = 31 To 100 If (c * c) = k Then Picture1.Print k End If Next c End If Next j Next i End Sub

电子科技大学15秋《VB程序设计》在线作业2满分答案

15秋《VB程序设计》在线作业2 一,单选题 1. DataCombo控件的RowSource属性是表示（）。 A. 给DataComebo控件提供列表项的字段 B. 目的表的数据源 C. 给DataCombo控件提供列表项的数据源 D. 更新目的表的字段 正确答案：C 2. 执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（）。 A. 只能写，不能读 B. 只能读，不能写 C. 既可以读，也可以写 D. 不能读，不能写 正确答案：C 3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（） 正确答案：A 4. 下列哪个属性设置文本框中文字的对齐方式（）。 A. SelLength B. Alignment C. Multiline D. ScrollBars 正确答案：B 5. 以下能判断是否到达文件尾的函数是（）。 A. BOF B. LOC C. LOF D. EOF 正确答案：D 6. 下面叙述错误的是（）。 A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器 B. 目录列表框DirListBox显示当前驱动器分层目录树 C. 文件列表框FileListBox显示选定目录中的所有文件 D. 文件列表框FileName属性是设定允许显示文件名的文件类型 正确答案：D

VB程序设计作业(二)答案

《VB程序设计》作业（二） 客观题部分： 选择题（每题1分，共15题） 1. 当VB执行下面语句后，A的值为（A ）。 A=1IF A>0 THEN A=A+1IF A>1 THEN A=0 A）0 B）1 C）2 D）3 2. 当VB执行下面语句后，输出的结果是（B ）。 Private Sub Form_Click（） score = Int(Rnd * 10) + 30Select Case scoreCase Is < 10A$ = "F"Case 10 To 19A$ = "D" Case 20 To 29A$ = "C"Case 30 To 39A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub A）AB）B C）C D）D 3. 执行下面的程序段后，x 的值为( C )。 x=2For i=1 To 10Step 3x=x+i\2Next i A) 2 B) 4 C) 7 D) 9 4. 假定有以下循环结构： Do Until 条件循环体Loop 则正确的描述是（ D ）。 A) 如果“条件”是一个为0的常数，则一次循环体也不执行 B) 如果“条件”是一个为0的常数，则至少执行一次循环体 C) 如果“条件”是一个不为0的常数，则至少执行一次循环体 D) 不论“条件”是否为“真”，至少要执行一次循环体 5. 假定有以下程序段： For i= 1 To 3For j= 5 To 1 Step -1Print i *jNextj , i 则语句“Print i *j”的执行次数是（ C ）。 A）20B）24 C）15 D）18 6. 以下程序段的输出结果为（ D ）。 x = 2y = 8Do Until y>8x = x * yy = y +1LoopPrint x A）2B）9 C）10 D）16 7. 用下面的语句所定义的数组的元素个数是（D ）。 Dim A（-3 To 5）As Integer A）6 B）7C）8D）9 8. 阅读下面的程序段： For i=1 To 2For j=1 To IFor k=j To 2x=x+1Next kNext jNext i 执行上面的三重循环后，x的值为( C )。 A) 3 B) 4 C) 5 D) 6 9.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 3x=2For j =1 To 2x=4For k=1 To 3x=x+5Next kNext jNext i Print xEnd Sub 程序运行后，单击命令按钮，输出结果是( B )。 A) 11 B) 19 C) 57 D) 63 10. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click()

VB程序设计基础

第4章VBScript基础知识 习题4 1. 选择题（可多选） （1）下列哪一个变量名称是正确的？B A. 1_ab B. ab_1 C. _ab D. ab? （2）在一段程序中a是一个变量，那么"a"是：B A. 变量 B. 直接常量 C. 字面常量 D. 符号常量 （3）下面哪条语句可以正确执行？（注：第四句我的主页两边是中文引号）C A. Response.Write "

我的主页

" B. Response.Write "

我的主页

" C. Response.Write "

我的主页

" D. Response.Write "

“我的主页”

" （4）执行语句a="6"后，变量a的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （5）执行语句a="2008-8-8"后，变量a的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （6）假设变量a=5、b=3，则执行语句c="a>b"后，变量c的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （7）语句a="abc"="abc"运行完毕后，变量a的数据子类型是?C A. 数值 B. 字符串 C. 布尔 D. 日期 （8）执行语句a=3: a=a+5后，变量a的值是： A. 3 B. 5 C. 8 D. 出错 （9）已知x=123，那么执行语句y=x \10 Mod 10后，变量y的值是? A. 0 B. 1 C. 2 D. 3 （10）已知a= "ab"，那么执行语句b="cd'" & a & " " & "ef"后，变量b的值是? （提示：请注意题目和答案中的空格） A. "cd'ab ef" B. "cd'abef" C. "cdabef" D. "cdab ef" （11）下面的语句执行完毕后，变量a、b、c、d的值分别是? <% a="1"+"1": b="1"+1: c="1" & "1": d="1" & 1 %> A. "11"、"11"、"11"、"11" B. "11"、2、"11"、"11" C. 2、2、"11"、"11" D. "11"、"11"、2、2 （12）请问表达式Not(6+3<5+2)的值是？ A. True B. False C. 9 D. 无法计算 （13）请问Int(3.45)和Int(-3.45)的值分别是什么？ A. 4、-4 B. 3、-4 C. 3、3 D. 3、-3 （14）执行语句a=Int(10 * Rnd())后，则a的值不可能出现的有? A. 0 B. 1 C. 10 D. 11 （15）在取整时按四舍五入进行的函数是？ A. Int B. Fix C. Round D. CInt （16）请问Mid("八千里路云和月",3,2)的返回值是什么？ A. "千里" B. "里路" C. "里" D. "路云" （17）执行语句a=InStr(Trim(Replace(" abcdef ","c","")),"ef")后，变量a的值是? A. 0 B. 1 C. 4 D. 5 （18）函数DateDiff("m",#2008-8-8#,#2008-10-1#)的返回值是? A. 1 B. 2 C. 54 D. 5

VB程序设计(2015大作业)

《VB程序设计》大作业 一、大作业的内容 本次大作业要求学生根据所学知识以及个人爱好，设计开发一个VB应用小程序。要能体现出： 1．《VB程序设计》各种语句的综合使用能力； 2．《VB程序设计》各种相关控件的使用能力； 3．根据具体的设计题目，设计清晰、美观界面的能力； 4．一定的综合设计能力。 二、大作业的要求 本次大作业应满足以下要求： 实用性：应用程序要有明确的应用主题，有一定的实用价值。 结构性：应用程序具有良好的程序结构。 可读性：应用程序具有较好的可读性。 全面性：应用程序应包含比较全面的功能。 友好性：合理使用VB提供的各种控件，设计友好、美观的使用界面。 三、大作业的步骤 1．根据个人兴趣、爱好，以及提交时间的要求，自己确定设计题目（可参考附件1）； 2．查找与设计题目相关的资料； 3．进行应用程序总体结构、使用功能的设计； 4．进行应用程序的界面设计和源程序代码的编写； 5．上机编辑、调试程序； 6．保存应用程序, 并生成可执行文件； 7．撰写设计报告。 四、设计报告的基本格式 设计报告的基本内容至少包括封面、正文、总结三部分。 (1）．封面(包括：题目、班级、姓名、指导教师、完成日期等信息) (2)．正文 1、课题的选材过程（设计思路）； 2、设计的将要达到的目标； 3、总体设计结构与功能； （1）总体设计结构介绍（绘制：结构流程图） （2）各功能模块运行界面的功能、算法和操作步骤； 4、设计结果分析；（运行结果展示、正确性分析） (3)．总结（感想、收获、启发、存在的问题） 五、课程大作业提交 （1）形式设计报告+ 源程序文件(含可执行文件) 其中：<1>设计报告的封面统一（附件2）； <2>源程序文件（含*.vbp；*.frm；*.exe）打包压缩成一个文件， 以学号+姓名（例如：12020741姓名）为文件名。 （2）时间2015年6月1日之前； （3）方法纸质报告及压缩文件交各班学委，按顺序排好后由学委统一上交；

《VB程序设计基础》模拟精彩试题

《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。

VB程序设计阶段性作业1

中国地质大学(武汉)远程与继续教育学院 VB程序设计课程作业1（共4 次作业） 学习层次：专升本涉及章节：第1章——第4章 一、判断题 1．在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。 2．在面向对象的程序设计中，对象是指可以访问的实体。 3．事件是由Visual Basic预先定义的对象能够识别的动作。 4．由Visual Basic语言编写的应用程序有解释和编译两种执行方式。 5．“事件过程”是用来完成事件发生后所要执行的程序代码。 6．在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。7．用DIM定义数值变量时，该数值变量自动赋初值为0。 8．函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值。9．函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式。 二、选择题 1．在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是。 A、项目（工程）窗口 B、工具箱 C、代码窗口 D、属性窗口2．窗体的FontName属性的缺省值是。 A、宋体 B、仿宋体 C、楷体 D、黑体3．将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。A、.doc与.txt B、.com与.exe C、.bat与.frm D、.vbp与.frm 4．运算符“\”两边的操作数若类型不同，则先再运算。

A、取整为Byte类型 B、取整为Integer类型 C、四舍五入为整型 D、四舍五入为Byte类型 5．Print语句的一个输出表达式为，则输出包括日期、时间信息。 A、Date B、Month C、Time D、Now 6. 语句Print "5*5" 的显示结果是。 A、25 B、"5*5" C、5*5 D、出现错误提示7．语句“Form1.Print T ab(10);"#"”的作用是在窗体当前输出行。4 A、第10列输出字符“#”B、第9列输出字符“#” C、第11列输出字符“#” D、输出10个字符“#” 三、填空题 1．事件是由Visual Basic预先定义的能够识别的动作。 2．新建工程时系统会自动将窗体标题设置为。 3．长整型变量（Long类型）占用个字节。 4．表达式81 \ 7 Mod 2 ^ 2的值是。 5．用随机函数产生一个两位整数的Visual Basic表达式是。 6．#20/5/01#表示类型常量。 7．设I为大于0的实数，写出大于I的最小整数的表达式。 四、程序设计题 1．编程，输入圆的半径，计算并输出圆的面积，按下列要求分别实现： （1）界面设计尽可能美观、大方。

作业一 简单VB程序设计

作业一简单VB程序设计 1.对于窗体，下面______属性在程序运行时其属性设置起作用。 （A）MaxButton （B）BorderStyle （C）Name （D）Left 2.类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为______。 （A）对象（B）容器（C）实体（D）类 3.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 4.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言 5.文本框没有______属性。 （A）Enabled （B）Visible （C）BackColor （D）Caption 6.不论何控件，共同具有的是______属性。 （A）Text （B）Name （C）ForeColor （D）Caption 7.要使Form1窗体的标题栏显示"欢迎使用VB"，以下______语句是正确的。 （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption='欢迎使用VB ' （C）Form1.Caption=欢迎使用VB （D）Form1.Caption="欢迎使用VB " 8.要使某控件在运行时不可显示，应对______属性进行设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption 9.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列______属性设置就有效。（A）MaxButton （B）BorderStyle （C）Width （D）MinButton 10.当运行程序时，系统自动执行启动窗体的______事件过程。 （A）Load （B）Click （C）UnLoad （D）GotFocus 11.当文本框的ScrollBars属性设置了非零值，却没有效果，原因是______。 （A）文本框中没有内容（B）文本框的MultiLine属性为False （C）文本框的MultiLine属性为True （D）文本框的Locked属性为True 12.要判断在文本框是否按了Enter键，应在文本框的______事件中判断。 （A）Change （B）KeyDown （C）Click （D）KeyPress 13.将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是______。 （A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对 14.当需要上下文帮助时，选择要帮助的"难题"，然后按______键，就可出现MSDN窗口及显示所需"难题"的帮助信息。 （A）Help （B）F10 （C）Esc （D）F1 15.Visual Basic有三种工作模式，它们分别是______模式。 （A）设计、编译和运行（B）设计、运行和中断 （C）设计、运行和调试（D）编译、运行和调试 答案：DADBD BDBBA BDADB

2016VB程序设计网上作业

题1、用来设置粗体字的属性就是( ) A、FontItalic B、FontName C、FondBold D、FontSize 标准答案:C 题2、设置框架的下列哪一个属性值为False,其标题会变灰,框架中所有的对象均被屏蔽 A、Enabled B、Caption C、Name D、Visible用来设置粗体字的属性就是( ) 标准答案:A 题3、如下数组声明语句中,数组a包含元素的个数为:( ) Dim a(1 to 3, -2 to 2, 3) A、120 B、75 C、60 D、13 标准答案:C 题4、当文本框的ScrollBars属性设置了非零值,却没有效果,原因就是( ) A、文本框中没有内容 B、文本框的MultiLine属性为False C、文本框的MultiLine属性为True D、文本框的Locked属性为True

题5、下列选项中不正确的就是( ) A、Show方法可以用来加载与显示一个窗体 B、Hide方法可以将窗体暂时隐藏起来,而不从内存中删除 C、当用Show方法显示窗体时,必定会发生Load事件 D、当用Show方法显示窗体时,必定会发生Activate事件 标准答案:C 题6、表达式mid$(“1234567”, 3, 2)+4的结果就是( ) A、3454 B、1234 C、38 D、45 标准答案:C 题7、下面循环语句控制的循环次数就是:( ) For i=－5 To 18 Step 3 A、5 B、7 C、8 D、9 标准答案:C 题8、在用菜单编辑器设计菜单时,必须输入的项就是( ) A、快捷键 B、标题

D、名称 标准答案:D 题9、计时器控件的Interval属性可以设定Timer 事件触发的时间间隔,其时间间隔以下列哪一个为单位 A、毫秒 B、秒 C、分 D、小时 标准答案:A 题10、Dim a, b As Integer语句定义的变量类型为( ) A、a, b都就是整型 B、a就是整形, b未必就是整型 C、a未必就是整型, b就是整型 D、a, b都不就是整型 标准答案:C 题11、设定文件列表框中所显示的文件类型,应修改该控件的哪个属性属性( ) A、Path B、Pattern C、 D、Name 标准答案:B 题12、VB集成环境中通常在下列哪一个进行设计( )

20秋《VB程序设计》在线作业2【电子科技大学答案】

20秋《VB程序设计》在线作业2 红字部分为答案！ 单选题 1.当一个工程含有多个窗体时，其中的启动窗体是()。 A.启动Vosual Basic时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体工程属性 D.在“工程属性”对话框中指定的窗体 2.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是()。 A.Autosize B.Stretch C.Autoredraw D.Appearance 3.使文本框获得焦点的方法是()。 A.GotFocus B.Change C.ListFocus D.SetFocus 4.在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是()。 A.Enabled B.Visible C.Interval D.Timer 5.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。 A.4321 B.1234 C.34 D.12 6.在窗体上创建一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是()。 A.Visual Basic B.“程序设计” C.“A程序设计” D.“Visual Basic程序设计”

《VB程序设计基础》习题答案

程序设计基础 P16 习题一 一，判断题1，错2，对3，错4，错5，6，7，对 二，单选题1，B 2，B 3，D 4，A 5，D 6，B 7，B 8,C 9,D 三, 程序设计题 5, Private Sub Command1_Click() Form1.FontName = "宋体" Form1.Print "中文字体宋体" End Sub Private Sub Command2_Click() Form1.FontName = "楷体_GB2312" Form1.Print "中文字体楷体" End Sub Private Sub Command3_Click() Form1.FontName = "仿宋_GB2312" Form1.Print "中文字体仿宋" End Sub P42 习题二 一，判断题 1,2，3，7，10，对 4，5，6，8，9，11，12，13，14 错 二，单选题 1，A 2，C 3，C 4，B 5，B 6，A 7，B 8，C 9，B 10，C 11，C 12，D 13，B 14，A 15，D 16，B 17，B 18，C 19，B 20，B 21，B 22，D 23，A 24，C 25，B 26，A 27，D 28，B 三，简答题 1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a ) (2) Sqr( s*(s–a)*(s–b )*(s - c)) (3) ( A^2 + B*C*(X +Y)) / (A+B) (4) ( 2* 3.14159*r +Exp(-5))* Log(x) (5) 1/( x + 1/(y+1) ) (6) k / ( 1 + a * Exp(-b*x) ) (7) 5 + 6*x / ( 3 * (x^2-1) - 2*x ) (8) Sqr( y^3 + 3 * (a^2+b^2) / (x^2+y^2) ) 2. (1) (a+b) Mod c (2) Sqr(Abs(x)) (3) Int(x) + 1 (4) Int(Rnd *101)+200 3. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Long a = InputBox("请输入a的值") b = InputBox("请输入b的值") c = InputBox("请输入c的值") y = a ^ 2 + 2 * b ^ 2 + 2 * c ^ 2 Print " y = "; y End Sub 4。（1） F （2）T (3) F (4) T 5 . （1）1<=x And x<12 （2）T+3<>V-2 And (T+V)>100 （3）(a+b) >= c or (a-c) <= c （4）a>0 And Int(a)=a And b>0 And Int(b)=b or a<0 And b<0 （5）x<=y Or x>=z （6）a=0 And b<>0 or a<>0 And b=0 四, 编程题 1. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Single a = InputBox("请输入正整数a的值") b = InputBox("请输入正整数b的值") c = InputBox("请输入正整数c的值") y = (a + b + c) / 3 Print " 平均值y = "; y End Sub 2. Private Sub Form_Click() Dim r As Integer, s As Single Const Pi = 3.14159 r = InputBox("输入圆半径", "输入", 10) s = Pi * r * r MsgBox "圆面积Area =" & Str(s) End Sub P78 习题三 一，1，A 2，B 3，B 4，A 5，C 二，1，37，55，64，28，19 2，y=KIGECA 3， 1

VB程序设计基础大作业

《VB程序设计基础》全校选修课结课作业指导单 1、从以下所给题目中选择4个题目，要求独立完成，不能雷同； 2、作业中要体现设计过程，可以应用多窗体实现，对每一个窗体配以合适背景图片； 3、要求有界面抓图，配以程序设计思想； 4、最后一节实验课提交大作业，作业要求打印加封皮，并在课上对作业进行答辩。

《VB程序设计基础》校选修课 结课作业 2012~2013学年第一学期 班级： 姓名： 学号： 成绩： 答辩情况 教师：胡英

可选题目： 1、简单计算器的设计（如果用控件数组完成可获得加分） 说明：如果计算需要两个操作数，两个数分别从两个文本框输入，如果计算只需要一个操作数，操作数取自界面上面的文本框。（考虑细节如非数字提示、初零、负数不能开平方、有退出提示等等） 2、设计一如下验证密码的输入框窗体，当单击“确定”后，给出验证情况，点击 “退出”根据提示是否退出系统。 说明：密码设定长度及是否为数字提示，退出要给出提示 3、设计如下界面的倒计时

当单击“设置倒计时”时，弹出如下输入框： 单击“启动倒计时”，开始倒计时，时间到，弹出如下框，当单击“是”，则退出系统。 4、设计如下改变标签中字体的菜单 注：“字体”菜单为右键弹出式菜单。 5、设计一个如下图所示的程序： 要求使用两个列表框（组合框）完成该题目，通过添加按钮将文本框中的内容添加到左边的列表框，下面数字为统计数字，该数字要根据左边列表框中内容的变化做相应调整，如果选中左边列表框中的内容按删除按钮，被删除的条目从左列表框消失，添加到右列表框中，并调整统计数字。（考虑空信息的添加及多条信息的添

《 VB程序设计基础 》期中练习一

《 VB 程序设计基础 》期中练习一 一、单选题（40%，每小题2分） 1．在设计窗体时双击窗体的任何地方，可以打开的窗口是___。 A ．代码窗口 B ．属性窗口 C ．工程资源管理器窗口 D ．工具箱窗口 2．Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是 。 A ．属性、控件和方法 B ．属性、事件和方法 C ．窗体、控件和过程 D ．控件、过程和模块 3．函数Int( 6 * RND )+1的值是在哪个范围内的整数？___ A ． [0,6] B ． [0,7] C ． [1,6] D ． [1,7] 4．代数式 的VisualBasic 表达式是 。 A ．a+b/Sqr(c+Log(a))+c/d B ． (a+b)/Sqr(c+Log(a))+c/d C ．(a+b)/(Spr(c+Log(a))+c/d) D ． (a+b)/(Sqr(c+Log(a))+c/d) 5．数学式子sin25°写成VB 表达式是 。 A ．Sin25 B ．Sin （25） C ．Sin （25*3.14/180） D ．Sin(25°) 6．下面 是日期型常量。 A ．"12/19/99" B ．12/19/99 C ．#12/19/99# D ．{12/19/99} 7．若x 是一个正实数，对x 的第3位小数四舍五入的表达式是______。 A ．0.01*Int(x+0.005) B ．0.01*Int(100*(x+0.005)) C ．0.01*Int(100*(x+0.05)) D ．0.01*Int(x+0.05) 8．哪一条语句执行后将会删除文本框Text1中的文本？ A ．Text1.Text=”” B ．Text1.SelText=”” C ．Text1.Clear D ．Text1.SelText.Clear ９．下列函数中，返回值是字符串的是 。 A ．Chr B ．InStr C ．Val D ．Asc 10．可作为Visual Basic 变量名的是 。 A ．show B ．Alphi_1 C ．2E3 D ．4D+2 11．不正确的VB 常量是 。 A ．123! B ．&HABC C ．&O18 D ．#1-1-03# 12．变量X# 占 字节内存容量。 A ．2 B ．4 C ．6 D ．8 13．声明符号常量应该用关键字 。 A ．Static B ．Const C ．Private D ．Variant d c a c b a + ++ln