vb练习题有答案打印.docx

1、vb练习题有答案打印大学Visaul Basic程序设计复习题 第一章Visual Basic程序设计概述 第一题:是非题(共10分,每项1分) 1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。13 A.对 B.错 2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。4 A.对 B.错 第二题、单选题(共45分,每项1.5分) 1. VB中的工具栏可以从_菜单上的“工具栏”命令中移进或移出。15 A.工具 B.编辑 C.视图 D.调试 2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是_。2 A

2、.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 第二章VB的编程机制 第一题:是非题(共10分,每项1分) 1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。15 A.对 B.错 2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。9 A.对 B.错 3. 每一个控件实质上都是一个微型程序。2 A.对 B.错 4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。 A.对 B.错 第二题、单选题(共45分,每项1.5分) 1. 文本框没有_属性。21 A.Enabled B.Visible C.BackColor D.Caption 2. 文

3、本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是_。9 A.“Hello”将替换掉原来选定的文本 B.“Hello”将插入到原来选定的文本之前 C.Text1.SelLength为5 D.文本框中只有“Hello” 3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的_事件中判断。3 A.Chang B.KeyDown C.Click D.KeyPress 4. 如果文本框的Enabled属性设为False,则_。6 A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上 B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改

4、变文本框中的内容 C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容 D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容 第三题、简单程序(共15分,每项1.5分) 1. 以下程序的输出结果是_。2 1 Private Sub Command1_Click() Dim x As Single x=0.000000075 Print x End Sub A.0.000000075 B.000000075 C.7.5E-8 D.7.5E-08 2. 在窗体中添加Command1和Command2两个命令按钮来测验文本框Text1的值,然后编写如下代码: 4 Pri

5、vate Sub Command1_Click() Text1.Text = AB End Sub Private Sub Command2_Click() Text1.Text = CD End Sub 首先单击Command2按钮,然后再单击Command1按钮,在文本框中显示_。 A.AB B.CD C.ABCD D.CDAB 第二卷主观题 填空题(共30分,每项2分。注意:填两个空的题的时候,要按照从上至下,从左至右的顺序添入答题卡!) 1. 下列程序段的运行结果。2 Private Sub Form_Click() Form1.CurrentX=500 Form1.CurrentY=

6、500 Form1.Print ”您好!” End Sub A.在距离窗体左边框500单位处,显示“您好” B.在距离窗体标题栏500单位处,显示“您好” C.在窗体的中心处,显示“您好” D.在距离窗体左边框和标题栏500单位处,显示“您好” 第三章Visual_Basic语言基础 第一题:是非题(共10分,每项1分) 1. 一条V isual Basic语句如果不超过80个字符是不能运行的。3 A.对 B.错 2. 以Rem开头的注释可以直接出现在语句后面。1 A.对 B.错 3. 变量名是以字母或汉字开头,由字母、汉字、数字或下划线组成,长度可以任意的字符序列。9 A.对 B.错 4.

7、逻辑型数据的值只有True与False两个值,非零为True,0为False。2 A.对 B.错 5. 是一个字符串,而不是一个字符串。7 A.对 B.错 6. 表达式“ab”& 34的结果是“ab34”。5 A.对 B.错 7. 用Dim语句声明变量时,VB系统不仅为变量分配相应数据类型的内在空间,而且还为变量赋所需的初值。8 A.对 B.错 8. 在VB系统中,没有用Dim语句声明的变量不能使用,因为它没有数据类型。8 A.对 B.错 9. 在程序运行过程中,变量中的值不会改变,而常量中的值会被改变。7 A.对 B.错 10. 用Const语句定义的符号常量的名字必须用大写字母构成。4 A

8、.对 B.错 11. 函数Mid(abc123,3,3)的返回值为c12。 A.对 B.错 12. 在VB中,运算符“/”与“”都是除法运算符,所以表达式5/2与52的结果一样。 A.对 B.错 第二题、单选题(共45分,每项1.5分) 1. 在下列表达式中,非法的是_。8 A.a=b+c B.ab+c C.abc D.a4 And 7=5的返回值为_。12 A.0 B.True C.-1 D.False 4. 表达式Int(23.4)+Round(-3 5.5)的计算结果为_。16 A.-11 B.-12.1 C.-13 D.-12.5 5. Integer类型的数据由_字节组成。16 A.

9、1 B.2 C.3 D.4 6. 在V isual Basic中,用于获得字符串S最左边4个字符的函数是_。7 A.Left(S,4) B.Left(1,4) C.LeftStr(S) D.LeftStr(S,4) 7. 以下_不能作为VB中的变量名。12 A.Abx45 B.P1234 C.89TasFF D.xy 8. 下面四项中,_是VB中的数值变量。6 A.ABC B.E+2 C.True D.1.35E-2 9. 表达式a+b=c是_。6 A.赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式 10. 下列四个字符串进行比较,最小的是_。9 A.9977 B.B123 C.B

10、ASE D.DA TA 11. 在V isual Basic中,语句Print 39的输出结果为_。14 A.0 B.1 C.-1 D.False 12. 语句Print Format(HELLO, yz的正确VB逻辑表达式是_。12 A.xy And yz C.xy And z D.xy And yz 19. 函数Int(Rnd*11)+10产生的数值的范围是_。8 A.(0,10) B.10,10 C.10,20 D.(0,20) 20. 下列逻辑表达式中,其值为真的是_。4 A.bABC B.THA TTHE C.9H D.Aa 第三题、简单程序(共15分,每项1.5分) 1. 以下程序

11、的输出结果是_。12 Private Sub Command1_Click() a=1234 b$=Str$(a) c=Len(Trim(b) print c;LenB(b) End Sub A.3 8 B.4 10 C.5 10 D.4 8 2. 以下程序的输出结果是_。12 Private Sub Command1_Click() Dim sum As Integer sum%=19 sum=2.32 Print sum%,sum End Sub A.19 2.32 B.19 19 C.2.32 2.32 D.2 2 3. 执行下面程序段后,变量c$的值为_。7 a$= Visual Ba

12、sic Programming b$= Quick c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12) A.Visual BASIC Programming B.Quick Basic Programming C.QUICK Basic Programming D.Quick BASIC Programming 4. 以下程序的输出结果是_。6 Private Sub Command1_Click() a=ABCD b=efgh c=Lcase(a) d=Ucase(b) Print c+d End Sub A.abcdEFGH B.abcdefgh C.AB

13、CDefgh D.ABCDEFGH 5. 下面程序运行后,输出的结果为_。8 Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left(A$,2)+Right$(B$,2),C$) Print C$ End Sub A.10 B.0 C.8 D.6 第四章控制结构 第二题、单选题(共45分,每项1.5分) 1. If结构的结束语句是_。5 A.End Select B.End Sub C.End If D.End Do 2. InputBox函数的返回值的类型为_。4 A.数值 B.字符

14、串 C.逻辑值 D.日期值 3. MsgBox函数的返回值的类型为_。5 A.整数 B.字符串 C.逻辑值 D.日期值 4. 通过代码在运行时设置属性的语法格式为_。14 A.对象名=属性.新值 B.对象名.属性=新值 C.对象名.新值=属性.新值 D.对象名.属性=属性.新值 第三题、简单程序(共15分,每项1.5分) 1. 从键盘输入一个实数mm,利用字符串函数对输入的数进行处理,如果输出的内容不是字符则输出“END“,程序的输出结果是_。11 Private Sub Command1_Click() mm=V al(InputBox(请输入一个实数) n$=Str$(mm) p=InSt

15、r(n, .) InStr()函数:指定一字符串在另一字符串中最先出现的位置 If p0 Then Print Mid(n,p) Mid 语句来得到某个字符串中的几个字符 Else Print END End If End Sub A.用字符方式输出数据mm B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据部分的小数点,保留所有数码输出 2. 运行下面程序后,在弹出的消息窗口中显示的是_。7 Private Sub Form_Click() score=Int(Rnd)+5 当参数为负数时,Int 函数返回小于或等于该参数之最大整数,rem 而Fix 函数则返回大于或等于该参数之

16、最小整数。 Select Case score Case 5 a$=Good Case 4 a$=Ok Case 3 a$=Pass Case Else a$=Bad End Select MsgBox a$ End Sub A.Bad B.Pass C.Ok D.Good 3. 以下程序的输出结果是_。8 Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.101 4. 以下程序的循环次数是_。11 Private Sub Command1_

17、Click() For j=8 To 35 Step 3 Print j; Next j End Sub A.10 int(35-8)/3+1 B.9 C.27 D.28 5. 执行下面程序段后,变量a的值为_。20 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9 C.14 D.21 6. 执行下面程序段后,变量x的值为_。20 x=5 For I=1 To 20 step 2 x=x+I5 Next I A.21 B.22 C.23 D.24 7. 当输入4时,以下程序的输出结果是_。7 Pr

18、ivate Sub Command1_Click() x=InputBox(x) If x215 Then y=x2+1 Print y End Sub A.4 B.17 C.18 D.0.25 8. 运行下面程序后,在弹出的消息窗口中显示的是_。3 Private Sub Form_Click() Dim counter counter=0 While counter20 counter=counter+1 Wend MsgBox counter End Sub A.0 B.21 C.20 D.19 9. 运行下面程序后,在窗体中显示的是_。4 Private Sub Form_Click(

19、) a$=*: b$=$ For k=1 To 3 x$=String$(Len(a$)+k,b$) 指定长度重复字符的字符串。 Print x$; Next k Print End Sub A.、* * * B.*$*$*$ C.1*$2*$3*$ D.、$ 10. 下面程序运行后,单击命令按钮,在两个文本框中显示的值分别为_。7 Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub A.1和0 B.2和72 C.3和

20、50 D.4和168 11. 执行下面的程序段后,I的值为_。3 s = 2 For I = 3.2 To 4.9 Step 0.8 s = s + 1 Next I A.6.4 B.5.6 C.4.8 D.7.2 12. 执行下面的程序段后,变量S的值为_。3 S=5 For I =2.6 To 4.9 Step 0.6 S=S+1 Next I A.7 B.8 C.9 D.10 13. 在窗体中添加一个文本框(其中Name属性为Text1),然后编写如下代码:2 Private Sub Form_click() Text1.Text = Text1.SetFocus For I = 1 T

21、o 10 Sum = Sum + I Next I Text1.Text = Sum End Sub 上述程序运行后,单击窗体,则运行的结果_。 A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错 D.在文本框Text1中输出不定值 14. 运行下面程序后,在弹出的消息窗口中显示的是_。2 Private Sub Form_Click() k=0 Do While k70 k=k+2 k=k*k+k a=a+k Loop MsgBox a End Sub A.64 B.72 C.78 D.148 第二卷主观题 填空题(共30分,每项2分。注意:填两个空的题的时候,要按照

22、从上至下,从左至右的顺序添入答题卡!) 1. 请用正确的内容填空。以下程序找出50以内所有能构成直角三角形的整数组。14 Private Sub Form_Click() For x=1 To 50 For y=x To 50 z=Sqr(x*x+y*y) If z = 50 And z=Int(z)Then Print x; y; z z是小于50的整数吗 Next y Next x Print End Sub 2. 在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程 2 Private Sub Command1_C1ick() Dim a As String a= “1234

23、56789” For I =1 To 5 Print Spc(6-I);Mid$(a,6-I,2*I-1) Next I End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。 3. 请用正确的内容填空。下面程序运行后,输出的结果是: * * * * Private Sub Form_Click() For I=1 To 4 Print Tab(10+I); For j=1 To 8 Print *; Next j Print Next I End Sub 4. 请用正确的内容填空。以下程序的功能是统计字符串a

24、中出现字符串b的次数,然后输出。Private Sub Form_Click() a$=ABCDEHGABCDEFABCDEABCDABCABA b$=AB c=InStr(a$, b$) x=0 While c0 x=x+1 a$=Mid$(a$, c+2) c=InStr(a$,b$) Wend Print x End Sub 5. 下面程序运行时,内层循环的循环总次数是_6_。9 For m = 1 To 3 For n = 0 To m - 1 Next n Next m 6. 执行下面的程序段后,s的值为_7_。14 Private Sub Form_Click() Static s

25、 As Integer s = 5 For I = 1.4 To 2.1 Step 0.6 s = s + 1 Next I Print s End Sub 7. 以下程序的功能是:生成20个200到300之间的随机整数,输出数的位置能被5整除的数并求出它们的和。请填空。14 Private Sub Commandl_C1ick() For I=1 To 20 x=Int( rnd*100+200) If I Mod 5 =0 Then Print x S=S+ x End If Next I Print Sum=;S End Sub 8. 执行下面的程序段后,X的值为_8_。3 X=5 Fo

26、r I=1 to 10 Step 2 X=X+I5 Next I 9. 请用正确的内容填空。7 下面程序的作用是利用随机函数产生10个(1200)之间的随机整数,打印其中7的整数倍的数并求其和。 Private Sub Form_Click() For I=1 To 10 x=Int(Rnd*200+1) If (x mod 7) = 0Then k1=k1+x Print x End If Next I Print Print k1=;k1 End Sub 10. 请用正确的内容填空。8 下面程序的功能是通过InputBox对话框接受一个二进制数,并把它转换成一个十进制数,结果显示在窗体中。 Private Sub Form_Click() b=InputBox(请输入一个二进制数) m=Len(b)