第2题（1、0分）题号:1 2 9
＇【程序改错】
'题目:该程序实现将输入得0 —255 之间得正整数转
换成二进制数
O p t i on Explici t
P riv a t e Sub Fo r m _Cl i ck ()
Con st n = 8
Dim a(n) A s I n tege r, s As Stri ng, m A s I n te g er, x A s Integer
x = Va l (In p utB ox （”请输入一个0 — 2 55之间得正整数: ")) Prin t x
** ＊* ＊＊＊***FOUND**
Fo r m = 1 T o n
(m ) = x Mod 2
*** * *F^) D******＊** ＊
Nex t m
For m =n To 0 S t e p —1
* ＊********FOU N D * **** * * ** *
s = Str(a( m ))
Nex t m
Pri n t s
E n d Sub
答案:
(答案1)For m = 0 To n======= 答案2)x= x \ 2 或x= int(x/2)=======(答案3)s = s + St r (a (m))
第3题(l、0分) 题号:463
'题目：以下程序功能就是输入三个数,由大到小排序。
Op t io n Explicit
Di m A A s I n teger
Dim B As I n te g er
D im C As I nt e ger
P r ivat e Sub F o r m_Click()
Dim nTemp A s Integer
A = V a l(ln put
B o x (H P lease in put fi r st i nt e ger","输入正整数”))
B = Val( I n putBo x (” Pl e a s e in put s eco nd int e ge r”，"输入正整数”))
C = Va i (In pu tB o x(” P 1 e a se in put third int e ger ” ,"输入正整数”))
F OU ND * * *****
If A v= C T h en
n Te m p = A
A = B
B = n Te mp
E nd I f
> ***** ＊FOUND**** * * * ***
I f B <= C T hen
nTe mp = A
A = C
C = nTem p
* * *FO UN D * ** **
If A 〈= B T hen
nT e mp = B
B = C
C = n Temp
End If
Print ” The in te g e rs in of der is
E nd Sub
答案:
=======（答案1）=======
I f A <= B The n
==== == ===或===== === =
If B >= A Th e n
===== ==（答案2）= ======
I f C >= A T hen
=== ====（答案3）===== ==
I f B 〈 = C Then
= ===== ===或===== ====
If C >= B Th en
第4题（1、0分）题号：127
'题目:下面程序可输出如下图形
E n d If
A; B；C
* * *
/ * ***** * **
Opt io n Explic i t
Private Sub For m _C 1 ick()
Di m m As In teger , n As In t eger, s As St ring , i As In t e g e r , j As
I nte g e r
n = 4
Fo r i = 5 To 1 St ep —1
Print S p c (n)
F or j = 1 To 2
* m — 1 P r int s;
Next j
OUND*＊*
Next i
E nd Sub
* **
o U N D*** * * * ****
/ ****** * ** ***** *FOUN * ******
答案：
==== ===（答案 1）=======
Print S pc （ n ）;
=======（答案 2）=======
n = n - 1
===== ==（答案 3）==== ===
m = m + 1
第5题 （1、0分）题号:4 69
'题目：已知一个函数 f （ x ） = 1 000* s in （x ），利用绘图方法
' 在图片框中显示其图形。结果如图 1
Op t i on E x plici t
Pr i v ate C o nst pi = 3、1 4159
P r iv ate Sub man dl _C 1 ick ()
〉 ********** 匚 Cl I MH**** * ** * **
D i m x As In teg e r
P icture1、Scale (- p i , -1 2 00)—( pi, 1200)
**F O UND*＊ **
For x = -p i To p i S tep p i
1000 ＊ pi ＊ Sin(x ) )，
vbRed
En d Sub
答案：
答案 1）= 咲 ******* **FO U N D *** *******
P ic ture1、P S e t (x ,
Dim x As Single
^=^=^= ^=^=^=^= 或 ^=^=^= ^=^=^= ^=
D i m x!
_====_=(答案 2)_=_===_
F o r x = -pi T o pi Step p i / 18 0
=====_=(答案 3)====_==
Picturel 、PS et (x, 1 0 00 * S in (x)) __ =_=_===或_=======
Picture1、P Se t (x, S in(x )* 1 0 00), v bRe d
第6题 (1、0分)题号：49 7
'题目：编程求一个十进制整数n 得各位数字之与 ，设n 为小于或等于5位得数 Option Explic i t
P r ivat e S u b F o rm_Click()
Dim N As I nt eg er, S u m As I n teger, S 1 As Str ing , S2 As St r
D im i As I n te g er, Ch A s Strin g
Sum _ 0
N _ InputBox ("输入整数 n ”
S 1 = Str(N )
S1 = R T r im (S1)
For i = 1 To Len(S 1)
* FO U N D*** ***
C h = Mid ( N, i , 1)
Su m = Val(Ch )vbRed
ng ********* *F OU N D***
I****** * * * *FO U ND*** * * * ***
N e x t i
Print ”该整数得各位数之与就是: ”; Sum
E n d S ub
答案:
=== ====（答案1）== =====
S1 = Trim（S1）
== == ===（答案2）===== ==
Ch = M id（S1, i, 1 ）
= == ====（答案3）===== ==
Sum = Su m + Val（C h）
第7题（1、0分）题号：454
＇题目:本程序得功能就是随机产生得10 个两位正整数，并进行递减排序。
Option Ex p licit
P r ivate Su b C r eat eRND ()
Di m T e m p As Integer
D im I As Inte ger
Di m N As Integer
Dim X( 10) As I n t e ger
Dim J A s In te ger
N = 10
P r in t "数据："
For I = 1 To N
FO UND***
《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)
'以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:"))
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
1.程序的功能是：单击命令按钮“输出”，在图片框Picture1中输出费波那契数列的前20项项值，要求按区输出，每行输出4个项值。程序中有两处错误，请修改程序并运行，直到得出正确结果。 注意：程序中的修改行就在注释行： '**********found*************' '请不要删除该行' 的下面，请不要修改程序中的其他部分。最后把修改后的文件按原来文件名存盘。 第1个出错位置：For i=3 to 20 第2个出错位置：If i Mod 4=0 then Picture1.Print Private Sub Command1_Click() Dim f(40) As Long Dim i As Integer Picture1.Cls f(1) = 0 f(2) = 1 Picture1.Print f(1), f(2), '**********found*************' '请不要删除该行' For i = 1 To 40 For i=3 to 20 f(i) = f(i - 1) + f(i - 2) Picture1.Print f(i), '**********found*************' '请不要删除该行' If i Mod 4 = 0 Then Picture.Print If i mod 4=0 then picture1.print Next i End Sub 2. 程序的功能是：程序运行时，单击“输出”按钮，产生10个[0，99]之间的随机整数存入数组A中，并按照相反的顺序输出在窗体上。程序中有两处错误，请修改程序并运行，直到得出正确结果。 第1个出错位置：A(i)=Int(Rnd*100+0) p50 第2个出错位置：Print A(11-i); Private Sub Command1_Click() Randomize Dim A(10), I As Integer Form1.Cls For I = 1 To 10 '*********found******** '请不要删除该行 A(I) = Int(Rnd * 99) A(i)=Int(Rnd*100+0) Print A(I); Next I Print For I = 1 To 10 '*********found******** '请不要删除该行 Print A(I); Print A(11-i) (注意答案中间无;) Next I End Sub
VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%
中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型
第2题（1、0分）题号:1 2 9 ＇【程序改错】 '题目:该程序实现将输入得0 —255 之间得正整数转 换成二进制数 O p t i on Explici t P riv a t e Sub Fo r m _Cl i ck () Con st n = 8 Dim a(n) A s I n tege r, s As Stri ng, m A s I n te g er, x A s Integer x = Va l (In p utB ox （”请输入一个0 — 2 55之间得正整数: ")) Prin t x ** ＊* ＊＊＊***FOUND** Fo r m = 1 T o n (m ) = x Mod 2 *** * *F^) D******＊** ＊ Nex t m For m =n To 0 S t e p —1 * ＊********FOU N D * **** * * ** * s = Str(a( m )) Nex t m Pri n t s E n d Sub 答案:
(答案1)For m = 0 To n======= 答案2)x= x \ 2 或x= int(x/2)=======(答案3)s = s + St r (a (m)) 第3题(l、0分) 题号:463 '题目：以下程序功能就是输入三个数,由大到小排序。 Op t io n Explicit Di m A A s I n teger Dim B As I n te g er D im C As I nt e ger P r ivat e Sub F o r m_Click() Dim nTemp A s Integer A = V a l(ln put B o x (H P lease in put fi r st i nt e ger","输入正整数”)) B = Val( I n putBo x (” Pl e a s e in put s eco nd int e ge r”，"输入正整数”)) C = Va i (In pu tB o x(” P 1 e a se in put third int e ger ” ,"输入正整数”)) F OU ND * * ***** If A v= C T h en n Te m p = A A = B B = n Te mp E nd I f > ***** ＊FOUND**** * * * *** I f B <= C T hen nTe mp = A A = C C = nTem p
VB课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？
VB中常见的错误 1、运行下面的 Visual Basic程序，单击命令按钮 Command1，出现如下图所示的提示信息： Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = 10 If a >= b b = a * a + 2 * b End If Label1.Caption = Str(b) End Sub 出现该错误的原因是 A．If语句缺少Then B．If语句缺少Else C．变量a的数据类型说明错误 D．变量b的数据类型说明错误 2、某VB程序的事件过程如下所示： Private Sub Command1_Click ( ) Dim a As Integer a = Val(Text1．Text) Text1．Text = Str(Int( a )) End Sub 运行程序，单击按钮Command1后弹出如下图所示的错误提示。导致该错误的原因可能是（） A．Int函数计算时出现错误 B．Val函数应用不正确 C．窗体上缺少Text1文本框对象 D．变量a数据类型定义错误 3、某Visual Basic程序段如下： Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) * i Next i 运行该程序段，会出现的错误提示为 （A）下标越界（B）子程序或函数未定义（C）要求对象（D）溢出 Interger类型范围在-32768~32767，而1到10相乘超出这个范围 4、某Visual Basic程序如下： Private Sub Command1_Click() Dim a(1 To 10) As Integer
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/2c14726639.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
【程序改错】 '------------------------------------------------ '题目：下面的程序段用于删除数组中指定位置的数字，'如果位置错误给出提示，否则分别显示删除前后'的数组元素 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------ Private Sub Form_Click() Dim a(10) As Integer, x As Integer, i As Integer, k As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print x = InputBox("请输入要删除第几位数字") '**********FOUND********** If x > 0 And x <= 10 Then 'If x > 0 Then '**********FOUND********** For k = x To 9 'For k = x To 10 a(k) = a(k + 1) Next k Print "删除后的数组:" For i = 1 To 9 Print a(i); Next i Else Print "删除位置错误" '**********FOUND********** End If 'End End Sub 【程序改错】 '------------------------------------------------ '题目：在下列程序段中，过程fb可以显示任意长度的菲'波那契数列，现要求通过键盘输入一数字，利用'该过程显示不超过指定数字大小的数列 '------------------------------------------------
VB程序设计试题及答案（三） 一、单选题 1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A) 事件驱动(B) 按过程顺序执行 (C) 从主程序开始执行(D) 按模块顺序执行 2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。 (A) Backcolor (B) BorderStyle (C) Forecolor (D) Backstyle 3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。 (A) 文本框(B) 命令按钮 (C) 窗体(D) 标签 4. 要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。 (A) Change (B)KeyDown (C) Click (D)KeyPress 5. 数学表达式3≤x
/*------------------------------------------------------ 【程序改错】 -------------------------------------------------------- 功能：将 m（1≤m≤10）个字符串连接起来，组成一个新串，放入pt所指字符串中。 例如：把3个串：“abc”,“CD”,“EF”串连起来，结果是 “The result is: abcCDEF”。 ------------------------------------------------------*/ #include 程序改错 1.题目：已知C的公式表示如下: ' n! ' C=------------------ ' (n-m)!*m! '函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，'请修正程序中错误。 '------------------------------------------------ Option Explicit Private Function fac(k As Integer) As Single Dim x As Single, j As Integer x = 0 For j = 1 To k x = x ^ j Next j fac = x End Function Private Sub Form_Click() Dim C As Single Dim m As Integer, n As Integer m = Val(InputBox("请输入一个整数(m)：")) n = Val(InputBox("请输入一个整数(n)：")) C = fac(n) / fac(n - m) * fac(m) Print "C="; C End Sub 2.题目：程序功能为打印下列图形： ' * ' ** ' *** ' **** ' ***** '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer Dim j As Integer For i = 1 To 7 For j = 1 To 5 Print "*"; Loop Print Next i End Sub 3.题目： 本程序的功能是随机产生的10个两位正整数，并进行递减排序。'------------------------------------------------ Option Explicit Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print "数据：" For I = 1 To N X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print "排序：" For I = 0 To N - 1 For J = I + 1 To N If X(I) > X(J) Then Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub VB程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向 B 的编程环境。 (A) 机器(B) 对象 (C) 过程 (D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下 D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对 A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面 A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是 A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构 是 D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。 (A) Do While…L oop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下 B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… Next x Next x (C) For x=1 To 10 (D) For x=3 to 10 step 3 re: …… Next x Next y If i=10 Then GoTO re 12.如下数组声明语句， B 是正确的。 (A) Dim a[3,4] As Integer (B) Dim a(3,4) As Integer (C) Dim a(n,n) As Integer (D) Dim a(3 4) As Integer 13.下列语句中（假定变量n有值），能正确声明可变长数组的 是 A 。 (A) Dim a( ) As Integer (B) Dim a( ) As Integer ReDim a(n) ReDim a(n) As String (C) Dim a( ) As Integer (D) Dim a(10) As Integer ReDim a(3, 4) ReDim a(n+10) ReDim Preserve a(4, 4) 14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 C 。 (A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%) (C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%) 15.设有如下程序段： Public Sub F1(n%) … n=3*n+4 … End Sub Private Sub Command1_Click( ) Dim n%, m% n=3 m=4 … ‘调用F1语句 … End Sub 则在Command1_Click事件中有效的调用语句是 B 。 程序设计 第一题、 题目：（事件）单击窗体 （响应）求 50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。 代码： Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求 s=1+1*2+1*2*3+ ?.+1*2*3* ?.*10 并将结果存入变量S 中代码： Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求 100 以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM中 代码： Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+ ? .+15*16*17 的结果 并将结果输出到窗体上。将结果存入变量M中。 代码： Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求 100 以内奇数的和，并将结果输出在窗体上。 将结果存入变量 SUM中。 代码： Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题 VB程序设计复习题库 一、判断题（每小题2分，共20分） 在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。 (1) 事件过程可以由某个用户事件触发执行，它不能被其他过程调用。 (2) Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。 (3) For/Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。 (4) Sub过程名在过程中必须被赋值。 (5) SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。 (6) 移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性值也随之改变。 (7) 单选钮控件和复选框控件都具有Value属性，它们的作用完全一样。 (8) 当组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框 的列表项中选择，也可以由用户输入。 (9) 若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。 (10) 用Output模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。 二、单选题（每小题2分，共20分） (11) 将VB新建的“标准EXE”工程保存在磁盘上，至少会产生（）文件。 [A] .frx和.frm [B] .exe和.vbp [C] .vbp和.frm [D] .frm和.bas (12) 窗体Form1的Name属性是Frm1，它的单击事件过程名是（）。 [A] Form1_Click [B] Form_Click [C] Frm1_Click [D] Me_Click (13) 已知字符串变量x存放"1234"，表达式V al("&H"+Left(x,2))的值是（）。 [A] 0 [B] &H12 [C] 12 [D] 18 (14) 假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是 （）。 [A] 数组中每个命令按钮的名称（Name属性）均为Command1 [B] 若未做修改，数组中每个命令按钮的大小都一样 [C] 数组中各个命令按钮使用同一个Click事件过程 [D] 数组中每个命令按钮的Index属性值都相同 (15) 要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置（）属性。 [A]AutoSize [B]MultiLine [C]Alignment [D]Visible (16) 当Stretch属性为False时（）。 35. a和b中有仅只有一个为1，相应的Visual Basic逻辑表达式为（）答案：a=1 xor b=1 36. Integer类型的变量占用（）字节空间答案：2 37. Print"x="&（2=4）的结果为（）答案：x=False 38. sst="ABC12DE"，则Val（sst）=（）答案：0 39. string（3，"abc"）的结果为（）答案：aaa 40. Val（"123.55ab456"）的值是多少（）答案：123.55 41. VB6.0的基本表达式包括算数表达式，关系表达式和（）表达式答案：逻辑 42. VB的工作模式可分为三种："设计"，运行，以及（）答案：中断 43. VB6.0的连接运算符包括（）运算符和（）运算符两种答案：+ + 44. VB6.0是运行于windows 9x/NT操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即可视化设计和（）答案：事件驱动编程 45. VB表达式9^2MOD 45\2*3的值（）答案：4 46. VB的运算符包括算术运算符，（）运算符，关系运算符，逻辑运算符和特殊运算符。答案：连接 47. VB中，变量的声明可分为两种方法：隐式声明和（）答案：显示声明 48. Visual Basic中的文本框中要使该框不允许多行输入，应设置（）属性为false 答案：Multiline 49. Visual Basic6.0用于开发（）环境下的应用程序答案：WINDOWS 50. 把条件1<=x<12写成VB关系表达式为（）答案：x>=1 and x<12 51. 把整数0赋给一个逻辑型变量，则逻辑型变量的值为（）答案：False 52. 把整型数1赋给一个逻辑型变量，则逻辑型变量的值为（）答案：True 53. 变量min@表示（）类型的变量答案：货币 54. 表达式32\7 MOD 3^2的值是（）答案：4 55. 表达式1 and 0的值（）答案：False 56. 表达式[A] like[A]的值为（）答案：False 57. 表达式（-3）And 8的值为（）答案：True 58. 表达式（-3）MOD 8的值为（）答案：-3 59. 表达式81\7 MOD 2^2的值是（）答案：3 60. 表达式93\7 MOD 2^3的值是（）答案：5 61. 打开"工程窗口"的方法之一是按下（）组合键答案：CTRL+R 62. 大于X的最小整数的VB表示形式为（）答案：Int（x）+1 63. 当程序运行时，要求窗体中的文本框呈现空白，则在设计时，把此文本框的（）属性设置成空白答案：Text 64. 对象具有属性和（）答案：方法 65. 对象是既包含（）又包含对数据进行操作的方法，并将其封装起来的一个逻辑实体答案：数据 66.将焦点定位于命令按钮Command1之上的语句为（）答案：SetFocus 67. 求X与Y之积除以Z的余数的VB表达式为（）答案：x*yModz 68. 如果：I=11：J=3：I=Int（-8.6）+I\J+13 MOD 5，则I值是（）答案：-2 69. 如果：I=12：J=3：I=Int（-8.6）+I\J+13 MOD 5，则I值是（）答案：-1 70. 如果要使用命令按钮表面显示文字"退出（X）"（在字符X之下加下划线），则其Caption 属性设置为（）答案：退出（&X） 71. 如果要在单击钮时执行一段代码，则应将这段代码写在（）事件过程中答案：click 1.若要在字符串asdgewl中取dge，则使用函数____实现() 答案：Mid$(asdgewl,3,3)VB程序改错题
VB程序设计试题及复习资料一
VB程序设计题库(全)
2018年7月VB程序设计复习题库
VB程序设计填空
相关主题
文本预览