第三章实习作业
（1）例3-2
（2）例3-3
（3）例3-4
（4）输入x 的值，计算y 的值,y 等于根号下X
（5）求四个数a,b,c,d 的绝对值最大数。
（6）给出一个月份，判断季节（用IF 语句）
（7）给出一个月份，判断季节（用select case 语句）
（8）判优 ，给一个百分制的成绩，要求输出成绩的等级，90分以上的为'A’，80分以上的为’B’，70分以上为’C’，60分以上的为’D’，60分以下的为’E’。要求输入的分数在[0，100]范围内，否则给出错误提示。
(9) 例3-12
(10)求S=1－2＋3－4＋5－．．．－100
（11）求1！+2！+3！+。。。+100！
（12）找出1----1000之间的同构数
（13）例3-14
(14) 输出如下图形
00
0000
000000
00000000
0000000000
000000000000
（15）求自然对数e 的近似值，当任意项的值小于10-4时结束计算，近似公式如下：结果用Print 方法输出。
！
！！！n ...e 13121111+++++= （16）设计滚动字幕板。使滚动字幕内容“海阔凭鱼跃，天高任鸟飞”在窗体从右向左循环移动。
（1）例3-2
Private Sub Command1_Click()
Dim h As Integer, f As Integer, x As Integer, y As Integer
f = 40: h = 16
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label1.Caption = "若总头数为" & h & "，总脚数为" & f & "，则" & Chr(10) & _
"鸡有" & x & "只" & "兔有" & y & "只"
End Sub
（2）例3-3
Private Sub Command1_Click()
Dim h%, f%, x%, y%
h = Val(InputBox("请输入总头数", "鸡兔同笼", 0)) f = Val(InputBox("请输入总脚数", "鸡兔同笼", 0)) x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Print "若总头数为" & h & ";若总脚数为" & f & "则" Print "鸡有" & x & "只"
Print "兔有" & y & "只"
End Sub
（3）例3-4
Private Sub Command1_Click()
Dim f%, h%, x%, y%
h = Val(Text1.Text): f = Val(Text2.Text)
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label3.Caption = "计算结果：鸡有" & x & "只，兔有" & y & "只"
End Sub
（4）输入x 的值，计算y 的值,y 等于根号下X
Private Sub Command1_Click()
Dim x!, y!
x = Text1
y = Sqr(x)
Text2 = y
End Sub
（5）求四个数a,b,c,d的绝对值最大数。Private Sub Command1_Click()
Dim a!, b!, c!, d!, x!
a = Abs(Text1)
b = Abs(Text2)
c = Abs(Text3)
d = Abs(Text4)
If a > b And a > c And a > d Then Label5 = "a的绝对值最大"
ElseIf b > a And b > c And b > d Then Label5 = "b的绝对值最大"
ElseIf c > a And c > b And c > d Then Label5 = "c的绝对值最大"
Else: Label5 = "d的绝对值最大" End If
End Sub
（6）给出一个月份，判断季节（用IF语句）Private Sub Command1_Click()
Dim a%
a = Text1
If a = 1 Or a = 2 Or a = 12 Then MsgBox "冬季"
ElseIf a = 3 Or a = 4 Or a = 5 Then MsgBox "春季"
ElseIf a = 6 Or a = 7 Or a = 8 Then MsgBox "夏季"
ElseIf a = 9 Or a = 10 Or a = 11 Then MsgBox "秋季"
Else: MsgBox "输入数据有误"
End If
End Sub
（7）给出一个月份，判断季节（用select case语句）Private Sub Command1_Click()
Dim a%
a = Text1
Select Case a
Case 1, 2, 12
MsgBox "冬季"
Case 3, 4, 5
MsgBox "春季"
Case 6, 7, 8
MsgBox "夏季"
Case 9, 10, 11
MsgBox "秋季"
End Select
End Sub
（8）判优 ，给一个百分制的成绩，要求输出成绩的等级，90分以上的为'A’，80分以上的为’B’，70分以上为’C’，60分以上的为’D’，60分以下的为’E’。要求输入的分数在[0，100]范围内，否则给出错误提示。 Private Sub Command1_Click()
Dim a!
a = Text1
If a > 100 Or a < 0 Then
MsgBox "输入有误" ElseIf a >= 90 Then MsgBox "A"
ElseIf a >= 80 Then MsgBox "B"
ElseIf a >= 70 Then MsgBox "C"
ElseIf a >= 60 Then MsgBox "D" Else: MsgBox "E" End If
End
Sub
(9) 例3-12
Private Sub Command1_Click()
Dim x!, n%
x = 13
n = 0
Do While x < 18
y = x * (1 + 0.05)
n = n + 1
x = y
Loop
MsgBox "经过" & n & "年以后，产值达到或超过" & x & "亿" End
Sub
(10)求S=1－2＋3－4＋5－．．．－100
Private Sub Command1_Click()
Dim i%, s%, f%, x%
i = 1: f = 1: x = 1
Do While i <= 100
x = i * f
s = s + x
f = -f
i = i + 1
Loop
Print s
End
Sub
（11）求1！+2！+3！+。。。+100！Private Sub Command1_Click() Dim x#, s#, i%
i = 1
x = 1
Do While i <= 100
x = x * i
s = s + x
i = i + 1
Loop
Print s
End
Sub
（12）找出1----1000之间的同构数Private Sub Command1_Click() Do While i <= 1000
n = Len(Trim(Str(i)))
x = i ^ 2 Mod 10 ^ n
If x = i Then
Print i
End If
i = i + 1
Loop
End
Sub
《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
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/0110941193.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
题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
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
1、计算圆柱体的表面积和体积 在窗体上放置5个标签，4个文本框，3个命令按钮，单击“计算”按钮，右侧文本框显示相应的结果；单击“清除”按钮，清除所有文本框的内容；单击“结束”按钮，程序结束。（用两种方法做） 2、计算长方体的体积和表面积 3、求二元一次方程的根 求二元一次方程5X2-9X-10=0，运行界面如图
1．填空题 1．在程序设计语言系统中具有固定语法含义的符号串称为（），它们通常用来表示系统提供的标准过程、函数、运算符、常量等。 2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。 3．整型数据占（）字节的内存空间。长整型数据占（）个字节的内存空间。单精度浮点型数据占（）个字节的内存空间。双精度浮点型数据占（）个字节的内存空间。日期型数据占（）个字节的内存空间。 4．100%表示100为（）型数据；100！表示100为（）型数据；100＠表示100为()型数据。 5符号常量在某一过程中说明，则该符号常量只能在（）内有效。 6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。 7．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。 8．为使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程
序中要加上（Option Explicit）语句。 9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。 10．把的小数部分四舍五入转换为整数，可使用函数（）。 11．将x四舍五入到百位（例如，若x=应舍入成23900），可使用表达式（）。 12．将x从十位截断（例如，x=应截成23800）可使用表达式（）。 13．设X为数值变量，求X的常用对数可使用的表达式是（Log(X)/Log(10)）。 14．要从字符串“VisualBASIC”中截取子字符串“BASIC”可使用函数（） 15．设S是字符串变量，并且串长度为7，写出生成由S的偶数序号字符组成的字符串的表达式（例如，把字符串”ABCDEFG”变成“BDF”）。 16．设S是字符串变量，并且串长度为7，写出用第2i–1个字符代替第2i个字符所得到字符串的表达式（例如，把字符串”ABCDEFG”变成“AACCEEG”）。 17．产生从整数a到整数b之间的随机整数可使用表达式（Int((b-a+1)*Rnd+a)）。
《VB程序设计》课程综合复习资料 一、单项选择 1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。 A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE 2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ） A．文本框的MULTILINE属性值为TRUE B．文本框的LOCKED属性值为TRUE C．文本框的MULTILINE属性值为FALSE D．文本框的LOCKED属性为FALSE 3．下列关于属性设置的叙述错误的是：（A） A．一个控件具有什么属性是VB预先设计好的，用户不能改变 B．一个控件具有什么属性是VB预先设计好的，用户可以改变 C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 4．下列说法正确的是（C ） A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立 C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码 5．下列关于窗体上控件的基本操作错误的是：（A ） A．下一次DEL键只能删除一个控件 B．按下一次DEL键可以同时删除多个控件
C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件 D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件 6．下列关于设置控件属性的叙述正确的是（C ） A．用户必须设置属性值 B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样 7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ） A．0 B．-1 C．TRUE D．FALSE 8．下列关于控件画法的叙述错误的是（D ） A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件 B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的 D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符9．应用程序设计完成后，应将程序保存，保存的过程是（D ） A．只保存窗体文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗体文件 D．先保存窗体文件（或标准模块文件），之后还要保存工程文件 10．VB应用程序的运行模式是（C ） A．解释运行模式B．编译运行模式C．两者都有D．汇编模式 11．可视化编程的最大优点是（C） A．具有标准工具箱
VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)
作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width
VB第三章练习 一、选择题 1．关于Visual Basic程序的说法不正确的是________。 A) 一行可以写多条语句，语句之间用“:”隔开 B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志 C) 程序中的大小写字母不区分 D) 变量在使用之前必须先定义类型 2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。 A) 一个空格加一个下划字符(_) B) 一个下划字符(_) C) 直接回车 D) 一个空格加一个连字符(-) 3．Visual Basic的一行可以写多条语句，语句之间用________隔开。 A) 逗号 B) 分号 C) 顿号_ D) 冒号 4．下列说法不正确的是 ________。 A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译 B) 注释语句可以作为代码中的一行 C) 注释语句不可以放在其他语句的后面 D) 代码中加入注释语句的目的是提高程序的可读性 5．下列说法不正确的是________。 A) 调试程序时，使用解释运行方式比较方便 B) 解释运行方式比编译运行方式运行应用程序的速度慢 C) 解释运行方式必须在Visual Basic集成环境下使用 D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用 6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。以下操作顺序正确的是________。 ① 创建应用程序的界面② 编写程序代码，建立事件过程 ③ 设置对象属性④ 调试运行程序，生成可执行文件 A) ①②③④ B)①③②④ C) ②①④③ D) ②③①④ 7．新建工程的快捷键是________ 。 A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E 8．工程文件的扩展名是________。 A) frm B) frx C) cls D)vbp 9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。 A) Form1＝"Visual Basic Test" B) Caption＝"Visual Basic Test" C) Form1.Text＝"Visual Basic Test" D) https://www.doczj.com/doc/0110941193.html,＝"Visual Basic Test" 10. 下列不能打开代码窗口的操作是________ 。 A) 双击窗体上的某个控件 B) 双击窗体 C) 按F7键 D) 单击窗体或控件
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
实验六 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件； 2、学习在窗体中创建常用控件 2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法 4、学习编写各控件和鼠标与键盘的事件过程 二、实验内容 1、单选按钮、复选框、框架 1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。 2）设计窗体，要求 ①标题为“设置字体”； ②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示； ③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2； ④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。 Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click()
第3章程序流程控制 3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（s=3.14159*r*r ）。 2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（Command2.Caption=＂退出＂）。 3．为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。 ４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函数的形式为（MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。 ５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。 ６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0”)和( Debug.Print “Visual BASIC 6.0”)。 ７．使用Print方法时，若用逗号分隔，则按( 标准)格式输出各表达式的值，若用分号分隔，则按( 紧凑)格式输出各表达式的值。 ８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。 ９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（If i Mod 2=0 Then print x ）。 页脚内容1
在线考试一一正在答题 作业提交1 表达式2\2 *2/2*2 mod 2的结果是 (A) 0 (B) 25 (C) 5 (D) 1 2. 下列自宦义标识符中非法的是： (A) Me (B) My (C) third (D) fIRst 3. 表达式“A” Like "[A-Z]” 的结果为： (A) A (B) Z (C) TRUE (D) FALSE 4. 表达式x>= 20 and x<= 100,其中x=37 时，结果为 (A) 100 (B) 20 (C) TRUE (D) flase 5. 逻辑表达式1>0 and Not 2<7 or 2>6的值为 (A) 0 (B) FALSE (C) 3 (D) TRUE 6. 表达式x/=2,其中x = 24.运算后x的取值为： (A) 12 (B) 6 (C) 48 (D) 24 7. 下列可以作为VB变量的是： (A) a(x*y) (B) 学生信息
(C) lxyz (D) second 8. 表达式x*=2,其中x = 25,运算后x的取值为 (A) 50 (B) 625 (C) 25 (D) 27 9. 表达式100 mod 12的结果为： (A) 10 (B) 4 (C) 8 (D) 6 20. 下列自左义标识符中合法的是： (A) lMy (B) class (C) forth (D) @home 11. 表达式4?3的结果为： (A) 8 (B) 4 (C) 32 (D) 16 12. 表达式“张三” Like “张的结果为： (A) 张 (B) TRUE (C) FALSE (D) 张三 13. 后缀为?vbp的文件表示VB的 (A) 类模块文件 (B) 窗体文件 (C) 标准类模块文件 (D) 工程文件 14. 下列变量名合法的是 (A) a_2 (B) a-b (C) 2xy (D) float
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.doczj.com/doc/0110941193.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()
习题 一、单项选择题 1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（） A.PrintA=x+y B. Print"A="；x+y C. Print"A="+Str(x+y) D. Print"A="&x+y 2、假定有如下的命令按钮(名称为Command1)事件过程： PrivateSubCommand1_Click() x=InputBox("输入："，"输入整数") MsgBox"输入的数据是：”，，”输入数据："+x EndSub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（） A. x的值是数值10 B. 输入对话框的标题是“输入整数” C. 信息框的标题是“输入数据：10” D. 信息框中显示的是“输入的数据是：” 3、有如下程序 a=3;b=4 PRINT b＜a END 运行后，输出的结果是( ) A.4＞3 B.-1 C.0 D.显示出错信息 4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1 的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字 符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件 过程是（） A. Private Sub Text1_Change() B. Private Sub Command1_Click() Command1.Caption=”计算机等级考试”Caption=”计算机等级考试” End Sub End Sub C. Private Sub Form1_Click() D. Private Sub Command1_Click() Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”
客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置 为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程 B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. Form.caption="myfrm"
C. Form1.print "myfrm" D. Form1.caption="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 10. 可获得字符的ASCII码的函数是（）。 A. Val B. Fix C. Asc D. Chr 11. 计时器没有的属性是（）。 A. Interval B. Enable C. Size D. Index 12. 以下选项中，不是Visual Basic标准控件的是（）。 A. 复选框 B. 定时器 C. 窗体 D. 命令按钮 13. 下列不能打开菜单编辑器的操作是（）。 A. 按Ctrl+E B. 单击工具栏中的“菜单编辑器”按钮 C. 执行“工具”菜单中的“菜单编辑器”命令 D. 按Shift + Alt + M 14. 使文本框获得焦点的方法是（）。 A. Setfocus B. Lostfocus C. Gotfocus D. Change 15. 以下语句Print Format $(32548.5,"000,000.00") 的输出结果是（）。 A. 32548.5 B. 32,548.5 C. 032,548.50 D. 32,548.50 16. 为了使目录路径列表Dir1的容符合驱动器列表框Drive1的选择，应当（）。 A. 在Dir1_Click事件中加入Dir1.Path=Drive1.Drive B. 在Drive1_Click事件中加入Dir1.Path=Drive1.Drive C. 在Dir1_Click事件中加入Drive1.Path=.Drive.Path D. 在Dir1_Click事件中加入Drive1.Path=.Dir1.Path
请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。
3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:
第三章建立简单的Visual Basic应用程序 教学要求： 掌握Visual Basic语言语句的语法规则，掌握赋值语句、注释、暂停与程序结束语句；通过编写简单的应用程序，了解如何用Visual Basic开发一个应用程序，掌握设计应用程序的方法，学会程序的保存、装入及运行。 知识点： 面向对象的交互式程序设计；使用Visual Basic开发应用程序。 内容导航： 一、语句 （一）语句 语句是执行具体操作的指令，每个语句以回车键结束。 （二）赋值语句 用赋值语句可以把指定的值赋给某个变量或某个带有属性的对象，一般格式为：［Let］目标操作符=源操作符 （三）注释、暂停与程序结束语句 1．注释语句 格式：Rem 注释内容 ′注释内容 2．暂停语句（Stop） 格式：Stop 3．结束语句（End） 格式：End 二、编写简单的Visual Basic应用程序 （一）用Visual Basic开发应用程序的一般步骤 在用Visual Basic开发应用程序时，需要以下3步：建立可视用户界面；设置可视界面特性；编写事件驱动代码。 （二）编写Visual Basic应用程序 1．建立用户界面 2．设置属性 3．编写代码 三、程序的保存、装入和运行 （一）保存程序 应用程序可以用4种类型的文件保存。一类是单独的窗体文件，扩展名为.frm；一类是公用的标准模块文件，扩展名为.bas；第三类是类模块文件，扩展名为.cls（本书不涉及类模块文件）；第四类是工程文件，这种文件由若干个窗体和模块组成，扩展名为.vbp。 （二）程序的装入 一个应用程序包括4类文件，即窗体文件、标准模块文件、类模块文件和工程文件，这4类文件都有自己的文件名。但只要装入工程文件，就可以自动把与该工程有关的其他3类文件装入内存。 （三）程序的运行