班级                         姓名                           学号                 
    VB  课程试卷 （B）卷                                     第 1 页  共 3页
         
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
一.填空题(每空1分,共16分)
1. VB是一种面向_对象_的可视化程序设计语言，采取了_事件驱动_的编程机制。
2. 把写成VB表达式_ sin(a)*sin(b)+a^3_。
3. 用四舍五入的方法截掉x小数点后面第3位及以后的数_ int(x*100)/100_。
4. 赋值语句的作用是：首先计算“=”右边表达式的值，然后将该值赋给“=”左边的__变量__或对象的属性。
5. 为了提高程序的可读性，在VB中用__’ ____或___ rem ____来表示一条注释语句。
6. 同一控件数组中各个控件的___ index ___属性相当于普通数组中的下标。
7. 要在ListBox控件中的增加某个项目，需要用__ additem __方法。
8. 将焦点移动到某个控件上的方法是__ setfocus __。
9. 有如下程序段，运行时，从键盘输入-3,输出的结果是_-5    -2__
x=-5
s=inputbox(“请输入s的值”)
select case s
  case is >0
y=x+1
  case is=0
      y=x+2
  case else
y=x+3
end select
print x;y
10. 在窗体上添加一个图片框控件（name属性为P1），要在运行时将位于C：盘根目录下名为tu1.jpg图形文件装入图片框，所使用语句为p1.picture=loadpicture(“c:\tu1.jpg”)。
11. 在V B中有一种控件组合了文本框和列表框的特性，这种控件是__组合框_。
12. 下面程序运行后输出的结果是__2    7__。
a = 8:s = 1
do
s = s + 1
a = a –1
loop while a <=0
print s;a
13. 下面程序运行后，单击窗体，输出结果为_5+10=15 (换行) 8+20=28 __。
Private Sub Form_Click()
Print  “5+10=”;
    Print  5+10
    Print  “8+20=” ,
Print  8+20
End Sub
14. 下列程序运行的输出结果是____12____。
for I = 1 to 3
for j = 0 to I+1
  x = x+1
next I
next j
print x
二.选择题(每小题1分,共12分)
1. ( B  )是由VB预定义的对象能够识别的动作。
(A) 对象
(B) 事件
(C) 过程
(D) 事件过程
………………………密……………………封……………………线……………………
   
            班级                         姓名                           学号                       
      VB      课程试卷 （B）卷                                             第 2 页  共 3页
2.窗体文件的扩展名为( D  )。
(A) .fix  (B) .bas  (C) .vbp  (D) .frm
3. 执行语句s = len(mid(“VisualBasic”,1,3))后，s的值是(  C )。
(A) Vis  (B) 2  (C) 3  (D) 4
4.下列选项中，合法的变量名( B  )。
(A) v+aaa  (B) m_2  (C) End  (D) 5_p
5. 返回字符串首字符的ASIIC值的函数是( C  ) 。
(A)  Str()  (B) Chr()  (C) Asc()  (D) Trim()
6. 运行以下程序后， i的值是( D  )。
x=0
for i = 1 to 10 step 2
  x = x + i
next i
(A) 23      (B) 25  (C) 9  (D) 11
7. 对一个窗体对象，其最先发生的事件是（  C  ）
(A) Click    (B) DbClick    (C) Load      (D) Unload
8. 确定一个窗体或控件宽度的属性是（  B      ）。
(A) Height        (B) Width        (C) Top      (D) Left
9. 使“山东交通学院”在当前窗体上输出的语句是（  A  ）。
(A) Print “山东交通学院”
(B) Picture.Print “山东交通学院”
(C) Printer. Print “山东交通学院”
(D) Debug. Print “山东交通学院”
10. 在Visual Basic中，下列哪种控件可以包含其他控件（  A  ）。
（A）Frame        （B）Commandbutton
（C）Image        （D）Checkbox
11. 当一个复选框不被选中时，它的Value属性的值是（  A  ）。
（A）0    （B）1
（C）2    （D）3
12. 在窗体上有一个组合框控件Combo1，其中含有4个项目，则以下能删除最后一项的语句是（  D  ）。
（A）Combo1.RemoveItem Text              （B）Combo1.RemoveItem 2
（C）Combo1.RemoveItem Combo1.Listcount  （D）Combo1.RemoveItem 3
三.编程题(每小题4分,共32分)
1. 用输入框输入x，根据下式计算对应的y，并在窗体上输出y的值。
解：
Dim x!, y!
x = InputBox("x=")
If x > 0 Then
  y = Log(x) + Sin(x)
ElseIf x = 0 Then
  y = 0
Else
  y = Exp(x) + 6
End If
Print y
2. 输入年份、月份,输出该月天数。
解：
Dim y%,m%,d%
y=inputbox(“输入年份:”)
m= inputbox(“输入月份:”)
select case m
    case 1,3,5,7,8,10,12
            d=31
    case 4,6,9,11
            d=30
case 2
if y mod 4=0 and y mod 100<>0 or y mod 400=0 then
    d=29 : else :    d=28
end if
      end select
print y;”年”;m;”月”;d;”天”
   
………………………密……………………封……………………线……………………

            班级                         姓名                           学号                       
      VB        课程试卷 （B）卷                                                     第 3 页  共 3 页
  3. 如图以倒三角的方式打印九九乘法表：
解：
dim i%,j%
For i=1 to 9
    For j=i to 9
      Print tab(10*j);I & “×” & j & “=” & i*j;
    Next j
print
Next i
4. 某员工的年工资为15万元人民币，员工工资每年涨9.8%，多少年后该员工工资翻一番。
解：dim a%,i%
A=15 ：I=0
While a<30
  A=a*1.98 ： I=i+1
Wend
Print i
5. 编写程序，当单击窗体时，窗体变宽，每单击一次窗体宽度增加50vb程序设计教程答案第二版。
解：Private sub form_click()
  Form1.width=Form1.width+50
End sub
6. 随机产生20 个两位整数存放在一维数组中，出其中的最大值、最小值。
解：
dim a%(20),i%,min%,max%
  For i=1 to 20
  A(i)=int(rnd*90)+10
Next
Min=a(1)
Max=a(1)
for i=2 to 20
    if a(i)<min then min=a(i)
    if a(i)>min then max=a(i)
next
print min ,max
7. 编写窗体上命令按钮command1的click事件过程，完成如下功能：
（1）输入一个字符串。
（2）编写一个函数过程，将字符串逆序，如输入字符串“abcd”，逆序后变成“dcba”。
（3）输出逆序后的字符串。
解：
Private sub command1_click()
Dim str1 as string ,str2 as string
  Str1=inputbox(“请输入一个字符串”)
  Str2=fun(str1)
  Print str2
End sub
Function fun(s as string) as string
  Dim s1 as string,i%
  For i=1 to len(s)
    S1=mid(s,i,1)+s1
  Next
  Fun=s1
End function
8. 在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：
（1）编写一个函数过程， 判断一个整数是否能被11和13同时整除。
（2）将500~1000中，所有能被11和13同时整除的数5个1行显示在窗体上。
解：
Private sub command1_click()
Dim i as integer,j as integer
  J=0
  For i=500 to 1000
  If pdsj(i)=1 then
    Print I ：    J=j+1
    If j mod 5=0 then print
  End if
  next
End sub
Function pdsj(t1 as integer) as integer
  If t1 mod 11 = 0 and t1 mod 13=0 then
    Pdsj=1
  Else
    Pdsj=0
  End if
End function
   
………………………密……………………封……………………线……………………

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。