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

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

2、C、2x D、and4. 选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（ C ）。A、T>=1.7 And W<=62.5             B、T<=1.7 Or W>=62.5C、T>1.7 And W<62.5               D、T>=1.

3、7 Or W<62.55. 设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个6. 如果x小于y的平方，则在窗体上输出“OK”。完成该要求的单行条件语句是（ C ）。A、If x < y 2 Then "OK" B、If x < y 2 Then Show "OK"C、If x < y 2 Then Print "OK" D、

4、f x < y 2 Then Put "OK"7. 要使循环体至少执行一次，应使用（ D ）循环。A、For Next B、While Wend C、Do LoopWhile/Until D、DoWhile/Until Loop（先做在判断，所以会执行一次的）8. 下面程序段求两个数中的大数，不正确的语句是（ D ）。A、Max=Iif(x>y,x,y) B、if x>y Then Max=x Else Max=yC、Max=x D、if y>=x Then Max=y（Else） If y>=x Then Max=y Max=x9. 以下条件

5、语句错误的是（ A ）。A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0C、If X > 0 Then Y = 1: Print Y D、If X > Y Then Print Y End If10. 若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ D ）。A、Text属性值为*         B、Caption属性值为*C、Password属性值为空   D、PasswordChar属性值为*11. 设置标

6、签Label1的属性使它不可见的语句是（ D ）。A、Label1.Visible = -1 B、Label1.Visible = 1C、Label1.Visible = true D、Label1.Visible = False 12. 修改控件属性，既可以使用属性窗口，也可以通过（ D ）为控件属性赋值。A、属性 B、事件 C、方法 D、代码13. 在程序代码中引用一个控件时，应使用控件的（ B ）属性。A）Caption B）Name C）Text D）Index14. 若要获得列表框中被选中的列表框的内容，可以通过访问（ B ）属性来实现。A）Name B）ListIndex C）Li

7、stCount D）Text15. 以下叙述中正确的是（ B ）。 16. A一个 Sub 过程至少要一个 Exit Sub 语句 （×）B一个 Sub 过程必须有一个 End Sub 语句 C可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程 D调用一个 Function 过程可以获得多个返回值 得分二、 填空题（共8空，每空2分，共16分）1. InputBox函数返回值的类型为 string 。2. 与事件相关的一段程序代码称为 事件过程代码 。3. 循环语句FOR k=2 TO 30 STEP 5 使循环体执行的次数是 6 。 4. 可表示50,

8、100之间的随机数的语句是 int(rnd*51+50) 。5. Print方法分区输出时，用 逗号 分隔多个表达式。当输出多个表达式或字符串时，各表达式用分隔符(逗号、分号或空格)隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式(分区输出格式)显示数据项。6. 强制性退出ForNext循环的语句是 exit for 。7. 当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的 caption 属性设置成空白。8. 为了把焦点移到某个指定的控件，所使用的方法是 setfocus 。得分三、 基本操作题（共2小题，每小题10分，共20分）1打开工

9、程文件A3-1.vbp，完成以下操作，并以原文件名保存。 P651 设置窗体运行后出现在屏幕中心；（2分）2 设置口令的长度小于等于6；（3分）3 设置输入的口令以“*”显示；（3分）4 设置“确定”按钮为缺省按钮。（2分）2打开工程文件A3-2.vbp，完成以下操作，并以原文件名保存。 P1111 在文本框中输入课程名称，单击“添加”按钮，将该课程添加到列表框中，并清文本框的内容；（3分）2 选中列表框某课程，单击“删除”按钮，将选中的课程从列表框中删除；（4分）3 单击“清除”按钮，清除列表框中的所有课程。（3分）得分四、 程序填空（共4小题，每小题2空，每空3分，共24分）说明：打开已有

10、的工程文件，根据要求实现的功能，在“?”处用相应的代码代替（不得删除原有的代码，必须在?处填写），使程序能正常运行。1 打开考试目录下的“A4-1.vbp”，完善程序并保存。要求：（1） 圆的半径r利用InputBox函数从键盘输入（r>0）。（2） 圆周率定义为符号常量。（3） 求圆的周长lenth和面积area。（4） 用Print方法输出圆的周长和面积。原程序：Private Sub Command1_Click() Dim r As Single Dim lenth As Single, area As Single Const ? PI=3.14159 r = ? Val(In

11、putBox(“圆的半径”,0) lenth = 2 * PI * r area = PI * r * r Print "半径=" r, "周长=" lenth, "面积=" areaEnd Sub2 打开考试目录下的“A4-2.vbp”，完善程序并保存。要求实现功能：利用Do WhileLoop语句求s=12+22+1002。（运行效果如下图所示）。原程序：Private Sub Command1_Click() Dim n As Integer, s As Long n = 1: s = 0 Do While ? n<101

12、 s = ? s+n*n n = n + 1 Loop Print "s=" sEnd Sub3 打开考试目录下的“A4-3.vbp”，完善程序并保存。已知计算机等级考试的百分制成绩mark，要求用Select Case语句将百分制成绩mark转换成对应五级制的评定grade。评定条件如下：mark85，优60mark<85，合格mark<60，不合格要求实现功能：用文本框输入成绩mark，在图片框中用print方法输出评定结果grade的值。当单击清除按钮时，会清除文本框及图片框显示的内容（运行效果如下图所示）。原程序：Private Sub Command1

13、_Click() Dim a As Integer a = Val(Text1) Select Case a Case Is > =85 grade = "优" Case 60 To 84 grade = "合格" ? Case Is<=59 grade = "不合格" End Select Picture1.Print "成绩评定为：" gradeEnd SubPrivate Sub Command2_Click() Text1 = "" Picture1. ? ClsEnd Su

14、b4 打开考试目录下的“A4-4.vbp”，完善程序并保存。要求实现的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。（运行效果如下图所示）。原程序：Private Sub Command1_Click() Dim x As Single, amax As Single, amin As Single x = InputBox("Enter a score") amax = x amin = x Do While ? x>0 If x > amax Then amax = x End If If ? x<=

15、amin Then amin = x End If x = InputBox("Enter a score") Loop Print "最高分 =" amax, "最低分 =" aminEnd Sub得分五、 程序设计题（10分）编写程序实现以下功能：随机生成10个两位整数，求数组元素之和sum及平均值aver，然后先按原顺序输出数组各元素，再按相反的顺序输出数组各元素，并输出元素之和sum及平均值aver。工程文件命名为A5-1.vbp，窗体文件命名为A5-1.frm，程序运行界面如图5-1所示。（10分）图5-1 程序运行界面1

16、求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click()RandomizePicture1.Print "产生的随机数为："For i = 1 To 10a(i) = Int(Rnd * 99 + 1)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim max, min, avemax = a(1)min = a(1)ave = 0.1 * a(1)For i = 2 To 10If a(i)

17、> max Then max = a(i)If a(i) < min Then min = a(i)ave = ave + 0.1 * a(i)Next iPicture1.Print "最大数为：" maxPicture1.Print "最小数为：" minPicture1.Print "平均数为：" aveEnd Sub2.求水仙花数Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9For b = 0 To 9Fo

18、r c = 1 To 9If a 3 + b 3 + c 3 = a + 10 * b + 100 * c ThenMsgBox 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_Activate()Dim i As Integer, j As Integer, k As Integer, n As IntegerFor i = 1 To 100For j = 1 To 100For k = 1 To 100I

19、f i * a + j * b + k * c = 100 Thenn = n + 1List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & kEnd IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_Click()OutputWanNumber 1000End Sub4.'求完数的过程Privat

20、e Sub Form_Click()Dim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd IfNext iEnd Sub5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a 10:'去掉末位数loop until a=0print "sum="sum:'输出e

21、nd（dim n as stringinput nfor i = 1 to len(n)sum=sum+val(mid(n,i,1)next iprint sum）6.求最小公倍数Private Sub Form_Load()Form1.AutoRedraw = TrueDim n1%, m1%, m%, n%, r%n1 = InputBox("输入n1")m1 = InputBox("输入m1")If m1 > n1 Then '为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End If

22、Dor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; "," m1; "的最大公约数为" nPrint "最小公倍数=", m1 * n1 / nEnd Sub7.求逆序数（感觉题目类型太多）8. 级数有限项求和问题（题目类型太多）9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(InputBox("请输入2的整数:")I = 2DoIf N Mod I

23、= 0 ThenPrint I;N = N IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integerDim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)>=”A” And UCase(S)<=”Z” ThenA(Asc

24、(UCase(S)-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub第二大题1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False: Exit FunctionDim i As LongFor i = 2 To Sqr(Num)If (Num Mod i) = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As LongFor i = 1 To 1000If isprime(i) ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIf(A >= B, A