VisualBasic程序设计》试题及其答案

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

2、）对象，而窗体是图片框的（父）对象。6. 将命令按钮 Comma nd的Captio n属性值赋给文本框 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 num As Long) As Lo

3、ngDim k As Long,i As Integerk=1For i=1 To num k=k*iNext iEnd Function0 ）。分，共 30 分）执行语句 Print fun（5） 后在窗体上显示的结果为（ 二、单项选择题（每题 1.51. 装载窗体是窗体的（C ）。A） 对象B)属性C)事件D)方法2. 设 a=Visual Basic，下面使 b 的值为 BasicII的赋值语句正确的是 （ B ） 。A) b=Left(a,8,12)B) b=Mid(a,8,5)C) b=Right(a,5,5)D) b=Left(a,8,5)3.设X为整型变量，不能正确表达1 X 5

4、的逻辑表达式是（A ）A) 1 X 5B) X=2 or X=3 or X=4C) 1X And X 5D) Not (X=5)4 . InputBox 函数返回值的类型为 ( B ) 。A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型5.执行语句： Print 4+56*8/8 Mod 9 输出的值是 ( A ) 。A) 4B) 5C) 6D) 76. 下列循环语句能正常结束循环的是（C）DoDoi=i+1i=i+2Loop Until i 0Loop Until i=17 以下叙述中正确的是 （ A ）。A）窗体的NameW性指定窗体的名称，用来标识一个窗体B）窗体的Name属性的

5、值是显示在窗体标题栏中的文本C）可以在运行期间改变窗体的Name属性的值D）窗体的Name属性值可以为空8. VB为命令按钮提供的 Cancel属性（A ）。A）用来指定命令按钮是否为窗体的“取消”按钮B）用来指定命令按钮的功能是停止一个程序的运行C）用来指定命令按钮的功能是关闭一个运行程序D）用来指定命令按钮的功能是中断一个程序的运行9. 若使命令按钮失效，要对（A ）属性设置为 False 。A）EnabledB） VisibleC） BackColorD）Caption10 .在窗体中添加两个文本框（其Name属性分别为Textl和Text2 ）和一个命 令按钮（Name属性为Comma

6、ndl，然后编写如下两个事件过程:Private Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()Text1.Text = abcDEFText2.Text = 123456End Sub程序启动后，单击命令按钮，输出结果为( C )A) abcDEF123456B )abcDEF123C) ABCDEF123D )ab12345611在运行程序时，要使文本框获得焦点，则需使用(B )方法。A) Change B) SetFocus C) Go

7、tFocusD) Move12下列语句中不能把图片框 Picture1 中的图形清除的是( A )。A) Picture1.DelB) Picture1.Picture=LoadPicture()C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing 13要删除列表框中的某一个项目，需要使用(D )方法。A) ClearB) ReMoveC) MoveD) ReMoveItem14在组合框中选择某一项目内容，在程序中可以通过(D )属性获得。A) ListB) ListIndexC) ListCount D) Text

8、15若有数组说明语句： Dim a()AS Integer ，则 a 被定义为( B )。A) 定长数组 B) 可调数组 C) 静态数组 D) 可变类型数 组16有如下语句：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)Age) Sub f1(n%,ByVal m%)子过程体 17. 要

9、使子过程 f1 调用后能用形式参数返回两个结果，下面子过程定义正确的是 ( C ) 。A) Sub f1(ByVal n%,ByVal m%)B 10y = x * x + 1End SelectPrint x=; x, y=End Subx=4y=20x=8y=10x=12y=1452. 写出执行下列事件过程的输出结果。Private Sub Command1_Click()Const n = 3Dim i As Integer, k As IntegerFor i = 1 To nPrint Tab(n - i) * 2 + 1);For k = 1 To iPrint Str(k);Ne

10、xt kFor k = i - 1 To 1 Step -1Print Str(k);Next kPrintNext iEnd Sub11 2 3 2 13.设在一个窗体(如图所示)中已设置了一个组合框Combo1和文本框Text 1 ,且有下列程序，试写出事件过程Combo1_Click的功能。Dim str As StringPrivate Sub Form_Load()str =厨_ 0|XCombo1.Addltem 北京Combo1.Addltem 天津Combo1.AddItem 西安Combo1.AddItem 上海Combo1.AddItem 武汉Combo1.AddItem

11、广州 Combo1.AddItem 海口 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 IntegerDim i As Integer, j As IntegerFor i = 1 To 2For j =

12、 1 To 2a(i, j) = (2 * i - 1) * 4 + jNext jNext iFor i = 1 To 2Print a(i, 3 - i), a(3 - i, i)Next iEnd Sub6 1313 65写出执行下列事件过程的输出结果。Private Sub Command1_Click()Dim a As Integer, b As Integera = 3: b = 2Call f(8, a)Print a=; a, b=; bCall f(a, b)Print a=; a, b=; bEnd SubPrivate Sub f(ByVal x As Integer,

13、 y As Integer)x = x + 1y = y - 1End Suba=2 b=2a=2 b=16若有如下窗体模块：Dim a As IntegerPrivate Sub test()Dim b As Integera = a + 1: b = b + 1Pri nt Sub: ; a, bEnd SubPrivate Sub Comma nd1_Click()a = 2: b = 3Call testCall testEnd Sub写出当程序启动并单击命令按钮后，在窗体中显示的结果。Sub: 31Sub： 41四、程序填空题(每空2分，共22分)1. 下面事件过程的功能是：输入某个

14、学生某门课程的百分制成绩，并根据成绩输出评语，若0冬成绩v 60时，评语为“差”；若 60成绩v 70时，评语为“通过”；若70成绩v 80时，评语为“中等”；若 80冬成绩v 90时，评语为“良好”；若90成绩冬100时，评语为“优秀”，在横线上填上适当内容。Private Sub Comma nd1_Click()Dim s!s = In putBox(请输入学生的成绩：)If 0=s And s= 90Pri nt 优秀Case Is = 80Pri nt 良好Case Is = 70Print中等Case Is = 60Print 通过(2) Case Else 或 Is =0Pri

15、nt差End SelectEnd IfEnd Sub2. 下面程序的功能是：计算f=1 -1/(2 X 3)+1/(3 X 4)-1/(4 X 5)+ +1/(19X 20)的值，在横线上填上适当内容。Private Sub Form_Click()Dim f As Sin gle,i As In teger,sig n As In teger(3) sig n=-1f = 1 for i=2 to 19f = f + sig n/(i*(i + 1)(5) sig n二 sig n* (-1)Next iPri nt f= ; fEnd Sub3. 下面窗体模块的功能是：从键盘上输入 x,

16、y和z的值，按如下公式求f (x , y，z)的值的程序，在横线上填上适当内容。f(x,y,z)=si n( x)/(si n( x-y)*si n( x-z)+si n( y)/(si n( y-z)*si n( y-x)+si n( z)/(si n(z-x)*si n(z-y)其中x、y和z互不相等。Function f(ByVal a As Single,ByVal b As Single,ByValc As Single) (6) AsSin gle(7) f=Sin(a)/(Sin(b)* Sin(c)End Fun cti onPrivate Sub Comma nd1_Clic

17、k()Dim x!, y!, z!, s!x = In putBox(x=)y = In putBox(y=)z = In putBox(z=)If x y And y z And z x The ns=f(x,x-y,x-z)+f(y,y-z,y-x)+(8) f(z, z-x,z-y)Print s=; sElsePri nt数据输入错误！End If的分数，并求该班的平均成绩，在横线上填上适当内容。Private Sub comma nd1_Click()Dim n%, score!, s!Ope n D:file1.dat (9) As #3 For In putn 二 0: s =

18、0While _(10) Not EOF(3)In put #3,scores = s + scoren 二 (11 n+1WendPri nt平均成绩为：;s / nClose #3End Sub五、程序设计题(每题7分，共14分)1假设体操比赛有10个评委和评分规定为：采用 10分制；去掉一个最高 分和去掉一个最低分，然后计算平均分，该平均分作为最后得分。试编写一个事件 过程，输入10个评委对某个运动员的评分存放在一维数组s中，计算该运动员的最后得分。Private Sub Comma nd1_Click()Dim s!(1 To 10), max!, mi n!, i%, sum!max = 0: min 二 11: sum = 0For i = 1 To 10s(i) = In putBox(请输入第& Str(i) &个评委的分数)Next iFor i = 1 To 10If s(i) max The n max = s(i)If s(i) min Then mi