[北京师范大学]19春《Visual Basic 程序设计》离线作业（资料）

奥鹏在线作业

《VB程序设计》作业（一）
本课程作业由两部分组成。第一部分为“客观题部分”，由15个选择题组成，每题1分，共15分。第二部分为“主观题部分”，由编程题组成，共15分。作业总分30分，将作为平时成绩记入课程总成绩。
客观题部分：
选择题（每题1分，共15题）
1. 下列哪个选项不是Visual Basic语言的特点（   ）。
A）        事件驱动编程机制
B）        可视化编程
C）        结构化程序设计
D）        面向过程的程序设计
2. Visual Basic的版本中不包含（    ）。
  A）学习版                B）专业版                C）企业版                D）标准版
3. 下列选项中不属于主窗口的是（    ）。
A）工具栏                B）菜单栏                C）状态栏                D）标题栏
4. 下列（   ）计量单位是与屏幕分辨率无关的。
A）twip                B）Point                C）Pixel                D）Inch
5. 工程资源管理器窗口不能显示（   ）文件。
A）        窗体文件(.frm)
B）        标准模块文件(.bas)
C）        控件文件（.ctl）
D）        资源文件（.res）
6. 下列（   ）方法不能打开工程资源管理器窗口。
A）        单击工具栏上的“工程资源管理器”按钮
B）        双击窗体或窗体上的控件
C）        按Ctrl＋R组合键
D）        执行“视图”菜单中的“工程资源管理器”命令
7. 在Visual Basic中，使用（    ）字符作为续行符。
A） ：                B） ；                C） `                D） _
8. Visual Basic中，工程软件的扩展名为（   ）。
A）vbp                 B）frm                 C）cls                 D）bas
9. 下面哪一种变量名是错误的（   ）。
A）3abc         B）a123                C）abc                 D）ab12％
10. 什么关键字声明的局部变量在整个程序运行中一直存在（   ）。
A）Dim                 B）Public                 C）Static                 D）Private
11. 在Visual Basic 6.0中，字符串是被放在（    ）号内的若干个字符。
A）单引号                B）双引号                C）圆括号                D）花括号
12. （   ）种数据类型对小数点的位置有明确的位数限制。
A）浮点型                B）货币型                C）布尔型                D）对象型
13. 在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2和 Label3的标签，然后编写如下代码：
Private  a  As  Integer
Private Sub Command1_C1ick()
Static b As Integer
Dim c As Integer
x＝5
b＝b + x
c＝c + x
a＝a + x
Label1.Caption＝a
Label2.Caption＝b
Label3.Caption＝c
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（     ）。
A)  5  5  5                  B)  15  15  15            C)  15  15   5                  D)  5  15  15
14. 下面哪一种变量的类型说明符的使用是正确的（   ）。
A）Dim a: a = 2000$
B）Dim a: a% = 90000
C）Dim a: a& = True
D）Dim a: a = “OK”
15. 标题栏中不允许出现的工作状态是（    ）。
        A）设计阶段                B）运行阶段                C）中断阶段                D）调试阶段

主观题部分：
编程题（每题15分，共1题）
1、编程实现一个命令按钮command1的单击事件，单击该按钮后从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入。

《VB程序设计》作业（二）
本课程作业由两部分组成。第一部分为“客观题部分”，由15个选择题组成，每题1分，共15分。第二部分为“主观题部分”，由编程题组成，共15分。作业总分30分，将作为平时成绩记入课程总成绩。
客观题部分：
选择题（每题1分，共15题）
1. 当VB执行下面语句后，A的值为（   ）。
A=1
IF A>0 THEN A=A+1
IF A>1 THEN A=0
A）0                 B）1                 C）2                 D）3
2. 当VB执行下面语句后，输出的结果是（  ）。
Private Sub Form_Click（）
score = Int(Rnd * 10) + 30
Select Case score
Case Is < 10
A$ = "F"
Case 10 To 19
A$ = "D"
Case 20 To 29
A$ = "C"
Case 30 To 39
A$ = "B"
Case Else
A$ = "A"
End Select
Print A$
End Sub
A） A                 B） B                 C） C                 D） D
3. 执行下面的程序段后，x 的值为(    )。
x=2
For  i=1 To 10  Step 3
x=x+i\2
Next i
A) 2                B) 4               C) 7                      D) 9
4. 假定有以下循环结构：
Do Until 条件
循环体
Loop
则正确的描述是（    ）。
A) 如果“条件”是一个为0的常数，则一次循环体也不执行
B) 如果“条件”是一个为0的常数，则至少执行一次循环体
C) 如果“条件”是一个不为0的常数，则至少执行一次循环体
D) 不论“条件”是否为“真”，至少要执行一次循环体
5. 假定有以下程序段：
For i= 1 To 3
For j        = 5 To 1 Step -1
Print  i * j
Next  j , i
则语句“Print  i * j ”的执行次数是（    ）。
A）20                 B）24                C）15                 D）18
6. 以下程序段的输出结果为（    ）。
x = 2
y = 8
Do Until y>8
x = x * y
y = y +1
Loop
Print x
A）2                 B）9                C）10                D）16
7. 用下面的语句所定义的数组的元素个数是（   ）。
Dim  A（-3 To 5）  As Integer
A）6                 B）7                C）8                D）9
8. 阅读下面的程序段：
For  i=1 To 2
For  j=1 To i
For k=j To 2
x=x+1
Next k
Next j
Next i
执行上面的三重循环后，x的值为(    )。
A) 3                        B) 4                        C) 5                        D) 6
9. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For  i=1 To 3
x=2
For  j =1 To 2
x=4
For  k=1 To 3
x=x+5
Next  k
Next  j
Next  i
Print  x
End Sub
程序运行后，单击命令按钮，输出结果是(    )。
A) 11                     B) 19               C) 57              D) 63
10. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程：
Private Sub Command1_Click()
x=1
Do While x<50
x=(x+1)*(x+2)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（   ）。
A) 1和0               B) 2和56                C) 3和 70                  D) 4和168
11. 以下正确的叙述是（    ）。
A）        Select Case语句中的测试表达式可以是任何形式的表达式
B）        Select Case语句中的测试表达式只能是数值表达式或字符串表达式
C）        在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行
D）        如下Select Case语句中的Case表达式是错误的：
Select Case x
                Case 1 to 10
……
        End Select
12. 在窗体上绘制一个命令按钮Command1，然后编写如下程序：
                Option Base 1
Private Sub Command1_Click()
                        Dim a
            a = Array(1, 2, 3, 4, 5)
            j = 1
            For i = 5 To 1 Step -1
                s = s + a(i) * j
                j = j * 10
            Next i
            Print s
End Sub
运行程序，单击命令按钮，输出结果为（    ）。
A）54321        B)12345        C)1234       D)4321
13. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程：
Private Sub Commandl_C1ick()
Dim b
b＝Array(1,2,3,4,5)
……
End Sub
此过程的功能是把数组b中的5个数逆序存放。为了实现此功能，省略号处的程序段应该是（   ）。
A)        For i＝0 To 5-1\2
tmp＝b(i)
          b(i)＝b(5-i-1)
          b(5-i-1)＝tmp
  Next i
B)        For i＝0 To 5
                  tmp=b(i)
                  b(i)＝b(5-i-1)
                  b(5-i-1)=tmp
          Next i
C)        For i＝0 To 5\2
                  tmp＝b(i)
                  b(i)＝b(5-i-1)
                  b(5-i-1)=tmp
          Next i
D)        For i＝1 To 5\2
                  b(5-i-1)＝tmp
                  tmp=b(i)
                  b(i)＝b(5-i-1)
          Next i
14. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程：
                Option Base 1
Private Sub Command1_Click()
    Dim a(3, 3) As Integer
    For i = 1 To 3
        For j = 1 To 3
            a(i, j) = 2 * i + j
        Next j
    Next i
                  
    For i = 2 To 3
        For j = 2 To 3
        Print a(j, i)
        Next j
    Next i
End Sub
程序运行后，单击命令按钮，输出的结果是（   ）。
A） 5                                B）6            C) 6           D）5
        6                                   7               8                          7
        7                  8               7              6
        8                  9               9              8
15. 设有函数y＝ ，下面不能正确求得函数值的程序段是（   ）。
A）        Select Case x
Case Is < 0
        y=x
Case 0
        y=0
Case Is > 0
        y=x*x
        End Select
B）        If x>0 Then
y=x*x
        End If
        If x=0 Then
                y=0
        End If
        If x<0 Then
                y=x
        End If
C）        If x < 0 Then
y = x
Else
        If x > 0 Then
            y = y * x
        Else
            y = 0
        End If
End If
D）        If x<=0 Then
y=x
        End If
        If x>0 Then
                y=x*x
        Else
                y=0
        End If

主观题部分：
编程题（每题15分，共1题）
编程实现一个窗体Form的click事件，单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+...+n的值，如果和已经大于1000则停止计算。


《VB程序设计》作业（三）
本课程作业由两部分组成。第一部分为“客观题部分”，由15个选择题组成，每题1分，共15分。第二部分为“主观题部分”，由编程题组成，共15分。作业总分30分，将作为平时成绩记入课程总成绩。
客观题部分：
选择题（每题1分，共15题）
1. 把字符串“123”转换为数值 123 时应该使用的函数是（  ）。
A）Str                 B）Val                 C）Len                 D）Log
2. 在Sub过程被定义时，使用Private类型符进行修饰表示（  ）。
A）此过程可以被任何其它过程调用
B）此过程不可以被任何其它过程调用
C）此过程只可以被本工程中的其它过程调用
D）此过程只可以被本模块中的其它过程调用
3. 以下叙述不正确的是（    ）。
A）        在Sub过程中可以调用Function过程
B）        在用Call调用Sub过程时必须把参数放在括号里
C）        在Sub过程中可以嵌套定义Function
D）        用Static声明的过程中的局部变量都是Static类型。
4. 在窗体上绘制一个命令按钮Command1，然后编写如下程序：
Function Func(ByVal x As Integer, y As Integer)
    y = x * y
    If y > 0 Then
        Func = x
    Else
        Func = y
    End If
End Function
Private Sub Command1_Click()
    Dim a As Integer, b As Integer
    a = 3
b = 4
c = Func(a, b)
Print "a="; a
Print "b="; b
Print "c="; c
End Sub
程序运行后，单击命令按钮，输出结果为（   ）。
A）a=3
   b=12
   c=3
B）a=3
   b=4
   c=3
C）a=3
   b=4
   c=12
D）a=3
   b=12
   c=12
5. 在窗体上绘制一个文本框Text1，然后编写事件过程：
  Private Sub Text1_KeyPress(keyascii as integer)
  End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是（   ）。
A)单击鼠标
B)双击文本框
C)鼠标滑过文本框
D)按下键盘上的某个键
6. 在窗体上绘制一个命令按钮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
7. 在窗体上画一个命令按钮Command1，然后编写事件过程：
Private Sub Command1_Click()
    a = InputBox("Enter the First integer")
    b = InputBox("Enter the Second integer")
    Print a + b
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是（    ）。
A）456                B）579                 C）456123                  D）123456
8. 如果要改变窗体的标题，需要设置窗体对象的（    ）属性。
A）Caption                 B）Name                 C）BorderStyle                 D）BackColor
9. 为了取消窗体的最大化功能，需要把它的（    ）属性设置为False。
A）ControlBox         B）MinButton         C）Enabled                 D）MaxButton
10. 为了使窗体在需要时被加载到内存中并同时显示在屏幕上，应该使用（   ）方法。
A）Show                B）Hide                   C）Load                        D）Unload
11. 为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True，然后再把ScrollBars 属性设置为（    ）。
A）0                 B）1                 C）2                 D）3
12. 使文本框获得焦点的方法是（    ）。
A）Change         B）GotFocus         C）SetFocus                 D）LostFocus
13. 表示滚动条控件取值范围最大值的属性是 （    ）。
A）Max          B）LargeChange                  C）Value                  D）Max—Min
14. 对以下控件叙述正确的是（   ）。
A）组合框包含了列表框的功能。
B）列表框包含了组合框的功能。
C）组合框和列表框的功能完全不同。
D）组合框和列表框的功能完全相同。
15. 制作菜单的分隔栏时，标题名称只能是（    ）。
A）－                 B）…                 C）∶                 D） ∽
主观题部分：
编程题（每题15分，共1题）
编程实现一个命令按钮command1的单击事件，单击该按钮后生成10个100到200之间的随机整数，输出其中能被5整除的数并求出它们的和。

cdwghhimq

谋学网越办越好，加油！

erdniew62

下次优惠点