九乡新闻网迅雷iphone版下架了吗:Visual Basic 概述和可视化编程基础，语言基础和顺序结构，选择结构，循环结构，数组
来源：百度文库 编辑：九乡新闻网 时间：2024/05/01 03:42:08
一、选择题
1、VB 6.0集成开发环境中不能完成的功能是（ D ）
A.输入编辑源程序 B.编译生成可执行程序
C.调试运行程序 D.自动检查并改正程序中的错误
2、VB 6.0 集成开发环境中不包括（ A ）窗口。
A.DOS界面窗口 B.窗体窗口
C.代码窗口 D.属性窗口
3、VB 6.0 是一种面向（ B ）的编程环境。
A.机器 B.对象
C.过程 D.应用
4、下列关于VB 编程的说法中，不正确的是（ D ）
A.属性是描述对象特征的数据 B.事件是能被对象识别的动作
C.方法指示对象的行为 D.VB 程序采用的运行机制是面向对象
5、下面关于对象的描述中，（ A）是错误的。
A.对象就是自定义结构变量 B.对象代表正在创建的系统中的一个实体
C.对象是一个特征和操作的封装体 D.对象之间的信息传递是通过消息进行的
6、如果在窗体上已经创建了一个文本框对象Text1，可以通过（ C ）事件获得输入键盘的ASCII码。
A.Change B.LostFocus
C.KeyPress D.GotFocus
7、Visual Basic 是一种面向对象的可视化程序设计语言，采取了（A ）的编程机制。
A.事件驱动 B.按过程顺序执行
C.从主程序开始执行 D.按模块顺序执行
8、在Visual Basic 中最基本的对象是（ C ），它是应用程序的基石，是其他控件的容器。
A.文本框 B.命令按钮
C.窗体 D.标签
9、多窗体程序是由多个窗体组成的。在默认情况下，VB 在应用程序执行时，总是把（B ）指定为启动窗体。
A.不包含任何控件的窗体 B.设计时的第一个窗体
C.包含控件最多的窗体 D.命名为Form1的窗体
10、有程序代码如下：
Text1.Text="Text1.text"
则text1、text、"Text1.text" 分别代表（ C ）
A.对象、值、属性 B.对象、方法、属性
C.对象、属性、值 D.属性、对象、值
11、对于窗体，（ D ）属性在程序运行时其属性设置起作用。
A.MaxButton B.BorderStyle
C.Name D.Left
12、当运行程序时，系统自动执行启动窗体的（ A ）事件过程。
A.Load B.Click
C.Unload D.GotFocus
13、若要使标签控件显示时不覆盖其背景内容，要对（ D ）属性进行设置。
A.BackColor B.BorderStyle
C.ForeColor D.BackStyle
14、若要使命令按钮不可操作，要对（ A ）属性进行设置。
A.Enabled B.Visible
C.BackColor D.Caption
15、文本框没有（ D ）属性。
A.Enabled B.Visible
C.BackColor D.Caption
16、不论何控件，共同具有的是（ B）属性。
A.Text B.Name
C.ForeColor D.Caption
17、要使 Form1 窗体的标题栏显示“欢迎使用VB”，以下（D ）语句是正确的。
A.Form1.Caption=“欢迎使用VB” B.Form1.Caption= ' 欢迎使用VB '
C.Form1.Caption= 欢迎使用VB D.Form1.Caption=" 欢迎使用VB "
18、要使某控件在运行时不可显示，应对（ B ）属性进行设置。
A.Enabled B.Visible
C.BackColor D.Caption
19、要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对（ B ）属性设置就有效。
A.MaxButton B.BorderStyle
C.Width D.MinButton
20、文本框的Scrollbars 属性设置了非零值，却没有效果，原因是（B ）
A.文本框中没有内容 B.文本框的MultiLine 属性为False
C.文本框的MultiLine 属性为True D.文本框的Locked 属性为True
21、要判断在文本框中是否按下Enter 键，应在文本框的（ D ）事件中判断。
A.Change B.KeyDown
C.Click D.KeyPress
22、在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是（ C ）
A.窗体布局窗口 B.立即窗口
C.代码窗口 D.监视窗口
23、保存新建的工程时，默认的路径是（ B ）
A.My Documents B.VB 98
C.\ D.Windows
24、将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe 文件后，该可执行文件到其他机器上不能运行的主要原因是（ A ）
A.运行的机器上无VB系统 B.缺少.frm 窗体文件
C.该可执行文件有病毒 D.以上原因都不对
25、当需要上下文帮助时，选择要帮助的“难题”，然后按（ D ）键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
A.Help B.F10
C.Esc D.F1
26、以下叙述错误的是（B ）
A.打开一个工程文件时，系统自动装入与该工程有关的窗体等文件
B.打开一个窗体文件时，系统自动装入与该窗体有关的工程文件
C.保存VB 应用程序时，应分别保存窗体文件和工程文件
D.事件可以由用户激发，也可以由系统激发
二、填空题
1、VB是建立在BASIC语言基础上的＿可视＿＿化编程语言或编程环境。
2、VB程序一般以解释方式运行，也可编译成扩展名为＿exe＿＿的文件以编译方式运行。
3、在属性窗口，属性的显示方式分为＿按字母顺序＿＿和 “按分类顺序”。
4、工程资源管理器窗口顶部有3个按钮，分别为＿查看代码＿＿、“查看对象”和“切换文件夹”。
5、要新建工程时，在模块的“通用声明”段自动加入Option Explicit语句，应对＿工具＿＿菜单的＿选项＿＿的＿编辑器＿＿选项卡进行相应选项的选择。
6、对象的属性是指＿对象的性质，来描述和反应对象特征的参数＿＿。
7、在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对＿form＿ 窗体＿的＿fon＿＿属性进行设置。
8、对文本框的ScrollBars属性设置为2（有垂直滚动条），但没有垂直滚动条显示，是因为没有将＿MultiLine＿＿属性设置为True。
9、在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性＿在运行时设计是无效的＿＿。
10、当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有将＿style＿＿属性设置为1（Graphical）。
11、若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过＿＿工程＿菜单的＿工程属性＿＿的＿通用＿＿选项卡，可将启动窗体设置为Form2.在程序中若要显示Form1窗体，则执行＿Forml,show＿＿语句。
12、在文本框中，通过＿selstart＿＿属性能获得当前插入点所在的位置。
13、要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了＿locked＿＿属性值为True。
14、在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行时焦点就定位在Command1控件上，应对Command1控件设置＿TebIndex＿＿属性的值为＿＿0＿。
一、选择题
1、在一行语句内写多条语句时，每个语句之间用（B ）符号分隔。A.， B.： C.、 D.；
2、一条语句要在下一行继续写，用（C ）符号作为续行符。A.＋ B.－ C. D.…
3、下面（ A）是合法的变量名。A.X＿yz B.123abc C.intege D.X－Y
4、下面（ D ）是不合法的整常数。A.100 B.&O
5、下面（ B ）是合法的字符常数。A.ABC＄ B.”ABC C.ˋABCˊ D.ABC
6、下面（ A ）是合法的单精度型变量。A.num! B.sum% C.xinte$ D.mm#
7、下面（ D）是不合法的单精度常数。A.100! B.
8、表达式16 / 4 – 2 ^ 5 * 8 / 4 MOD 5 \ 2的值为（B ）。
A.14 B
9、数学表达式3≤ x ﹤10在VB中的逻辑表达式为（ B ）。A. 3≤x﹤10 B. 3<= xAND x ﹤10 C.x >= 3 OR x ﹤10 D.3<= x AND ﹤10
10、\、/、Mod、* 4个算术运算符中，优先级别最低的是（ C ）。A.\ B./ C.Mod D.*
11、与数学表达式ab/3cd 对应，不正确的VB算术表达式是（ D ）。A.a*b/( 3 * c * d )B.a/3 * b /c/d C.a * b/3/c/d D.a * b/3 * c * d
12、Rnd函数不可能为下列（ B ）值。A.0 B
13、Int（198.555*100+0.5）/100的值（ C ）。A.198 B.
14、已知A$="12345678",则表达式Val（Left$(A$,4)+Mid$(A$,4,2)）的值为（ B ）。A.123456 B
15、Msgbox函数返回值的类型是（ A ）。A.整型数值 B.字符串 C.变体 D.数值或字符串
16、InputBox函数返回值的类型是（ B ）。A.整型数值 B.字符串 C.变体 D.数值或字符串
17、表达式Len（“123程序设计ABC”）的值是（ A ）。A.10 B.14 C.20 D.17
18、以下关系表达式中，其值为False的是（ A ）。A."ABC">"AbC" B."女"<"男" C."BASIC"=UCase("basic") D."123"<"23"
19、下面正确的赋值语句是（ C ）。A.x+y=30 B.y=π*r*r C.y=x+30 D.3y=x
20、为了给x、y、z三个变量赋初值1，下面正确的赋值语句是（ A ）。A.x=1 :y=1:z=1 B.x=1,y=1,z=
21、赋值语句：a=123 + Mid（"123456"，3，2）执行后，a变量中的值是（D ）。A."12334" B.123 C.12334 D.157
22、赋值语句：a=123 & Mid（"123456"，3，2）执行后，a变量中的值是（ A A."12334" B.123 C.12334 D.157
23、语句：Print "Sqr(9)="; Sqr(9)的输出结果是（ B ）。A.Sqr(9)=Sqr(9) B.Sqr(9)=3 C."3"=3 D.3=Sqr(9)
24、若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合适。（ B ）A.Integer B.Long C.Singe D.String
二、填空题
1、在VB中，1234、123456&、1.2345E+5、1.2345D+5 4个常数分别表示＿整形＿、＿单精度型＿＿＿＿、＿长整形＿＿＿＿和＿＿双精度型＿＿＿类型。
2、整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是＿＿＿＿、（x Mod 10）* 10 + x \ 10＿。
3、数学表达式Sin15°+√￣x+e3￣/|x-y|-㏑(3x)的VB算术表达式为＿Sin（15 * 3.14 / 180）+ Sqr(x + Exp(3)) / Abs（x - y）- Log（3 * x）＿＿＿＿。
4、表示x是5的倍数或是9的倍数的逻辑表达式为 ＿＿x Mod 5 = 0 Or x Mod 9 = 0＿＿＿。
5、已知a=3.5，b=5.0，c=2.5，d=true，则表达式：a>=0 And a+c>b+3 Or Not d的值是＿False＿＿＿＿。
6、Int（-3.5）、Int（3.5）、Fix（-3.5）、Fix（3.5）、Round（-3.5）、Round（3.5）的值分别是＿＿-4＿＿＿、＿＿3＿＿＿、＿＿＿-3＿＿、＿＿＿3＿＿、＿＿-4＿＿＿、＿＿4＿＿＿。
7、表达式Ucase（Mid（“abcdefgh”，3，4））的值是＿＿CDEF＿＿＿。
8、在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式是＿＿x > 0 And y > 0 Or x < 0 And y < 0＿＿＿。
9、计算现在起离你毕业还有多少个星期的函数表达式是＿＿DateDiff（"d" , Now ,#
10、计算现在起离北京奥运会（以
11、表示s字符变量是字母字符（不区分大小写字母）的逻辑表达式为＿＿Ucase（s）>= "A" Ucase（s）<= "Z"＿＿＿。
第三章 选择结构
一、选择题
1、VB提供了结构化程序设计的三种基本结构，三种基本结构是（D ）
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、过程结构、输入输出结构、转向结构
D、选择结构、循环结构、顺序结构
2、结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（ B ）A、递归结构 B、选择结 C、过程结构 D、输入输出结构
3、下面程序段运行后，显示的结果是（A ）
Dim x
If x Then Print x Else Print x+1
A、1 B、0 C、-1 D、显示出错信息
4、对于语句If x=1 Then y=1,下列说法正确的是（ C ）
A、x=1和 y=1 均为赋值语句
B、x=1和 y=1 均为关系表达式
C、x=1为关系表达式，y=1为赋值语句
D、x=1为，赋值语句，y=1为关系表达式
5、下面程序段，运行后显示的结果是（ A ）
Dim x
x=Int(Rnd)+5
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
A、优秀 B、良好 C、通过 D、不通过
6、下面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
7、 下面程序段表示求两个数中的大数，（ D ）不正确。
A、Max = IIf (x > y, x, y) B、If x > y Then Max = x Else Max = y
C、Max = x D、If y > = x Then Max = y
If y >= x Then Max = y Max = x
8、下面语句执行后，变量w中的值是（ C ）
w = Choose ( Weekday("2007,5,1"), "Red" , " Green ", "Blue ", "Yellow" )
A、Null B、"Red" C、"Blue" D、"Yellow"
第四章循环结构一、选择题
1、以下（B ）是正确的。
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 B、For x = 3 To 10 Step 3
re:… …
Next x Next y
If i = 10 Then GoTo re
2、下列循环结构能正常结束循环的是（ C ）
A、i = 5 B、i = 1 C、i = 10 D、i = 6
Do Do Do Do
i = i + 1 i = i + 2 i = i + 1 i = i - 2
Loop Until i < 0 Loop Until i = 10 Loop Until i > 0 Loop Until i = 1
3、下面程序段的运行结果为（ B ）
For i = 3 To 1 Step -1
Print Spc (5 - i);
For j = 1 To 2 * i - 1
Print " * ";
Next j
Print
Next i
A、 * B、* * * * * C、* * * * * D、* * * * *
* * * * * * * * * * * *
* * * * * * * *
4、当在文本框中输入“ABCD”4个字符时，窗体上显示的是（D ）
Private Sub Text1_Change( )
Print Text1
End Sub
A、ABCD B、A C、AABABCABCD D、A
B AB
C ABC
D ABCD
5、下列那个程序段不能分别正确显示1！、2！、3！、4！的值（ B ）
A、For i = 1 To 4 B、For i = 1 To 4
n = 1 For j = 1 To i
For j = 1 To i n = 1
n = n * j n = n * j
Next j Next j
Next i Next i
C、n = 1 D、n = 1
For j = 1 To i j = 1
n = n * j Do While j < =4
Print n n = n * j
Next j Print n
j = j + 1
6、下列关于Do …Loop循环结构执行循环体次数的描述正确的是（ D ）
A、Do While …Loop循环和Do … Loop Until 循环至少都执行一次
B、Do While …Loop循环和Do … Loop Until 循环可能都不执行
C、Do While …Loop循环至少执行一次，Do … Loop Until 循环可能不执行
D、Do While …Loop循环可能不执行，Do … Loop Until 循环至少执行一次
7、下面的程序段的运行结果为（ D ）
Private Sub Command1_Click( )
For i = 1 To 5
n = 0
For j = i To 5
n = n + 1
Next j
Next i
Print n
End Sub
A、10 B、5 C、15 D、1
二、填空题
1、要使下列For语句循环执行20次，循环变量的初值应是________
For k = _______ To - 5 Step -2
2、下面程序段显示________ 个" * "
For i = 1 To 5
For j = 2 To i
Print " * "
Next j
Next i
3、下列第40号语句共执行了________ 次，第41号语句共执行了________ 次。
30 For j = 1 To 12 Step 3
40 For k = 6 To 2 Step -2
41 MsgBox (j & " " & k )
42 Next k
43 Next j
4、输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_Click()
Dim a$ , I% , c$ , d$ , n%
a = InputBox ("输入字符串")
n = _______
For I = 1 To _______
c = Mid (a ,I ,1)
Mid(a ,I ,1) = _______
________ = c
Next I
Print a
End Sub
5、找出被3、5、7除，余数均为1的最小的5个正整数。
Private Sub Command1_Click( )
Dim CountN% ,n%
CountN = 0
n = 1
Do
n = n + 1
If ________ Then
Print n
CountN = CountN + 1
End If
End Sub
6、有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最好剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。
【提示】
利用其肯定是7的倍数这个条件，然后根据同时满足除n 余m（n = 2，3，4，5，6；m =1，2，3，4，5）的逻辑关系即可。
Sub Command1_Click( )
Dim n% , m%
For n = 7 To 10000 Step 7
If n Mod 2 = 1 And ________ Then
Print n
________
End If
Next n
End Sub
7、期末某班在一周6天内考三门分别为x 、y、z的考试课程，规定一天只能考一门，课程依次按先考x，后考y，最后考z，最后一门课程最早周五考。用计算机排考试，列出满足条件的方案和方案数。
Sub Command1_Click( )
Dim x % , y% , z% , n%
n = 0
For x = 1 To 4
For y = ________ To 5
For z = 5 To 6
If _______ And y < z Then
Print x & Space(9) & y & Space(9) & z
________
End If
Next z
Next y
Next x
_______ "满足条件的方案数为；" & n
End Sub
8、某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。 Sub Command1_Click( Dim mark! ,aver! ,i% ,max1! ,min1! aver = 0 For i = 1 To 7 mark = InputBox ("输入第" & "位评委的打分") If i = 1 Then max1 = mark : ________ Else If mark < min1 Then
_______ ElseIf mark > max1 Then ___End If
_______Next aver = ________Print End Sub
9、下面程序的功能是判断100以内的孪生素数。所谓“孪生素数”是指两个数相差2的素数对，例如：3和5、11和13、29和31等。Private Sub Command1_Click Dim p1 As Boolean ,p2 As Boolean, i%, j p1 = True For i = 5 To 97 Step 2 For j = 2 To If i Mod j = 0 Then ________
Ne If j > Sqr(i) Then p2 = True Else p2 = False v If _______ Then
Print i - 2, i
End If
p1 = ________
Next i
End Sub
填空题答案
1、33
2、10
3、4、12
4、Len（a）、Int（n\2）、Mid（a，n-I+1，1）、Mid（a，n-I+1，1）
5、n Mod 3 = 1 And n Mod 5 = 1 n Mod 7 = 1、Until CountN = 5 或 While CountN < 5
6、n Mod 3 = 2 And n Mod 4 = 3 And n Mod 5 =4 And n Mod 6 = 5、Exit For
7、x + 1 、x <> y And y <> z And x <> z、n = n + 1、Label1 & =
8、min1 = mark、min1 = mark、max1 = mark、aver = aver + mark、（aver - max1 -min1）/ 5
9、Exit For 、 p1 And p2 、p2
一、选择题1、如下数组声明语句，（ 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
2、要分配存放如下矩阵的数据，（ C ）数组声明语句能实现（不能浪费空间）。
｛1.1 2.2 3.3
4,4 5.5 6.6
7.7 8.8 9.9｝
A、Dim a(9) As Single
B、Dim a(3,3) As Single
C、Dim a(-1 To 1, -5 To -3) As Single
D、 Dim a(-3 To -1,5 To 7) As Integer
3、如下数组声明语句，则数组a包含元素的个数有（ A ）
Dim a(3, -2 To 2 , 5)
A、120 B、75 C、60 D、13
4、以下程序的输出结果是（ D ）
Dim a
a = Array(1,2,3,4,5,6,7)
For i = Lbound(a) To Ubound(a)
a(i) = a(i) * a(i)
Next i
Print a(i)
A、49 B、0 C、不确定 D、程序出错
5、下列语句中（假定变量n有值），能正确声明可调数组的是（C ）
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）
6、在窗体的通用声明段自定义了数据类型Students，下列（A ）定义方式是正确的。
A、Private Type Students B、Type Students
Name As String *10 Name As String *10
Studno As Integer Studno As Integer
End Type End Type
C、Type Students D、 Type Students
Name String * 10 Name As String *10
Studno Integer Studno As Integer
End Type End Type
7、以下程序的输出结果是（ D ）
Option Base 1
Private Sub Command1_Click( )
Dim a, b（3，3）
a= Array (1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
b (i , j ) =a(i * j)
If (j >= i ) Then Print Tab (j * 3); Format (b(i,j),"###");
Next j
Next i
End Sub