VisualBasic程序设计试题及其答案

1、一、填空题（每题1分，共10分）1.把数学式子：写成VB的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180) ）。2设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是（ True ）。3若Case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case子句相应的语句块。4执行下面的程序段后，x的值为（ 12 ）。x=0For i=1 To 8 Step 3x=x+iNext i5在

2、图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。6将命令按钮Command1的Caption属性值赋给文本框Text1的Text属性使用的语句为( Text1.Text=Command1.Caption)7复选框的Value属性为（ 1 ）时，表示复选框被选中。 8. 使用滚动条可以获取某一范围内的数值输入。为使垂直滚动条的Value属性值从下往上递增变化，应设置滚动条Min属性值大于( Max )属性值。9语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（ 8 ）。10给定如下子过程： Function fun(ByVal n

3、um As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为（ 0 ）。 二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（ C ）。A) 对象 B) 属性 C) 事件 D) 方法2.设a="Visual Basic"，下面使b的值为"Basic"的赋值语句正确的是( B )。A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Right(a,5,5) D

4、) b=Left(a,8,5)3设X为整型变量,不能正确表达1< X < 5的逻辑表达式是( A )。A) 1< X <5 B) X=2 or X=3 or X=4C) 1<X And X <5 D) Not (X<=1) And Not (X>=5) 4InputBox函数返回值的类型为( B )。A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型5执行语句：Print 4+56*8/8 Mod 9 输出的值是( A )。A) 4 B) 5 C) 6 D) 76.下列循环语句能正常结束循环的是（ C ）。A)i=5 B) i=1Do Do

5、 i=i+1 i=i+2Loop Until i< 0 Loop Until i=10C)i=10 D) i=6Do Do i=i+1 i=i-2Loop Until i> 0 Loop Until i=1 7以下叙述中正确的是 （ A ）。A) 窗体的Name属性指定窗体的名称 ，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间改变窗体的Name属性的值 D) 窗体的Name属性值可以为空8VB为命令按钮提供的Cancel属性（ A ）。A) 用来指定命令按钮是否为窗体的“取消”按钮 B) 用来指定命令按钮的功能是停止一个程序的运行C)

6、 用来指定命令按钮的功能是关闭一个运行程序D) 用来指定命令按钮的功能是中断一个程序的运行9若使命令按钮失效，要对（ A ）属性设置为False。 A) Enabled B) Visible C) BackColor D)Caption10在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()

7、Text1.Text = "abcDEF"Text2.Text = "123456"End Sub程序启动后，单击命令按钮，输出结果为（ C ）A）abcDEF123456 B）abcDEF123C）ABCDEF123 D）ab12345611在运行程序时，要使文本框获得焦点，则需使用（ B ）方法。 A) Change B) SetFocus C) GotFocus D) Move12下列语句中不能把图片框Picture1中的图形清除的是（ A ）。 A) Picture1.Del B) Picture1. Picture=LoadPicture(&q

8、uot;") C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13要删除列表框中的某一个项目，需要使用（ D ）方法。 A) Clear B) ReMove C) Move D) ReMoveItem14在组合框中选择某一项目内容，在程序中可以通过（ D ）属性获得。 A) List B) ListIndexC) ListCount D) Text15若有数组说明语句：Dim a()AS Integer，则a被定义为（B ）。A) 定长数组 B) 可调数组 C) 静态数组 D) 可变类型数组16有如下语

9、句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李强".Age = 21.Sex = "男"End With执行语句Print Stu.Age后在窗体上显示的结果是（ B ）。A)李强 B)21 C)“男” D)Age17.要使子过程f1调用后能用形式参数返回两个结果，下面子过程定义正确的是( C )。 A）Sub f1(ByVal n%,ByVal m%) B）Sub f1(n%,ByVal m%) <

10、;子过程体> <子过程体> End Sub End SubC）Sub f1(n%,m%) D）Sub f1(ByVal n%,m%)<子过程体> <子过程体>End Sub End Sub18.以下叙述中错误的是( D )。A) 一个工程中可以包含多个窗体文件B) 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C) 在设计VB程序时，窗体模块和标准模块需要分别保存为不同类型的文件D) 全局变量必须在标准模块中定义 19从磁盘上打开顺序文件"c:t1.txt"为读入数据做好准备，如下语句（ A ）是正确的

11、。 A） F="c:t1.txt" B）F="c:t1.txt"Open F For Input As #1 Open "F" For Input As #2C）Open "c:t1.txt" For Output As #1 D）Open c:t1.txt For Input As #220.以下叙述中正确的是( B )。A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input#语句可以从随机文件中读取数据三、程序

12、阅读题(第1题3分，第2题5分，其余题各4分，共24分)1当x的输入值分别为4、8和12时，写出执行下列事件过程的输出结果。Private Sub Command1_Click()Dim x%, y%x = InputBox("请输入x的值：")Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is > 10y = x * x + 1End SelectPrint "x=" x, "y=" yEnd Subx=

13、4 y=20x=8 y=10x=12 y=1452. 写出执行下列事件过程的输出结果。Private Sub Command1_Click() Const n = 3 Dim i As Integer, k As Integer For i = 1 To n Print Tab(n - i) * 2 + 1); For k = 1 To i Print Str(k); Next k For k = i - 1 To 1 Step -1 Print Str(k); Next k Print Next i End Sub 1 1 2 1 1 2 3 2 1 3.设在一个窗体（如图所示）中已设置了一

14、个组合框Combo1和文本框Text 1，且有下列程序，试写出事件过程Combo1_Click的功能。Dim str As StringPrivate Sub Form_Load() str = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem "武汉"Combo1.AddItem "广州"Combo1.AddItem

15、"海口"Combo1.Text = "北京"End SubPrivate Sub Combo1_Click()str = str & Combo1.Text & "，"Text1.Text = strEnd Sub在文本框中显示单击组合框列表项目时该项目的内容，而且以后来添加的方式在文本框中显示所有选择项目的内容。4. 写出执行下列事件过程的输出结果。Private Sub Form_Click() Dim a(1 To 2, 1 To 2) As Integer Dim i As Integer, j As Inte

16、ger For i = 1 To 2 For j = 1 To 2 a(i, j) = (2 * i - 1) * 4 + j Next j Next i For i = 1 To 2 Print a(i, 3 - i), a(3 - i, i) Next iEnd Sub 6 13 13 65写出执行下列事件过程的输出结果。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 2 Call f(8, a) Print "a=" a, "b=" b Call f(a,

17、 b) Print "a=" a, "b=" bEnd SubPrivate Sub f(ByVal x As Integer, y As Integer) x = x + 1 y = y - 1End Sub a=2 b=2 a=2 b=16若有如下窗体模块： Dim a As IntegerPrivate Sub test() Dim b As Integer a = a + 1: b = b + 1 Print "Sub: " a, bEnd SubPrivate Sub Command1_Click() a = 2: b =

18、3 Call test Call testEnd Sub写出当程序启动并单击命令按钮后，在窗体中显示的结果。Sub： 3 1 Sub： 4 1 四、程序填空题 (每空2分，共22分) 1. 下面事件过程的功能是：输入某个学生某门课程的百分制成绩，并根据成绩输出评语，若0成绩60 时，评语为“差”；若60成绩70时，评语为“通过”；若70成绩80时，评语为“中等”；若80成绩90时，评语为“良好”；若90成绩100时，评语为“优秀”，在横线上填上适当内容。Private Sub Command1_Click() Dim s! s = InputBox("请输入学生的成绩：")

19、 If 0<=s And s<=100 Then Select Case (1) s Case Is >= 90 Print "优秀" Case Is >= 80 Print "良好" Case Is >= 70 Print "中等" Case Is >= 60 Print "通过" (2) Case Else或Is >=0 Print "差" End Select End IfEnd Sub2.下面程序的功能是：计算 f=1 -1/(2×3)

20、+1/(3×4)-1/(4×5)+ +1/(19×20)的值，在横线上填上适当内容。Private Sub Form_Click() Dim f As Single,i As Integer,sign As Integer （3） sign=-1 f = 1 （4） for i=2 to 19 f = f + sign/(i*(i + 1) （5） sign=sign*(-1) Next i Print " f= " fEnd Sub3.下面窗体模块的功能是：从键盘上输入x，y和z的值，按如下公式求f (x，y，z)的值的程序，在横线上填上适当

21、内容。f(x,y,z)=sin(x)/(sin(x-y)*sin(x-z)+sin(y)/(sin(y-z)*sin(y-x)+sin(z)/(sin(z-x)*sin(z-y)其中x、y和z互不相等。Function f(ByVal a As Single,ByVal b As Single,ByVal c As Single) (6) As Single (7) f=Sin(a)/(Sin(b)* Sin(c) End Function Private Sub Command1_Click() Dim x!, y!, z!, s! x = InputBox("x=")

22、y = InputBox("y=") z = InputBox("z=") If x <> y And y <> z And z <> x Thens=f(x,x-y,x-z)+f(y,y-z,y-x)+ (8) f(z,z-x,z-y) Print "s=" s Else Print "数据输入错误！" End IfEnd Sub4.下面事件过程的功能是从学生分数顺序文件D: 中读取各个学生的分数，并求该班的平均成绩，在横线上填上适当内容。Private Sub command1_Click() Dim n%, score!, s! Open "D:" (9) As #3 For Input n = 0: s = 0 While (10) Not EOF(3) Input #3,score s = s + score n = (11) n+1 Wend Print "平均成绩为：" s / n