班级                         姓名                           学号                 
    VB  课程试卷 （A）卷                                   第 1 页  共 2 页
         
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
一.填空题(每空1分,共16分)
1. VB应用程序至少有______、______两种文件需要保存。
2. 把写成VB表达式_______________。
3. 产生一个三位整数的表达式____________________。
4. 在属性窗口中设置______________属性，可以把指定的图形放入当前对象中。
5. 标签和文本框都用于显示文本，它们的主要区别是：____________中的文本是只读文本，
________________中的文本是可编辑文本。
6. 在同一个过程中，数组名不能与变量名______________，否则会出错。
7. 在窗体上添加一个图片框控件（namevb语言程序设计第五版上机答案属性为P1），要在运行时将位于C：盘根目录下名为p1.jpg的图形文件装入该图片框，则所使用的语句为：__________________________。
8. 在多窗体程序中，显示一个窗体的方法是_______________。
9. 写出如下程序的运行结果:___________
dim x!,y!
x=1.5
y=0.5
if x<>0 then
  y=x+y
elseif y>0.5then
  y=x
else
  y=x*y
end if
print x,y
10. 表示滚动条控件取值范围最大值的属性是_______________。
11. 在Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_______________。
12. 下面程序运行后输出的结果是_________________。
For n = 1 to 20
if n mod 3<>0 then m = m+n\3
next n
print n
13. 下面程序运行后输出的结果是_________________。
Dim  a%,  b%
x=5
y=6
x=x+y
y=x+y
Print  x , y
14. 下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1  to  5
X = X + i
Next r
Next j
Next i
Print X
二.选择题(每小题1分,共12分)
1. 以下叙述中,错误的是(    )。
(A) 对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定
(B) 在VB中,对象所能响应的事件是由系统定义的
(C) VB中允许不同的对象使用相同名称的方法
(D) VB中的对象具有自己的属性和方法
………………………密……………………封……………………线……………………
   
            班级                         姓名                           学号                       
      VB      课程试卷 （A）卷                       第 2 页  共 2 页
2.工程文件的扩展名为(    )。
(A) .fix  (B) .bas  (C) .vbp  (D) .frm
3. 执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(    )。
(A) Visual  (B) Basic  (C) 6  (D) 11
4.下列选项中，合法的变量名(    )。
(A) c%aaa  (B) sum__3  (C) Else  (D) 5persons
5. 返回系统当前日期和时间的函数是(    ) 。
(A) Time()        (B) Day()    (C) Date()        (D) Now()
6. 运行以下程序后，x的值是(    )。
x=2
for i = 1 to 10 step 2
  x = x + i
next i
(A) 25      (B) 27  (C) 38  (D) 57
7. 要让一个控件不显示，应将该控件的（      ）属性设置成False。
(A) Caption    (B)  Enabled    (C) Default      (D) Visible
8. 下列不属于文本框属性的是（    ）。
(A) Caption        (B) Locked        (C) Text      (D) Font
9. 使“多媒体技术”在当前窗体上输出的语句是（      ）。
(A) Print “多媒体技术”
(B) Picture.Print “多媒体技术”
(C) Printer. Print “多媒体技术”
(D) Debug. Print “多媒体技术”
10. 以下关于图像框控件的说法中，错误的是（      ）。
(A) 不可以通过Print方法在图像框中输出文本。
(B) 清空图像框控件中图形的方法之一是加载一个空图形。
(C) 图像框控件可以作为容器使用。
(D) 用Stretch属性可以自动调整图像框中图形的大小。
11. 当一个复选框被选中时，它的Value属性的值是（      ）。
（A）0    （B）1
（C）2    （D）3
12. 在窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（      ）。
（A）List1.List          （B）List1.ListIndex
（C）List1.Index        （D）List1.Text
三.编程题(每小题4分,共32分)
1. 用输入框输入x，根据下式计算对应的y，并在窗体上输出y的值。
2. 求一元二次方程的两个实根。
3. 输出100-1000之间的所有素数。
4. 求两自然数m,n的最小公倍数。
5.已知三角形的三个边分别为a、b、c，求三角形面积。
注：要求三角形的三个边a、b、c用InputBox函数输入，输出结果显示在窗体上。
6. 有50个整数存放在一维数组中，编程序，求出最小数及其位置
7. 编写窗体上命令按钮command1的click事件过程，完成如下功能：
（1）定义一个大小为100的数组A，其元素数值为随机产生的0~1000之间的数。
（2）编写一个子过程，将A（1）和A（100）交换、A（2）和A（99）交换、A（3）和A（98）交换，……，A（50）和A（51）交换。
（3）输出数组A，每行5个元素。
8. 在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：
（1）编写一个子过程， 计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
   
………………………密……………………封……………………线……………………

            班级                         姓名                           学号                 
    VB  课程试卷 （A）卷                                           第 1 页  共 3页
         
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
一.填空题(每空1分,共16分)
1. VB应用程序至少有_窗体文件_、_工程文件_两种文件需要保存。
2. 把写成VB表达式_log(7)/log(2)+exp(4)*2/3_。
3. 产生一个三位整数的表达式_int(rnd*900)+100 或int(rnd*899)+100__。
4. 在属性窗口中设置__ picture __属性，可以把指定的图形放入当前对象中。
5. 标签和文本框都用于显示文本，它们的主要区别是：____标签____中的文本是只读文本，
_____文本框_____中的文本是可编辑文本。
6. 在同一个过程中，数组名不能与变量名___同名_____，否则会出错。
7. 在窗体上添加一个图片框控件（name属性为P1），要在运行时将位于C：盘根目录下名为p1.jpg的图形文件装入该图片框，则所使用语句为 p1.picture=loadpicture(“c:\p1.jpg”)_。
8. 在多窗体程序中，显示一个窗体的方法是__ show __。
9. 写出如下程序的运行结果:__ 1.5      2__
dim x!,y!
x=1.5
y=0.5
if x<>0 then
  y=x+y
elseif y>0.5then
  y=x
else
  y=x*y
end if
print x,y
10. 表示滚动条控件取值范围最大值的属性是__ max ___。
11. 在Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_组合框__。
12. 下面程序运行后输出的结果是_____42_______。
For n = 1 to 20
if n mod 3<>0 then m = m+n\3
next n
print n
13. 下面程序运行后输出的结果是____11      17_____。
Dim  a%,  b%
x=5
y=6
x=x+y
y=x+y
Print  x , y
14. 下列程序的结果是___23____。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1  to  5
X = X + i
Next r
Next j
Next i
Print X
二.选择题(每小题1分,共12分)
1. 以下叙述中,错误的是( A  )。
(A) 对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定
(B) 在VB中,对象所能响应的事件是由系统定义的
(C) VB中允许不同的对象使用相同名称的方法
(D) VB中的对象具有自己的属性和方法
………………………密……………………封……………………线……………………
   
            班级                         姓名                           学号                       
      VB      课程试卷 （A）卷                                 第 2 页  共 3页
2.工程文件的扩展名为(  C  )。
(A) .fix  (B) .bas  (C) .vbp  (D) .frm
3. 执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(  C  )。
(A) Visual  (B) Basic  (C) 6  (D) 11
4.下列选项中，合法的变量名(  B  )。
(A) c%aaa  (B) sum__3  (C) Else  (D) 5persons
6. 返回系统当前日期和时间的函数是( D  ) 。
(A) Time()        (B) Day()    (C) Date()        (D) Now()
6. 运行以下程序后，x的值是( B  )。
x=2
for i = 1 to 10 step 2
  x = x + i
next i
(A) 25      (B) 27  (C) 38  (D) 57
7. 要让一个控件不显示，应将该控件的（  D  ）属性设置成False。
(A) Caption    (B)  Enabled    (C) Default      (D) Visible
8. 下列不属于文本框属性的是（ B  ）。
(A) Caption        (B) Locked        (C) Text      (D) Font
9. 使“多媒体技术”在当前窗体上输出的语句是（  A    ）。
(A) Print “多媒体技术”
(B) Picture.Print “多媒体技术”
(C) Printer. Print “多媒体技术”
(D) Debug. Print “多媒体技术”
10. 以下关于图像框控件的说法中，错误的是（  C  ）。
(A) 不可以通过Print方法在图像框中输出文本。
(B) 清空图像框控件中图形的方法之一是加载一个空图形。
(C) 图像框控件可以作为容器使用。
(D) 用Stretch属性可以自动调整图像框中图形的大小。
11. 当一个复选框被选中时，它的Value属性的值是（  B    ）。
（A）0    （B）1
（C）2    （D）3
12. 在窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（  D    ）。
（A）List1.List          （B）List1.ListIndex
（C）List1.Index        （D）List1.Text
三.编程题(每小题4分,共32分)
1. 用输入框输入x，根据下式计算对应的y，并在窗体上输出y的值。
解：dim x!,y!  ： x = InputBox("x=")
if x>10 then
  y=sqr(x)+sin(x)
elseif x=10 then
  y=0
else
  y=2*x^2+6
end if
print y
2. 求一元二次方程的两个实根。
解： dim a%,b%,c%
a= InputBox("a=")：b = InputBox("b=")：c= InputBox("c=")：D=B*B-4*A*C
IF A<>0then
IF D>=0then
          X1=(-B+SQR (D))/(2*A) ：X2=(-B-SQR (D))/(2*A) ： Print x1,x2
      ELSE
        Print  "此一元二次方程无实根！"
ENDIF
ENDIF
   
………………………密……………………封……………………线……………………
            班级                         姓名                           学号                       
      VB        课程试卷 （A）卷                                             第 3 页  共 3 页
3. 输出100-1000之间的所有素数。
解：
dim i%,flag%,j%
For i=101 to 1000 step 2
    Flag=0
    For j=2 to int(sqr(i))
      If i mod j =0 then
            Flag=1
      Endif
    Next j
If flag=0 then print i
Next i
4. 求两自然数m,n的最小公倍数。
解： dim a%,b%,t%,i%
A=inputbox(“第1个数”)：B=inputbox(“第2个数”)
If a<b then
  T=a ：  B=a ：  B=t
Endif
For i=a to a*b
  If I mod a =0 and I mod b=0 then
    Print a & “和” & b “的最小公倍数是” & i
    Exit for
next
5.已知三角形的三个边分别为a、b、c，求三角形面积。
注：要求三角形的三个边a、b、c用InputBox函数输入，输出结果显示在窗体上。
解：dim a!,b!,c!,p!,s!
  A=inputbox(“a”)：  b=inputbox(“b”)：  c=inputbox(“c”) ：  p=(a+b+c)/2
  s=sqr(p*(p-a)*(p-b)*(p-c)) ：  print s
6. 有50个整数存放在一维数组中，编程序，求出最小数及其位置
解：
dim a%(50),i%,min%,wz%
  For i=1 to 50
  A(i)=inputbox(“输入一个数据”)
Next
Min=a(1)： wz=1
for i=2 to 50
    if a(i)<min then min=a(i) :wz=i
next
print min ,wz
7. 编写窗体上命令按钮command1的click事件过程，完成如下功能：
（1）定义一个大小为100的数组A，其元素数值为随机产生的0~1000之间的数。
（2）编写一个子过程，将A（1）和A（100）交换、A（2）和A（99）交换、A（3）和A（98）交换，……，A（50）和A（51）交换。
（3）输出数组A，每行5个元素。
解：
Private sub command1_click()
    Dim a(100) as single
For i=1 to 100
    A(i)=Rnd*1000
Next
Call swap(a)
For i=1 to 100
    Print a(i);
    If I mod 5=0 then print
Next
End sub
Private Sub swap(b() as single)
Dim i%,t!
  For i=1 to 50
      T=b(i) ： B(i)=b(101-i) ：  b(101-i)=t
  next
end sub
8. 在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：
（1）编写一个子过程， 计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
解：
Private sub command1_click()
Dim n as integer,p#
  n=inputbox(“请输入n的值：”)
  call jc(n,p)
  Print p
End sub
Private sub  jc(m%,q#)
Dim i%
Q=1
For i=1 to m
Q=q*i
next
End sub
   

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