第一套
一、判断题
1、Visual Basic程序开发的特点是面向对象的事件驱动。(√)
2、Print_Text是一个不合法的变量名。(×)
3、窗体的AutoRedraw属性实现了屏幕图像的重建。(√)
4、设置字体大小应使用Font属性(×)
5、Sub过程可以实现嵌套调用(√)
6、IIF函数中的三个参数都不能省略。(√)
7、块结构条件语句以End If结束,而单行结构条件语句没有End IF。(√)
8、当终值小于初值时,步长为负数。(√)
9、执行While-Wend循环时,如果一开始条件就不成立,则语句块一次也不会执行。(√)
10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√)
二、单项选择题
1.Print Format(123,”####”)执行之后的结果为【答案】B
A)#123 B)123 C)123#D)####
2.下面可以表示注释语句开头的为【答案】C
A)Re B)R C)Rem D)dim
3.下列选项中窗体载入事件为【答案】A
A)Load事件B)Click事件C)DblClick事件D)Unload事件
4.Timer控件可以使用下列哪种事件【答案】B
A)Click事件B)Timer事件C)Dblclick事件D)Change事件
5.在InputBox函数中哪一个参数是必须的【答案】A
A)Prompt B)Buttons C)Title D)Context
6.以下叙述中错误的是:【答案】C
A)如果过程被定义为Static类型,则该过程中的局部变量都是Static类型B)Sub过程中不能嵌套定义Sub过程
C)Sub过程可以嵌套调用Sub过程D)事件过程可以像通用过程一样由用户定义过程名
7.要填加一个标准模块,可使用“_____”菜单中的“添加模块”命令。【答案】C
A)文件B)视图C)工程D)工具
8.在块结构条件语句If-Then / Endif中【答案】B
(A) 必须至少有一个Elseif语句(B ) 可以有任意多个ElseIf-Then语句
(C) 如果没有Else语句,运行时将出现错误(D ) 给定的条件只能是关系表达式或逻辑表达式
9.以下Case语句中错误的是【答案】A
(A) Case 10 To 1 (B) Case Is>10
(C)Case Is>10 , Is<50 (D) Case 3,5,Is>10
10.对Do Until…Loop循环,正确的是(【答案】B)。
A.如果循环条件为常数0,则一次循环也不执行B.如果循环条件为常数0,则至少执行一次循环
C.如果循环条件是不为0的常数,则至少执行一次循环D.无论循环条件是否为"True",则至少执行一次循环
11.语句Dim arr(-3 To 5, 2 To 6) As Integer定义的数组元素有_【答案】A个。
A) 45 B) 40 C) 11 D) 54
12.下列关于Option Base语句说法错误的是______D
A) Option Base语句只能出现在窗体层或模块层B) Option Base语句不能出现在过程中
C) Option Base语句必须位于数组的定义之前D) Option Base语句只对一维数组有效
13、Visual Basic的特点不包括下面的(A)
A 不需编程
B 面向豆象的程序设计
C 可视化程序设计
D 时间驱动的程序设计
14、从键盘上能够输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)
A Left
B Mid
C String
D Instr
15、如果将布尔常量值True赋值给一个整型变量,则整型变量的值为(B)
A 0
B -1
C True
D false
16、下列符号常量的声明中,(C)是不合法的。
A Const a As Single = 1.1
B Const a As Integer = “12”
C Const a As Double = Sin(1)
D Co nst a =”OK”
17、四个字符“E”,“y”,“B”,“8”的ASCII码值最大的是(B)
A “E”
B “y”
C “B”
D “8”
18、将变量k四舍五入保留2位小数的表达式是(C)
A Int((k+0.5)*100)/100
B Int((k*100)/100)+0.5
C Int(k*100+0.5)/100
D Int(k*(100+0.5))/100”
19、30.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式,其正确的形式是(A)
A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2) C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)
20、在顺序文件中,当使用Write#语句时,文件打开的方式必须是(B)
A Output和Input
B Output和Append
C Output
D Append
三、程序分析题
1.以下语句的输出结果是(注:■表示一个空格)
a = 123
b = 456
Print a; b
A)123■456 B)■123■456 C)■123■456■D)■123■■456
【答案】D
x = -6 ^ 2
Print Sgn(x) + Abs(x) + Int(x)
A)-36 B)1 C)-1 D)-72
【答案】C
3.在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下的事件过程:
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label1.Caption = s
End Sub
程序运行后,单击命令按钮,则标签中显示的内容为
A)1 B)5 C)27 D)45
【答案】B
4.在窗体上画一个名称为Command1的命令按钮,一个名称为Label1、Label2、Label3的标签,然后编写如下的事件过程:Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序后,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A)10 10 10 B)30 30 30 C)30 30 10 D)10 30
【答案】C
5.在窗体上画一个名称为Command1的命令按钮,一个名称为Label1、Label2的标签,然后编写如下的事件过程:Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label1.Caption = x
Label2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b As Integer)
x = a * a
y = b + b
End Sub
运行程序后,则两个标签中显示的内容分别是
A)5和3 B)25和3 C)25和6 D)5和6
【答案】B
6.下面程序段求两个数中的大数,不正确的是
(A)If x>y Then Max=x Else Max=y (B)Max=IIf(x>y,x,y)
(C)If y>=x Then Max=y (D)If y>x Then Max=y
Max=x Max=x
【答案】D
7.如果x的值大于或等于y的立方,则打印“OK”,表示这个条件的单行格式的If语句是
A)If x>=y^3 Print “OK”B)If x>=y*y*y Then “OK”
C)If x>=y^3 Then Print “OK”D)If x>=y*y*y Then Print “OK”End If
【答案】C
8.下列程序段执行结果为
x = 5
y = -6
If Not x < 0 Then x = y - 3 Else y = x + 3
Print y - x; x - y
A) 3 -3 B) -9 5 C) -3 3 D) 5 -6
【答案】A
当x>=1,f(x)= ;
当x<1 ,f(x)= x2+3
(A) Select Case x
Case Is<1
f= x^2+3
Case else
f=sqr(x+1 )
End Select
(B) Select Case x
Case x>=1
f=sqr(x+1 )
Case x<1
f= x^2+3
End Select
(C ) Select Case x
Case Is>=1
f=sqr(x+1 )
Case Is<1
f= x^2+3
End Select
(D) IF x>=1 then f=sqr(x+1 ) else f= x^2+3
【答案】B
10.执行完下面的程序段后,循环执行了( )次。
For i = 1.7 To 5.9 Step 0.9
a = a + 1
Print a
Next I
A.3 B.4 C.5 D.6
【答案】C
11.下列程序段的执行结果为( )。
n = 0
j = 1
Do Until n > 2
n = n + 1
j = j + n * (n + 1)
Loop
Print n; j
A.0 1 B.3 7 C.3 21 D.3 13
【答案】C
12.以下正确的For…Next结构是
(A)For x=1 To 10
for y=1 to 10
…
Next
(B)For x=1 To 10
for y=1 to 10
…
Next y , x
(C)For x=1 To 10
for y=1 to 10
Next x
Next y
(D)For x=1 To 10
for y=1 to 10
…
Next x , y
【答案】B
13.下列程序中,第一个Do语句共执行了( )次循环。Dim i As Integer, j As Integer
i = 1
Do
j = 1
Do
Sum = Sum + j
j = j + 2
Print j;
Loop Until i > 10
Print Sum
A.10 B.20 C.5 D.7
【答案】A
14.下列语句中,a是一个数组,则使用正确的是______
A) Option Base 2B) Redim aC) Erase aD) a = Array()
【答案】C
15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______
A) 12 B) 13 C) 14 D) 15
【答案】A
16.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 1 To 3
a (i, j) = (i – 1) * 3 + j
Print a(i, j );
next j
next i
End Sub
程序运行后,单击命令按钮,窗体上显示的是______
A) 1 2 3
2 4 6
3 6 9
B) 2 3 4
3 4 5
4 5 6
C) 1 4 7
2 5 8
3 6 9
D) 1 2 3
4 5 6
7 8 9
【答案】D
17.设有如下程序:
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a = Array(1,2,3,4,5,6,7,8,9)
For i = 0 To 3
Print a(5 – i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是______
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4
【答案】C
18.执行以下Command1的Click事件过程在窗体上显示_______。
Private Sub Command1_Click()
Dim a
a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)
Print a(1); a(3); a(5)
End Sub
19、设有语句
Open"c:\Test.Dat"For Output As#1
则以下错误的叙述是(B)
A)该语句打开C盘根目录下一个已存在的文件Test.Dat B)该语句在C盘根目录下建立一个名为Test.Dat的文件
C)该语句建立的文件的文件号为1 D)执行该语句后,就可以通过Print#语句向文件Test.Dat中写入信息
20、以下代码完成对顺序文件test1.txt追加打开的是(C)
A)Open test1.txt For Input As #1 B)Open test1.txt For Output As #1
C)Open test1.txt For Append As #1 D)Open test1.txt For Redom As #1
四、上机题
1.小王有存款A元,年利率为P,存储时间为T年.请编写一个程序计算本利合计。(A 、P、T均使用Inputbox输入)
2.求100以内的素数,素数是指一个数x除了1和它本身,不能被其他任何整数整除。要求每行输出10个素数。
单击窗体,运行结果如图所示:
答案
在单击窗体的事件过程中添加代码,程序代码如下:
Private Sub Form_click()
Const N = 100
Dim i, j, Line, a(N) As Integer
For i = 0 To N - l ' 置初值
a(i) = i
Next i
For i = 2 To Sqr(N)
For j = i + 1 To N
If a(i) <> 0 And a(j) <> 0 Then
If a(j) Mod a(i) = 0 Then a(j) = 0 ' 能整除就赋0
End If
Next j
Next i
Print "显示出100以内的素数"
For i = 2 To N - 1
If a(i) <> 0 Then
Print a(i); Spc(1);
Line = Line + 1
End If
If Line <> 0 And Line Mod 10 = 0 Then Print ' 每行显示10个数
Next i
End Sub
评分标准:
1、正确给数组赋值(2分)
2、正确判断素数(3分)
3、正确输出显示结果(2分)
4、文件存盘(2分)
5、程序结构合理、清晰(1分)
二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的 D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去,其实现的方法是 D 。 12、以下选项中,不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后,Visual Basic将显示的窗口是 A 。 A.代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句: Strl=InputBox("输人","","练习") 从键盘上输人字符“示例”后,Strl的值是 D 。 A.“输入” B.“” C.“练习” D.“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间,需设置的属性是 C 。 A.Enabled B.Value C.Interval D.Text 19、能够改变复选框中背景颜色的属性是 C 。
第1题(1.0分)题号:227 表达式1 and 0的值【1】.答案:1). False 第2题(1.0分)题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案:1). False 第3题(1.0分)题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案:1). a=1 xor b=1 第5题(1.0分)题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案:1). (x mod 10) * 10 + int(x/10) 第7题(1.0分)题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案:1). 4 第8题(1.0分)题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题(1.0分)题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案:1). 1 第1题(1.0分)题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案:N 第2题(1.0分)题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案:Y 第3题(1.0分)题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案:Y 第4题(1.0分)题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案:N 第5题(1.0分)题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案:N 第6题(1.0分)题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案:Y 第8题(1.0分)题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案:Y 第9题(1.0分)题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案:Y 第10题(1.0分)题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案:Y 第1题(1.0分)题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案:B 第2题(1.0分)题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案:D 第3题(1.0分)题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案:C 第4题(1.0分)题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案:A 第5题(1.0分)题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案:C 第6题(1.0分)题号:334 若要使标签控件显示时,不覆盖其背景内容,
九江学院期末考试复习题(政法A1111)第一套 一、判断题 1、Visual Basic程序开发的特点是面向对象的事件驱动。(√) 2、Print_Text 是一个不合法的变量名。(×) 3、窗体的AutoRedraw属性实现了屏幕图像的重建。(√) 4、设置字体大小应使用Font属性(×) 5、Sub过程可以实现嵌套调用(√) 6、IIF函数中的三个参数都不能省略。(√) 7、块结构条件语句以End If结束,而单行结构条件语句没有End IF。(√) 8、当终值小于初值时,步长为负数。(√) 9、执行While-Wend循环时,如果一开始条件就不成立,则语句块一次也不会执行。(√) 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√) 二、单项选择题 1.Print Format(123,”####”)执行之后的结果为 A)#123B)123C)123#D)#### 【答案】B 2.下面可以表示注释语句开头的为 A)Re B)R C)Rem D)dim 【答案】C 3.下列选项中窗体载入事件为
A)Load事件B)Click事件C)DblClick事件D)Unload事件 【答案】A 4.Timer控件可以使用下列哪种事件 A)Click事件B)Timer事件C)Dblclick事件D)Change事件 【答案】B 5.在InputBox函数中哪一个参数是必须的 A)Prompt B)Buttons C)Title D)Context 【答案】A 6.以下叙述中错误的是: A)如果过程被定义为Static类型,则该过程中的局部变量都是Static类型B)Sub过程中不能嵌套定义Sub过程 C)Sub过程可以嵌套调用Sub过程 D)事件过程可以像通用过程一样由用户定义过程名 【答案】C 7.要填加一个标准模块,可使用“_____”菜单中的“添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8.在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句,运行时将出现错误
2011-2012学年第一学期算法与程序设计期末考试题 班级:姓名:分数: 一、单项选择题(每题4分) 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″,下面使b=″Basic″的语句是( ) A.b=Left(a,8,12) B.b=Mid(a,8,5) C.b=Right(a,5,5) D.b=Left(a,8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中,只有( )是合法的VB变量名。 A.xy23 B.23xy C.Sub D.xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A.Sin30 B.Sin(30) C.Sin(30°) D.Sin(30*3.14/180) 9.在VB的运算中,级别最高的是( ) A.= B.And C.Or D.Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A.a+b>=c Or a+c>=b Or b+c>=a B.Not(a+b
第一部分:客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时,不能使用的关键字是() A、 Dim B、 Public C、Private D、 Static 2、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是() A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点,可使用()方法来实现。 A、RefreshB、SetfocusC、GotfocusD、Value 4、下列不可作为VB变量名的是() A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是() A、 0 B、 6 C、4 D、 2 6、下列语句中,正确的赋值语句是() A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后,x的值是()。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时,不会触发的事件是() A、ClickB、MouseDownC、MouseUpD、DblClick 9、下列为整型变量的是() A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环,可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中,能正确表示条件“x,y都是奇数”的是() A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句,则数组a包含()个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
第一部分:客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时,不能使用的关键字是( ) A、 Dim B、 Public C、Private D、 Static 2、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是 ( ) A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点,可使用( )方法来实现。 A、Refresh B、Setfocus C、Gotfocus D、Value 4、下列不可作为VB变量名的是( ) A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 ( ) A、 0 B、 6 C、4 D、 2 6、下列语句中,正确的赋值语句是( ) A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后,x的值是( )。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时,不会触发的事件是( ) A、Click B、MouseDown C、MouseUp D、DblClick 9、下列为整型变量的是( ) A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环,可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中,能正确表示条件“x,y都是奇数”的是 ( ) A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
大一VB期末考试试卷及答案 1.在代码中引用一个控件时,应使用控件的( b )属性。 A.Caption B.Name C.Text D.Index 2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式( a )的值为“假”。 A.x+a <= b-y B. x > 0 AND y < 0 C.a = b OR x>y D. x+y > a+b AND NOT (y < b) 3.表达式Int(Rnd*71)+10产生的随机整数范围是( c )。 A.(10,80) B.(10,81) C.[10,80] D.[10,81] 4.函数Sgn(3.1416)的返回值是( c )。 A.-1 B.0 C.1 D.以上都不对 5.67890属于( d )类型数据。 A.整型 B.单精度浮点数 C.货币型 D.长整型 6.下列变量名中正确的是( d )。 A.3S B.Print C.Select My Name D.Select_1 7.下列赋值语句( a )是有效的。 A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0 8.以下的控件或方法具有输入和输出双重功能的为( b )。 A.Print B.Textbox C.Optionbutton D.Checkbox 9.若要获得列表框中被选中的列表项的内容,可以通过访问( d )属性来实现。 A.Name B.ListIndex C.ListCount D.Text 10.下列代码的运行结果为( b )。 Private Sub command1_click() Dim m(10)
高级语言程序设计(VB)试卷(A卷) 注意事项:1、本试卷共页,满分为100 分,考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写;文字题答题时请使用蓝、黑钢笔或圆珠笔, 不得使用红颜色墨水笔。 一、单项选择题(每空1分,共30分) (请将答案按照题干上【】内的序号涂写“标准答题卡”,否则不得分) 1.在VB 6.0中,扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2.在VB 6.0集成开发环境的设计模式下,用鼠标双击窗体上的某个对象后,打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3.设有变量定义语句Dim a%,则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4.下列表达式中,值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5.函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6.下列程序运行后,单击窗体,输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer
a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7.下列程序运行后,单击窗体,输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8.下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9.下列程序运行后,单击窗体,输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10.下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k
试卷方案:201105 Visual Basic 期末考试方案 一、单项选择_共50题(选:20题*1’=20分) 第1题 以下有关对象属性的说法中,错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ,则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性,事件和方法构成 B. 对象的所有属性既可以在属性窗口设置,又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象,并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时,如果要求菜单项是灰色,不能被用户选择,则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句,只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是(1)和(2)。 2、在VB中,最主要的两种对象是(3)和(4)。 3、工程是构成应用程序文件的(5)。 4、方法是VB提供的一种(6),用来完成一定的操作。 5、浮点类型数据包括单精度型和___(7)__数据。 6、事件是窗体或控件对象识别的___(8)____。 7、可用窗体的___(9)_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。 9、在VB中,修改窗体的(11)和(12)属性值,可改变窗体的大小。 10、双击工具箱中的控件图标,可在窗体的(13)出现一个尺寸为缺省值的控件。 11、在MsgBox函数中,如果缺省title参数,则使用(14)作为消息框的标题。 12、设x=34.58,语句Print Format(x,“000.0”)的输出结果是(15)。 13、在VB 中,数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的初值为(18)。 14、设置窗体的(19)属性,可在窗体上显示图片。 15、程序运行工程中,清除MP图片框中的图片应使用语句(20)。 二、选择题 1、菜单控件只包括一个事件,即(1),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是(2)。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示(3)。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是(4)。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是(5)。
期期末末考考试试题题 一、单项选择题(共10分) 1.在代码中引用一个控件时,应使用控件的( )属性。 A .Caption B .Name C .Text D .Index 2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式( )的值为“假”。 A .x+a <= b-y B . x > 0 AND y < 0 C .a = b OR x>y D . x+y > a+b AND NOT (y < b) 3.表达式Int(Rnd*71)+10产生的随机整数范围是( )。 A .(10,80) B .(10,81) C .[10,80] D .[10,81] 4.函数Sgn(3.1416)的返回值是( )。 A .-1 B .0 C .1 D .以上都不对 5.67890属于( )类型数据。 A .整型 B .单精度浮点数 C .货币型 D .长整型 6.下列变量名中正确的是( )。 A .3S B .Print C .Select My Name D .Select_1 7.下列赋值语句( )是有效的。 A .sum = sum -sum B .x+2 = x + 2 C .x + y = sum D .last = y / 0 8.以下的控件或方法具有输入和输出双重功能的为( )。 A .Print B .Textbox C .Optionbutton D .Checkbox 9.若要获得列表框中被选中的列表项的内容,可以通过访问( )属性来实现。 A .Name B .ListIndex C .ListCount D .Text 10.下列代码的运行结果为( )。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 – k next k
VB期末考试试题及答案 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中,最主要的两种对象是窗体 (form)和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序,用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中,修改窗体的高度(height)和宽度(width)属性值,可改变窗体的大小。 10、双击工具箱中的控件图标,可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中,如果缺省title参数,则使用工程1 作为消息框的标题。 12、设x=34.58,语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中,数值型变量的初值为0 ,Varant型变量的初值 为空,布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性,可在窗体上显示图片。 15、程序运行工程中,清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是 C 。
VB期末考试上机题编程答案 1.新建一个工程,编写一个找出所有四位幸运数显示在列表框中,并将幸运数的个数显示在文本框中。所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件无法上传,后果自负! 具体要求: 1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2、单击"查找"按钮,则开始查找并在列表框中显示结果,并在文本框中显示幸运数的个数; 3、单击“清除”按钮,则将列表框和文本框清空; 4、单击“退出”按钮,结束程序运行; 5、程序中应包含一个过程,用于判断一个数是否是幸运数。 解:Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then List1.AddItem i: a = a + 1 Next i Text1.Text = a End Sub Private Sub Command2_Click()
List1.Clear Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2. 新建一个工程,编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数,计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件无法上传,后果自负! 具体要求:
VB期末考试试题及答案 二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外得所有菜单控件都能识别该事件。A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)得Max属性所设置得就是 A 。 A、滚动框处于最右位置时,一个滚动条位置得Value属性最大设置值 B、单击滚动条与滚动箭头之间得区域时,滚动条中滚动块得最大移动量 C、单击滚动条得箭头区域时,滚动条中滚动块得最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中得*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签得属性就是 C 。
A、Enabled B、Caption C、 Default D、Font 5、要求改命令按钮显示得文本,应当在属性窗口中改变得属性就 是 A 。 A、Caption B、Name C、 Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项得选中状态,应当在属性窗口中改变得属性就是 D 。 A、Caption B、Name C、 Text D、Value 7、允许在菜单项得左边设置打勾标记,下面哪种论述就是正确 得? D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打 勾D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示 A 。 Private Sub mand1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、VBHello!VB B、VB Hello!VB C、VB D、VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2得结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件就是容器控件 B 。 A、Image B、Picture C、 boBox D、 11、若要将窗体从内存中卸载出去,其实现得方法就是 D 。
1下列语句都是在Form中定义,__C____是错的。 A.Public a3 As Integer B.Private Const A2 = 8 C.Public Const A1 = 2u D.Private a4 As Integer 2 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i <= 4 Then x = x + 1 Print x; Next i End Sub 程序运行后,单击命令按钮,其输出结果为:___A___。 A. 2 3 4 5 B. 1 2 3 4 C. 2 3 4 4 D. 3 4 5 6 3如果要在菜单中添加一个分隔线,则应将其Caption属性设置为__A____。 A.– B.* C.& D.= 4下列程序段的执行结果为___B___。 A = 0: B = 1 Do A = A + B B = B + 1 Loop While A < 10 Print A; B A. A B B.10 5 C.0 1 D.10 30 5设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是___A___。 A.menu1.Visible=False B.menu1.Enabled=False C.menu1.Visible=True D.menu1.Enabled=True
6. 以下叙述中正确的是___C___。 A.可以在运行期间改变窗体的Name属性的值 B. 窗体的Name属性值是显示在窗体标题栏中的文本 C. 窗体的Name属性指定窗体的名称,用来标识一个窗体 D. 窗体的Name属性值可以为空 7. 下列不能打开菜单编辑器的操作是__A____。 A. 按Shift+Alt+M B. 单击工具栏中的"菜单编辑器"按钮 C. 执行"工具"菜单中的"菜单编辑器"命令 D. 按Ctrl+E 8. 在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p,当单击"保存"按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是__A___。 A. Open "c:\Test2.dat" For Random As #1 Len = Len(p) Put #1,1,p Close #1 B. Open "c:\Test2.dat" For Output As #1 Put #1,1,p Close #1 C. Open "c:\Test2.dat" For Random As #1 Len = Len(p) Get #1,1,p Close #1 D. Open "c:\Test2.dat" For Random As #1 Get #1,1,p Close #1 9. 以下关于图片框控件的说法中,错误的是__B____。 A. 可以通过Print方法在图片框中输出文本 B. 用Stretch属性可以自动调整图片框中图形的大小 C. 图片框控件可以作为容器使用 D. 清空图片框控件中图形的方法之一是加载一个空图形 10.在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述
VB期末考试试题一、填空题 1、VB程序设计的主要特点是(1)和(2)。 2、在VB中,最主要的两种对象是(3)和(4)。“““””” 3、工程是构成应用程序文件的(5)。 4、方法是VB提供的一种(6),用来完成一定的操作。 5、浮点类型数据包括单精度型和___(7)__数据。 6、事件是窗体或控件对象识别的___(8)____。 7、可用窗体的___(9)_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。 9、在VB中,修改窗体的(11)和(12)属性值,可改变窗体的大小。 10、双击工具箱中的控件图标,可在窗体的(13)出现一个尺寸为缺省值的控件。 11、在MsgBox函数中,如果缺省title参数,则使用(14)作为消息框的标题。 12、设x=34.58,语句Print Format(x,“000.0”)的输出结果是(15)。 13、在VB 中,数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的初值为(18)。 14、设置窗体的(19)属性,可在窗体上显示图片。 15、程序运行工程中,清除MP图片框中的图片应使用语句(20)。 二、选择题 1、菜单控件只包括一个事件,即(1),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是(2)。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示(3)。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是(4)。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是(5)。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是(6)。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的?(7)。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示(8)。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB
一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 1、在名称为Form1的窗体上画一个名称为Chk1的复选框数组(Index属性从0开始), 含三个复选框,其标题分别为“语文”、“数学”、“英语”。利用属性窗口设置适当的属性,使“语文”未选,“数学”被选中,“英语”为灰色,再把窗体的标题设置为“选课”,程序运行时的窗体界面如图所示。 2、在名称为窗体上画一个命令按钮,其名称为Cmd1,标题为“清除”。请编写适当的事 件过程,使得程序运行后,窗体上的标题为“VB期末上机考试”,如图1所示,如单击命令按钮,则清除窗体的标题,程序运行时的窗体界面如图2所示。 Private Sub Command1_Click() Form1.Caption = "" End Sub Private Sub Form_Load() Form1.Caption = "VB期末考试" End Sub 图1 图2 3、在名称为Form1的窗体上画一个命令按钮,其名称为Cmd1,标题为“移到左上”。编写适当的事件过程,使程序运行时,如单击命令按钮,则按钮移到窗体的左上角。程序中不得使用任何变量。程序运行时的窗体界面如图。 Private Sub Command1_Click() Command1.Top = 0: Command1.Left = 0 End Sub 4、在名称为Form1的窗体上建立一个名称为L1的标签,标题为“选课”,其字号大小为4号;再建立三个复选框,名称分别为Chk1、Chk2、Chk3,标题分别为“操作系统”、“数据库原理”、和“概率论”,字体大小均为14,其中“概率论”被禁用,运行界面如图。
安全土木化工化学vb 练习题 4 满分: 111 分 姓名: ________ 1、单项选择题 (本题共计 60 分 ) 1、在过程调用中,参数的传递可以分为________________ 和 ________________ 两种方式。( ) A 、按值传递按地址传递 B 、按地址传递按参数传递 C、按参数传递按值传递 D、按位置传递按参数传递 2、下面的过程定义语句中合法的是________________________ 。( ) A 、 Sub Procl (ByVal n () ) B 、Sub Procl ( n ) As Integer C、 Function Procl (Procl ) D、 Function Procl (ByVal n ) 3、在参数传递过程中,使用关键字________________ 来修饰参数,可以使之按值传递。( ) A 、 ByVal B 、ByRef C、 Value D、 Reference 4、要想在过程调用后返回两个结果,下面的过程定义语句合法的是________________ 。( ) A 、 Sub Procl ( ByVal n , ByVal m) B 、Sub Procl ( n , ByVal m) C、 Sub Procl ( n , m) D、 Sub Procl ( ByVal n , m) 5、通用过程可以通过执行“工具”菜单中的____________ 命令来建立。( ) A、添加过程 B、通用过程 C、添加窗体 D、添加模块 6、可以在窗体模块的通用声明段中声明的是________________ 。( ) A、全局变量 B、全局常量 C、全局数组 D、全局用户自定义类型 7、当运行程序时,系统自动执行启动窗体的____________ 事件过程。( ) A 、 Load B、Click C、 UnLoad D、 GotFocus