请哪位高手帮忙解答一下

在这里只能放100分下去，答案出来后将另开贴散分！
谢谢！一. 填空题 
1.计算机系统中，对高级语言的翻译工具称为（  机器语言       ）程序或（   编译  ）程序。
2．源程序中的错误一般分为（     ）错误、（     ）错误和（     ）错误等三种。
3．a% 表示a为（     ）型变量；a！表示a为（     ）型变量；a＠表示a为(     )型变量。
4．对含有多种运算的表达式，各种运算之间的顺序为（          ）→（          ）→ （          ）→（            ）。
5．把数学式子： 写成VB表达式为
（                                                    ）。                
6. 给命令按钮Command1的Caption属性赋予字符串“开始”使用的赋值语句为（                                                    ）。
7. 结构化程序包括的三种基本程序结构是（          ）、（         ）和（        ）。
8．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（                                ），使用块结构条件语句为（  ）。
9．执行下列程序段输出结果是（         ）。
x=2
Do while x<8
Print “*”；
x=x+2
Loop10.下列窗体上的控件有（                                                     ）。
 
11．当窗体的Enabled属性为（      ）时，指定窗体响应事件。
12. 在程序运行期间，用户可以向文本框输入内容，输入的内容自动存入文本框的（      ）属性中。
13. 若使命令按钮在程序执行时不可见，应设置该控件的Visible属性的值为（      ）。
14. 每一个过程都有一个使用范围，过程的使用范围称为（　                       ）。
15. 在事件过程中说明的变量的作用域为（                ）。二. 单项选择题 
1. 下列选项中不属于数据处理功能的是（　  　）。
a) 数据输入输出          b) 存储数据
c) 描述数据              d) 对数据进行维护
2. 双击窗体是窗体的（     ）。
a)对象    b)事件     c)属性     d)方法
3. 下面不合法的标识符是（     ）。
a) Ｇo_To b) Tab1 c) 姓名 d) Int
4. 设X为整型变量,不能正确表达1< X < 5的逻辑表达式是(      )。
a) 1< X <5             b) X=2 or X=3 or X=4
c) 1<X And X <5        d) Not (X<=1) And Not (X>=5)
5．以下不正确的单行结构条件语句是（     ）。
a)  If x>y Then Print “x>y” b)  If x Then t = t * x
c)  If x Mod 3=2 Then ?  x d)  If x<0 Then y = 2*x-1 : Print x End If
6.下面程序段中循环语句的循环次数是（　   ）。
For x=10 To 1  Step -3
Print x
Next x
a) 0 b) 4 c) 5 d) 10
7. 改变控件的Tab顺序可以修改（      ）属性值。
 a) Visible b) Enabled c) TabStop d) TabIndex
8．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为（     ）。
a) T b) F c) True d) False
9. 下列一维数组说明语句错误的是（      ）。
a) Dim b(100) AS Double
b) Dim b(-5 To 0) AS Byte
c) Dim b(-10 To –20) AS Integer
d) Dim b(5  To 5) AS String
10．设有数组说明语句：Dim　b（-１To２，-２To２），则数组b中元素的个数是（　    ）。
a) 12         b) 15          c) 16           d) 20
11．关于变量，不正确的描述是（     ）。
a) 在过程内定义的变量，其作用域为它所在的过程
b) 在窗体模块的过程前面定义的变量可以在整个窗体模块中使用
c) 在标准模块中的过程前面用public定义的变量为全局变量
d) 在同一模块不同的过程中定义的变量的名字不能相同12．若以读的方式打开顺序文件“d:\file1.dat”，则正确的语句是（      ）。
    　a) Open "d:\file1.dat" For Output As #1
    　b) Open "d:\file1.dat"  For Input As #1
    　c) Open "d:\file1.dat"  For Binary As #1
  　d) Open "d:\file1.dat"  For Random As #1三. 程序阅读题 
1．当x的输入值分别为2、8和15时，写出执行下列事件过程的输出结果。
Private Sub Command1_Click()
Dim x%, y%
x = InputBox("请输入x的值：")
Select Case x
Case 1, 3, 5
y = x - 1
Case 6 To 10
y = x + 1
Case 2, 4
y = 2 * x
Case Is > 10
y = x * x + 1
End Select
Print "x="; x, "y="; y
End Sub2．写出执行下列事件过程的输出结果。
Private Sub Command1_Click()
Dim i%, t!
t = 1: i = 1
While i < 8
t = t *  i
i = i + 2
Wend
Print "t="; t
End Sub3．写出执行下列事件过程的输出结果。
Private Sub Command1_Click()
Dim a%, b%
For a=1 to 5
        Print Tab(6-a);
        For b=1 To a
          Print “*”;
Next b
Next a
    End Sub
    
4. 写出执行下列事件过程的输出结果。
Private Sub Command1_Click()
        Dim f(10) As Integer
        f(0) = 1: f(1) = 1
 For i = 2 To 10
          f(i) = f(i - 2) + f(i - 1)
         Next i
 For i = 0 To 10
          If i Mod 4 = 0 Then Print
          Print f(i),
         Next i
End Sub5.给出下列程序代码，写出单击命令按钮Command1时的执行结果。
Public Sub Proc(ByRef n As Integer,ByVal m As Integer)
n=n Mod 10
      m=m\10
End Sub
Private Sub Command1_Click()
      Dim x as Integer,y As Integer
x=15:y=30
      Call Proc(x,y)
      Print x,y
End Sub 四、程序填空题
1. 下面事件过程的功能是：输入x的值，按如下公式求y的值，在横线上填上适当内容。
100-x        -100<=x<0
Y= 100+x        0<=x<=50
        50          50<x<=100
Private Sub Command1_Click()
 Dim x!, y!
 x = InputBox("x=")
 Select Case  x
  Case Is < -100, Is > 100
    Print "x<-100 Or x>100"
  Case    (1)           
   y = 100 - x: Print "y="; y
  Case    (2)           
   y = 100 + x: Print "y="; y
  Case    (3)           
   y = 50: Print "y="; y
 End Select
 End Sub
2． 下面事件过程的功能是从键盘上输入10个数，统计其中非负数的个数和计算所有非负数之和，在横线上填上适当内容。
Private Sub Command1_Click()
 Dim   (1)      As Single        
 Dim i%, s!, count%
 For i = 1 To 10
  a(i) = InputBox("a(" & Str(i) & ")=")
 Next i
 s =   (2)   : count = 0            
 For i = 1 To 10
   If a(i) > 0 Then
    s =     (3)               
    count = count + 1
   End If
 Next i
 Print "count="; count
 Print "s="; s
End Sub
3. 下列程序代码的功能是计算 的值，在横线上填上适当内容。
Private Sub Command1_Click()
  Dim f1 As Long,f2 As Long,f3 As Long,y As single
  Call fact(5,f1)
Call fact(7,  (1)  )     
Call fact(8,f3)
  s=     (2)            
  Print “s=”;s
End Sub
Sub fact(Byval n As Integer,Byref f As Long)
  Dim t As Long,i As Integer
  t=1  
For i=1 To n
   t=t*i
  Next i
      (3)          
End Sub
4． 下面事件过程的功能是输入某班所有学生某门课程的成绩，并存放到文件“d:\file1.dat”中，在横线上填上适当内容。
    Private Sub Command1_Click()
     Dim n%, i%, score!
     n = InputBox("输入学生人数：")
     Open "d:\file1.dat"     (1)      As #1   
     For i = 1 To n
      score = InputBox("输入第" & Str(i) & "个学生的成绩：")
                (2)            
     Next i
     Close #1
End Sub