选择题在括号里面的是答案,大题答案都已经做好了,希望会对大家有帮助,加油 CC
一、单项选择题(40道小题,共40分)
1、( d)不属于面向对象系统的三要素。(1分)
A、事件
B、属性
C、
D、变量
2、如果想让代码窗口中代码的字体大些,可以使用( a )命令设置。(1分)
A、“工具”菜单的“选项”
B、“视图”菜单的“缩放”
C、“编辑”菜单的“替换”
D、“视图”菜单的“定义”
3、每建立一个窗体,
管理器窗口中就会增加一个( b )。(1分)
A、工程文件
B、窗体文件
C、程序模块文件
D、类模块文件
4、下面说法中,说法正确的是( D)。(1分)
A、在Visual Basic 6.0中的类只能是由系统
好的
B、在Visual Basic 6.0中的类只能由程序员自己设计。
C、在Visual Basic 6.0中,程序员自己设计的类只能自己使用
D、在Visual Basic 6.0中,除了系统提供的类以外,程序员也可以自己设计
5、为了同时改变一个活动控件(被选择的控件)的高度和宽度,正确的操作描述是( A )。(1分)
A、拖拉控件4个角上的某一个角上的小方块
B、只能拖拉位于控件右下角的小方块
C、只能拖拉位于控件左下角的小方块
D、不能同时改变控件的高度和宽度
6、新建一个工程,将其窗体的Name属性设置为MyFirst,则默认的窗体文件名为( C )。(1分)
A、Form1.frm
B、工程1.frm
C、MyFirst.frm
D、Form1.vbp
7、要使文本框获得焦点,应该采用( )方法。(1分)
A、GotFocus
B、LostFocus
C、KeyPress
D、SetFocus
8、Command1是一个按钮控件,程序运行时用户按下 Alt + F 就可激活并操作该按钮,这是因为( )。(1分)
A、该按钮的 Name 属性设置为"@First"
B、该按钮的 Name 属性设置为"&First"
C、该按钮的 Caption 属性设置为"@First"
D、该按钮的 Caption 属性设置为"&First"
9、要使标签中的文本靠右显示,则应将标签的Alignment属性值设置为( B )。(1分)
A、0
B、1
C、2
D、3
10、在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是( D )。(1分)
A、Timer1.InterVal=0.5
B、Timer1.Interval=5
C、Timer.Interval=50
D、Timer1.Interval=500
11、图像框Image1有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是( B )。(1分)
A、AutoSize
B、Stretch
C、AutoRedraw
D、Appearance
12、在Visual Basic6.0中,合法的字符串常量是( C )。(1分)
A、"20"06"
B、$2006$
C、"2006"
D、#2006#
13、如果逻辑与(And)运算的结果为“真”,与它所连接的两个条件必须是(C )。(1分)
A、前一个为“真”,后一个为“假”
B、前一个为“假”,后一个为“假”
C、前一个为“真”,后一个为“真”
D、前一个为“假”,后一个为“真”
14、下列是有关描述x>y和y>z同时成立的选项,正确的选项是( D )。(1分)
A、x>y .And. y>z
B、x>y>z
C、x>y And x>z
D、x>y And y>z
15、
达式25.5 Mod 6.5 的值是( A )。(1分)
A、 2
B、 4
C、 5
D、出错
16、若 a=9.8596,则执行 Print Format(a,"$00,00.00")后,显示的结果是( D )。(1分)
A、0,009.86
B、$9.86
C、9.86
D、$0,009.86
17、语句 x = x + 1 的正确含义是( C )。(1分)
A、变量x的值与 x + 1 的值相等
B、将变量x的值存到 x + 1 中去
C、将变量x的值加1后赋给变量x
D、变量x的值为1
18、表达式"Turbo"+"c" > "Ture"+"Basic"的值是( B )。(1分)
A、True
B、False
C、Null
D、出错信息
19、x=3.54+10 : Print Len(x)程序运行结果是( C )。(1分)
A、13
B、14
C、5
D、非法使用,无输出
20、表达式 Int(4*Rnd+1)*(Int(4*Rnd-1)) 值的范围是( D )。(1分)
A、[0,8]
B、[-1,8]
C、[-3,8]
D、[-4,8]
21、设有如下声明Dim x As Integer,如果Sgn(x)的值为-1,则x的值是( D )。(1分)
A、整数
B、大于0的整数
C、等于0的整数
D、小于0的整数
22、语句x=x*k的正确含义是( C )。(1分)
A、变量x的值与x*k的值相等
B、将变量x的值存到x*k中去
C、将变量x的值乘k后赋给变量x
D、变量x的值为k
23、下列关于语句 If y = 1 Then x = 1 的说法中,正确的说法是( D )。(1分)
A、x = 1 和 y = 1 均为赋值语句
B、x = 1 和 y = 1 均为关系表达式
C、x = 1 为关系表达式,y = 1 为赋值语句
D、x = 1 为赋值语句,y = 1 为关系表达式
24、假定有如下语句:s=inputbox("请输入字符串","字符串对话框","字符串"),执行该语句后,输入“等级考试”并单击“确定”,则变量s的内容是( D )。(1分)
A、请输入字符串
B、字符串对话框
C、字符串
D、等级考试
25、下列叙述中,正确的叙述是( C )。(1分)
A、MsgBox过程的返回值是一个字符串
B、执行MsgBox过程后,可以在弹出的信息框中输入一个数字
C、MsgBox过程的第1个参数不能省略
D、执行MsgBox过程后,只能出现一个带“确定”按钮的信息框
26、已知:x = 5,执行 For i = 20 To 1 Step -2: x = x + i / 5: Next i 后,x 的值为( D )(1分)
A、24
B、25
C、26
D、27
27、已知:i = 0,s = 0,执行 Do Until i >= 4: s = i + s: i = i + 1: Loop 后,s的值是( A )。(1分)
A、6
B、10
C、11
D、15
28、如果变量nop的值为4,则执行完语句 op = Choose(nop, "春", "夏", "秋", "冬") 后,op的值为( D )。(1分)
A、春
B、夏
C、秋
D、冬
29、已知:Option Base 1,Dim A(2 To 3, 4) As Integer,则数组A的元素个数及其第1维的下界分别是( B )。(1分)
A、8和1
B、8和2
C、12和1
D、12和2
30、在下列数组声明语句中,( A )是正确的。(1分)
A、Dim A%(3,4)
B、Dim A![3;4]
C、Dim A#[3,4]
D、Dim A$(3;4)
31、已知:Option Base 0,Dim A(),n% = 7,则下列操作中,错误的操作是( )。(1分)
A、ReDim A(n)
B、ReDim A(n-7)
C、ReDim A(n+2)
D、ReDim Preserve A(1 To n)
32、利用Array()函数对数组各元素赋值,声明的数组是可调数组或连( A )都可以省略的数组,并且其类型只能是Variant类型。(1分)
A、圆括号
B、方括号
C、花括号
D、尖括号
33、( A )属于构造类型数据。(1分)
A、数组
B、货币型
C、字符型
D、日期型
34、事件过程是在( C )时执行的代码段。(1分)
A、窗体调用
B、单击窗体
C、双击窗体
D、响应事件
35、Sub子过程用的结束语句是( A )。(1分)
A、End Sub
B、Exit Sub
C、End Function
D、Exit Function
36、形参表中形参的类型不能是( D )。(1分)
A、整型
B、单精度
C、双精度
D、定长字符串
37、可以在窗体模块的通用声明段中声明( A )。(1分)
A、全局变量
B、全局常量
C、全局数组
D、全局用户自定义类型
38、以下叙述中,错误的叙述是( B )。(1分)
A、一个工程中可以包含多个窗体文件
B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C、在设计Visual Basic程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D、全局变量必须在标准模块中定义
39、多窗体程序由多个窗体组成。在默认情况下,Visual Basic在应用程序执行时,总是把( C)指定为启动窗体。(1分)
A、包含控件最多的
B、包含控件最少的
C、设计时的第一个窗体
D、命名为Form1的
40、按照文件访问方式分类,不正确的被访问文件是( D )。(1分)
A、顺序文件
B、随机文件
C、二进制文件
D、数据文件
二、填空题(5道小题,共20分)
1、* 输出人才标准的文字三角形(结果如下所示)
品德
品德、知识
品德、知识、能力
品德、知识、能力、业绩
* 程序代码如下:
Option Base 1
Private Sub Form_Click()
Dim a()
= Array("品德", "、知识", "、能力", "、业绩")
For k = 1 To 4
For j = To k
Print a(j);
Next j
Print
Next k
End Sub
(4分)
2、* 根据π/4=1-1/3+1/5-1/7+…..+(-1)n-1/(2n-1),分别求n=1000、1500、2000、2500时π的近似值。
* 程序代码如下::
Private Sub Form_Click()
For i = 1000 To 2500 Step
s = 0
f =
For j = 1 To i
t = 1 / (2 * j - 1)
s = s + f * t
f = -f
Next j
Print "i="; i, "pi="; s
Next i
End Sub
(4分)
3、* 程序功能是统计二维数组a(m×m)的右上三角中奇数元素的个数。
* 程序代码如下:
Option Base 1
Dim a(), b(), c()
Private Sub Form_Click()
m = Val(InputBox("m="))
ReDim a(m, m)
For i = 1 To m
For j = I To m
a(i, j) = Int(Rnd * 100)
Next j
Next i
n = 0
For i = 1 To m
For j = I To m
If a(i, j) Mod 2 = 1 Then n = n + 1
Next j
Next i
Print "右上三角中奇数元素的个数为:"; n
End Sub
(4分)
4、* 设计一个函数过程 gcd,gcd 的功能是求最大公约数。
* 程序代码如下:
Option Base 1
Private Function gcd(ByVal m%, ByVal n%) As Integer
If m < n Then t = m: m = n: n = t
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
= r
LooP
gcd =
End Function
(4分)
5、* 程序的功能是:计算10到50之间的每个整数i的立方。
* 将结果以每行2个数(整数值i,i的立方值)的格式格式保存到文件D:\FILE2.txt中。
* 程序段如下:
Private Sub Command1_Click()
Dim i%
Open "D:\FILE2.txt" For output As #1
For i= 10 To 50
Print i, i^3
Write #1, i, I^3
Next i
Close #1
End Sub
(4分)
三、编程题(3道小题,共40分)
* 编写程序,计算并输出下面数列前n项的和(设n=50,x=0.5),要求结果保留4位小数。
sin(x)/x,sin(2x)/2x,sin(3x)/3x, …… ,sin(n*x)/(n*x) ,……
private sub form1_click
X=0.5
For i=1 to 50
T=Sin(i*x)/(i*x)
S=s+t
Next i
Print format(s,"####.0000")
End sub
(其中,sin(x)为正弦函数)
(10分)
(本题不要求填写运行结果)
请将你解答本题所写的源程序粘贴到下面或者上载源程序
设有两个一维整型数组a和b,其各有10个元素,编程先给a赋予10个随机整数,然后将a中小于或等于所有元素平均值的元素放置至b数组中并输出这些元素。
应该可以,我试过了
Dim a(1 to 10),b(1 to 10)
Dim aver as double
For i=1 to 10
A(i)=int(rnd*20+10)
Aver=aver+a(i)
Print a(i);
Next
For i=1to 10
If a(i)<=aver/10 then b(i)=a(i)
Print b(i)
(15分)
(本题不要求填写运行结果)
请将你解答本题所写的源程序粘贴到下面或者上载源程序 此题我不会
3、* 编写一个计算圆柱体表面积的程序,如图 K_514.jpg 所示。
* 界面要求:
* 使用标签、文本框、命令按钮完成。
* 运行要求:
* 窗体标题为“计算圆柱体表面积”;
* 根据用户输入的半径、高,单击“表面积”按钮,将圆柱体表面积显示到标签中;
* 如果表面积<50,则使用msgbox显示“小”,
* 如果50<=表面积<100,则使用msgbox显示“中”,
* 如果表面积>=100,则使用msgbox显示“大”。
* 注:π按照3.14计算。
* (此题要求上载窗体文件,不要求填写程序运行结果)
(【下载文件“k_514.jpg”】;)下载方法:在链接上右击打开弹出菜单,选择“目标另存为”。
(15分)
(本题不要求填写运行结果)
请将你解答本题所写的源程序粘贴到下面或者上载源程序
HTMLCONTROL Forms.HTML:Hidden.1
HTMLCONTROL Forms.HTML:Hidden.1
HTMLCONTROL Forms.HTML:Hidden.1
HTMLCONTROL Forms.HTML:Hidden.1
窗体底端