一、单项选择题
1. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ C ）
（A）工程资源管理器窗口 （B）工具箱窗口
（C）代码窗口 （D）属性窗口
2. 有程序代码如下：=“visual basic” 则：text1、text和“visual basic”分别代表 （ C ）
（A）对象，值，属性 （B） 对象，方法，属性
（C） 对象，属性，值 （D） 属性，对象，值
3．以下各表达式中, 计算结果为0的是 （D ）
（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. 确定一个控件在窗体上的位置的属性是 （ C ）
（A）Width和Height （B）Width或Height
（C）Top和Left （D）Top或Left
5．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是 （C ）
（A）分支1 （B）分支2
（C）Else分支 （D）程序出错
6. 以下叙述中正确的是 （ A ）
（A）窗体的Name属性指定窗体的名称，用来标识一个窗体
（B）窗体的Name属性的值是显示在窗体标题栏中的文本
（C）可以在运行期间改变对象的Name属性的值
（D）对象的Name属性值可以为空
7. 若要设置标签的背景颜，使用的属性是 （ B ）
（A）Color （B）BackColor （C）ForeColor （D）FontBold
8.下面 是合法的变量名 （ A ）
（A）X_yz （B）123abc （C）integer （D）X#Y
9. 表达式16/4-2^5*8/4 mod 5\2的值为 （ D ）
（A）14 （B）4 （C）20 （D）2
10. 已知A$=”12345678”，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为 （ B ）
（A）123456 （B）123445 （C）1279 （D）”123445”
11．以下关于文件的叙述中，错误的是 （B ）
（A）顺序文件中的记录一个接一个地顺序存放 （B）随机文件中记录的长度是随机的
（C）执行打开文件的命令后，自动生成一个文件指针 （D）LOF函数返回给文件分配的字节数
12．设x=4,y=8,z=7，以下表达式的值是 （D ）
x<y And (Not y>z) Or z<x
（A）1 （B）-1
（C）True （D）False
13．代数式的Visual Basic表达式是 （D ）
（A）a+b/sqr(c+Log(a))+c/d （B）(a+b)/(Abs(c+Log(a))+c/d)
（C）a+b/(Abs(c+Log(a))+c/d) （D）(a+b)/(sqr(c+Log(a))+c/d)
14．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
Sum = sum+a(i)
Next i
x=Sum/5
For i =1 To 5
If a(i)>x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是 （ B ）
（A）1 2 （B）4 5
（C）1 2 3 （D）3 4 5
15. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=InputBox(“请输入第一个数”)
b=InputBox(“请输入第二个数”)
Print b+a
End Sob
程序运行后，单击命令按钮，先后在两个输入框中分别输入456和123，则输出结果是 （ D ）
（A）579 （B）123 （C）456 （D）123546
16. VB提供了结构化程序设计的三种基本结构是 （ D ）
（A）递归结构、选择结构、循环结构
（B）选择结构、过程结构、顺序结构
（C）过程结构、输入、输出结构、转向结构
（D）选择结构、循环结构、顺序结构
17． 要分配存放如下方阵，可使用声明语句 来实现（不能浪费空间） （ c ）
（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
18． 数组声明语句Dim a(3,-2 to 2,5) as integer中，数组a包含的元素个数为 （ A ）
（A）120 （B）75 （C）60 （D）13
19． 计时器控件，如果希望每秒产生10个事件，则要将Interval属性的值设置为 （ C ）
（A）1 （B）10 （C）100 （D）1000
20．在窗体上画一个文本框，再编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii as integer)
Dim ch as string
Ch=Chr(KeyAscii)
KeyAscii=ASC(Ucase(ch))
Text1.Text=string(6, KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母”a”，则文本框中显示的内容为 （ D ）
（A）a （B）A （C）aaaaaaa （D）AAAAAAA
二、填空题（每题3分，本题满分12分）
21．下列循环语句控制的循环次数为 0
FOR K=1 TO 10 STEP –1
22．为了选择多个控件，可以按住 CTrl 键，然后单击每个控件。
23．以下程序段的输出结果是_ 3 ___。
num =0
While num<=2
num = num+1
Wend
Print num
24．Int(-3.5)、Int (3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是vb语言程序设计第五版上机答案 -4、3、-3、3、-4、4 。
三、程序填空题：
25．对已知存放在数组中的6个数，用选择法按递增顺序排序，程序如下：
Dim iA%(1 to 10), iMin%, n%, i%, j%, temp%
iA(1)=8:iA(2)=6: iA(3)=9:iA(4)=3: iA(5)=2:iA(6)=7
n= 6
For i = 1 To n - 1
iMin= i
For j = i+1 To n
If iA(j) < iA(iMin) Then iMin = j
Next j
t= iA(i): iA(i) = iA(iMin) : iA(iMin) = t
Next i
26．猴子吃桃问题：小猴子在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个；以后每天都吃掉剩余桃子的一半多一个，到第8天早上要吃的时
候只剩下1个了，问小猴子那天共摘下了多少桃子？
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论