一、单项选择题
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小时内删除。