VisualBasic程序设计试题及其答案

《VisualBasic程序设计试题及其答案》由会员分享，可在线阅读，更多相关《VisualBasic程序设计试题及其答案（8页珍藏版）》请在装配图网上搜索。

1、、填空题（每题1分，共10 分）1.把数学式子：.12sin25写成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 ）。x=0For i=1 To 8 Step 3x=x+iNext i5 在图片框上放置的控件称为图片框的（子）对象，而窗体是图

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

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

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

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

6、程：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. 在运行程序时，要使文本框获得焦点，则需使用（BA） ChangeB） SetFocusC） GotFocus12. 下列语句中不能把图片框

7、Picture1 中的图形清除的是（A） Picture1.DelB）Picture1.)方法。D) Move A )。Picture=LoadPicture()C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13.要删除列表框中的某一个项目，需要使用(D )方法。A） ClearB） ReMoveC） Move14.在组合框中选择某一项目内容，在程序中可以通过（A） ListB） ListIndexC） ListCountD) ReMoveItemD )属性获得。D) Text15.若有数组说明语句： Dim

8、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)Age17. 要使子过程 f1 调用后能用形式参数返回两个结果， 下面子过程定义正确的是 ( C )

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

10、As #2D) Open c:t1.txt For Input As #219 从磁盘上打开顺序文件 c:t1.txt 确的。A) F=c:t1.txtBOpen F For Input As #1C) Open c:t1.txt For Output As #120. 以下叙述中正确的是 ( B ) 。A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open 命令的作用是打开一个已经存在的文件D) 使用 Input# 语句可以从随机文件中读取数据三、程序阅读题 (第 1题3分，第 2题5分，其余题各 4分，共 24分)1当 x 的输入值分别为 4

11、、 8 和 12 时，写出执行下列事件过程的输出结果。Private Sub Command1_Click()请输入 x 的值： )Dim x%, y% x = InputBox( Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is 10y = x * x + 1End SelectPrin t x=; x, y=; yEnd Subx=4y=20x=8y=10x=12y=1452. 写出执行下列事件过程的输出结果。Private Sub Comma nd1_Click(

12、)Const n = 3Dim i As In teger, k As In tegerFor i = 1 To nPrint Tab(n - i) * 2 + 1);For k = 1 To iPrint Str(k);Next kFor k = i - 1 To 1 Step -1Print Str(k);Next kPrintNext iEnd Sub11 2 13. 设在一个窗体（如图所示）中已设置了一个组合框Combo1和文本框Text 1,且有下列程序，试写出事件过程 Combo1_Click的功能。Dim str As Stri ngPrivate Sub Form_Load()

13、str =Combo1.Addltem北京“Combo1.Addltem天津Combo1.AddItem西安Combo1.AddItem上海Combo1.AddItem武汉Combo1.AddItem广州Combo1.AddItem海口 “Combo1.Text =北京”勘 Forinl-JIEKIEnd SubPrivate Sub Combo1_Click()str = str & Combo1.Text & ， Text1.Text = strEnd Sub 在文本框中显示单击组合框列表项目时该项目的内容，而且以后来添加的方式在文本 框中显示所有选择项目的内容。4. 写出执行下列事件过程

14、的输出结果。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 = 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 Intege

15、ra = 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, 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 + 1Print Sub: ; a, bEnd SubPrivate Sub Comma nd1_Click()a

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

17、生的成绩:If 0=s And s= 90优秀”Print Case Is = 80Print 良好”Case Is = 70Print Case Is = 60中等”Print 通过”(2)Print End SelectEnd IfEnd Sub2.下面程序的功能是：计算f=1 -1/(2值，在横线上填上适当内容。Private Sub Form_Click()Dim f As Sin gle,i As In teger,sig n As In tegersign=_1(3)Case Else 或 Is =0X 3)+1/(3 X 4)-1/(4 X 5)+ - +1/(19 X 20)的

18、for i=2 to 19f = f + sig n/(i*(i + 1)sig n=sig n*(_1)Next iPrint f= ”; fEnd Sub3.下面窗体模块的功能是：从键盘上输入 x, 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,ByV

19、alc As Single) (6) As Single(7) f=Sin(a)/(Sin(b)* Sin(c)End FunctionPrivate Sub Comma nd1_Click()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)Prin t s=; sElsePrint 数据输入错误！”End IfEnd Sub4.下面事件过程的功能是从学生分数顺

20、序文件D: file1.dat中读取各个学生的分数，并求该班的平均成绩，在横线上填上适当内容。Private Sub comma nd1_Click()Dim n%, score!, s!Ope n D:file1.dat (9) As #3 For In putn = 0: s = 0While _(10) Not EOF(3)In put #3,scores = s + scoren =(11 n+1WendPrint 平均成绩为：;s / nClose #3End Sub五、程序设计题(每题7分，共14分)1.假设体操比赛有10个评委和评分规定为：采用 10分制；去掉一个最高分和去掉一个

21、最低分，然后计算平均分，该平均分作为最后得分。试编写一个事件过程，输入10个评委对某个运动员的评分存放在一维数组s中，计算该运动员的最后得分。Private Sub Comma nd1_Click()Dim s!(1 To 10), max!, mi n!, i%, sum!max = 0: min = 11: sum = 0请输入第” & Str(i) & ” 个评委的分数)Fori = 1 To 10 s(i) = In putBox(Next iFori = 1 To 10If s(i) max The n max = s(i)If s(i) min Then min = s(i)sum = sum + s(i)Next iPrint 最后得分：;(sum - max - min)/ 82 2 2a b =c o试编写一个事件过程，求3、4和5就是这样一个整数组合。End Sub2.勾股定理中的三个数a、b和c的关系为:出30以内满足上述关系的整数组合并输出。例如，Private Sub Comma nd1_Click()Prin t a,b,cFor a = 1 To 30For b = 1 To 30For c = 1 To 30If a*a+b*b=c*c Then Print a,b,cNext cNext bNext a8