一VB程序设计基础练习试题库

1、-. z.一、 单项选择题共15小题，每题2分，共30分以下表达中，错误的选项是B 。A) 在Visual Basic中，对象所能响应的事件是由系统定义的B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C) Visual Basic中允许不同对象使用一样名称的方法D) Visual Basic中的对象具有自己的属性和方法以下表达中，错误的选项是 C 。A、VB是可视化程序设计语言B、VB采用事件驱动编程机制C、VB是面向过程(对象)的程序设计语言D、VB应用程序可以以编译方式执行以下 A 是合法的变量名。A、*_y 合法变量名以字母或下划线头 B、*-y C、2* D、and

2、选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为 C 。A、T=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W62.5设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.b=Left(a，8,5) 取字符串a第8个字符开场的5个如果*小于y的平方，则在窗体上输出“OK。完成该要求的单行条件语句是 C 。A、If * y 2 Then OK B、If * y 2 Then Show OKC、If * y 2 Th

3、en Print OK D、f * y,*,y) B、if *y Then Ma*=* Else Ma*=yC、Ma*=* D、if y=* Then Ma*=yElse If y=* Then Ma*=y Ma*=*以下条件语句错误的选项是 A 。A、If * Then Y = Y + 1 B、If * = 0 Then Y = 0C、If * 0 Then Y = 1: Print Y D、If * Y Then Print Y End If假设要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置 D 。A、Te*t属性值为* B、Caption属性值为*C、Pa

4、ssword属性值为空D、PasswordChar属性值为*设置标签Label1的属性使它不可见的语句是 D 。A、Label1.Visible = -1 B、Label1.Visible = 1C、Label1.Visible = true D、Label1.Visible = False修改控件属性，既可以使用属性窗口，也可以通过 D 为控件属性赋值。A、属性 B、事件 C、方法 D、代码在程序代码中引用一个控件时，应使用控件的 B 属性。ACaption BNameCTe*t DInde*假设要获得列表框中被选中的列表框的内容，可以通过访问 B 属性来实现。AName BListInde

5、*CListCount DTe*t以下表达中正确的选项是 B 。A一个 Sub 过程至少要一个 E*it Sub 语句 B一个 Sub 过程必须有一个 End Sub 语句 C可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程 D调用一个 Function 过程可以获得多个返回值 得分二、 填空题共8空，每空2分，共16分InputBo*函数返回值的类型为 string。与事件相关的一段程序代码称为事件过程代码 。循环语句FOR k=2 TO 30 STEP 5 使循环体执行的次数是 6 。 可表示50,100之间的随机数的语句是 int(rnd*51+50) 。

6、Print方法分区输出时，用 逗号 分隔多个表达式。当输出多个表达式或字符串时，各表达式用分隔符(逗号、分号或空格)隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式(分区输出格式)显示数据项。强制性退出ForNe*t循环的语句是e*it for 。当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的 caption 属性设置成空白。为了把焦点移到*个指定的控件，所使用的方法是setfocus 。得分三、 根本操作题共2小题，每题10分，共20分1翻开工程文件A3-1.vbp，完成以下操作，并以原文件名保存。 P65设置窗体运行后出现在屏幕中心；

7、2分设置口令的长度小于等于6；3分设置输入的口令以“*显示；3分设置“确定按钮为缺省按钮。2分2翻开工程文件A3-2.vbp，完成以下操作，并以原文件名保存。 P111在文本框中输入课程名称，单击“添加按钮，将该课程添加到列表框中，并清文本框的内容；3分选中列表框*课程，单击“删除按钮，将选中的课程从列表框中删除；4分单击“去除按钮，去除列表框中的所有课程。3分得分四、 程序填空共4小题，每题2空，每空3分，共24分说明：翻开已有的工程文件，根据要*现的功能，在“处用相应的代码代替不得删除原有的代码，必须在处填写，使程序能正常运行。翻开考试目录下的“A4-1.vbp，完善程序并保存。要求：圆的

8、半径r利用InputBo*函数从键盘输入r0。圆周率定义为符号常量。求圆的周长lenth和面积area。用Print方法输出圆的周长和面积。原程序：Private Sub mand1_Click() Dim r As Single Dim lenth As Single, area As SingleConst PI=3.14159 r = Val(InputBo*(“圆的半径,0) lenth = 2 * PI * r area = PI * r * r Print 半径=; r, 周长=; lenth, 面积=; areaEnd Sub翻开考试目录下的“A4-2.vbp，完善程序并保存。要

9、*现功能：利用Do WhileLoop语句求s=12+22+1002。运行效果如以下图所示。原程序：Private Sub mand1_Click()Dim n As Integer, s As Long n = 1: s = 0 Do While n101s = s+n*nn = n + 1 Loop Print s=; sEnd Sub翻开考试目录下的“A4-3.vbp，完善程序并保存。计算机等级考试的百分制成绩mark，要求用Select Case语句将百分制成绩mark转换成对应五级制的评定grade。评定条件如下：mark85，优60mark85，合格mark =85 grade =

10、 优 Case 60 To 84 grade = 合格 Case Is0 If * ama* Then ama* = * End If If * ma* Then ma* = a(i)If a(i) n1 Then 为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then E*it Dom = nn = rLoopPrint n1; ,; m1; 的最大公约数为; nPrint 最小公倍数=, m1 * n1 / nEnd Sub7.求逆序数感觉题目类型太多8. 级数有限项求和问题题目类型太

11、多9. 求质因子问题Private Sub mand1_Click()Dim N As Integer, I As IntegerN = Val(InputBo*(请输入2的整数:)I = 2DoIf N Mod I = 0 ThenPrint I;N = N IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option E*plicitPrivate Sub mand1_Click()Dim i as integer，A(26) as integer，n as integerDim S as string*1,Strl a

12、s stringStrl=Te*t1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)=A And UCase(S)=Z ThenA(Asc(UCase(S)-64)+1End IfNe*t iFor i=1 To 26List1.Additem Chr(64+i) & “: & A(i)Net* iEnd SubPrivate Sub mand_Click()EndEnd Sub第二大题1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num = B, A, B) *存入最大值Y = IIf(A a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNe*tNe*tEnd Sub4顺序查找过程Private Sub mand1_Click()Dim i, j, t