vb练习题.doc

《vb练习题.doc》由会员分享，可在线阅读，更多相关《vb练习题.doc（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、如有侵权，请联系网站删除，仅供学习与交流vb练习题【精品文档】第 8 页第一套练习题一、选择题1、窗体的Name属性为Frm，它的Load事件过程名是( )。 A.Form_LoadB.Form1_LoadC.Frm_LoadD.Me_Load2、表达式INT(RND * 11) + 100的值的范围是( )。A.11,110B.100,110C.11,100D.0,1003、将命令按钮的( )属性设置为True,当用户按下【Enter】键时可以激发对应命令按钮的Click事件。A.NameB.EnableC.DefaultD.Cancel4、Visual Basic规定标准模块文件的扩展名是

2、( )。A.formB.frmC.vbpD.bas5、使用( )方法，可向列表框中的添加列表项。A.AddItemB.RemoveItemC.ClearD.Cls6、x + y小于15，且x * y要大于0的逻辑表达式是（ ）。 A.x+y0B.x+y0C.x+y15 and not(x*y0)D.x+y=07、下列( )对象在默认状态下运行时是不可见的。A.命令按钮B.时钟控件C.文本框D.标签8、通过改变选项按扭(OptionButton)控件的( )属性值可以改变按扭的选取状态。A.ValueB.StyleC.AppearanceD.Caption9、d是一个Boolean型的变量，下列

3、赋值语句错误的是( )。A.d = TrueB.d = TrueC.d = .True.D.d = 3 510、文本框控件的名称和Text属性的缺省值分别为( )。A.Text1，Text B.Text，Text1C.Text，TextD.Text1，Text111、语句Open test.dat For Append As #5的功能说明中错误的是( )。A.打开顺序文件test.dat，文件指针指示在文件末尾B.如果文件test.dat不存在，则建立一个新文件C.如果文件test.dat已存在，则打开该文新写入的的数据将覆盖原有的数据D.如果文件test.dat已存在，则打开该文新写入的的

4、数据将添加到文件的后面12、VB过程调用语句中的实参数必须与过程说明中的形式参数在（ ）上保持一致。A.个数、类型、名称B.个数、类型、顺序C.个数、顺序、名称D.个数、格式、顺序13、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接受到的（ ）。A.MouseDown B.MouseUpC.Load D.Click14、以下语句MsgBox 你好, VBYesNo ,ok显示的输入对话框窗口的标题是( )。 A.不知道B.你好C.OKD.VBYesNo15、下面说法中，哪个是错误的( )。A.标准模块中的过程都是通用过程，同时通用过程也可在窗体模块中。B.程序调试时，逻辑错误可能引起

5、运行错误。C.逐过程调试是一次执行一个代码语句，但是将代码中过程视为一个语句来执行。 D.算法结构中只能简单的分为顺序结构和分支结构。16、语句 Print 6*80；8 输出的结果是( )。A.6*80 8B.出现错误信息C.6*80 8D.480 817、下列语句中的( )语句可以用来正确地声明一个动态数组。A.Private A(n) As IntegerB.Dim A() As IntegerC.Dim A(,) As IntegerD.Dim A(1 To n)18、以（ ）模式打开的文件，只能进行读操作不能进行写操作。A.For InputB.For OutputC.For Ran

6、domD.For Append19、若有Variant类型的变量B，执行B=Array(1,2,3,4,5)后，B(2)的值是( )。A.1B.2C.3D.空值20、在设计菜单时，如果要在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设置为（ ）。A.加号（+）B.减号（-）C.下划线（_）D.感叹号（!）21、一只白色的足球被踢进球门，则白色、足球、踢、进球门是( )。A.属性、对象、方法、事件B.属性、对象、事件、方法C.对象、属性、事件、方法D.对象、属性、方法、事件22、以下有关对象属性的说法中正确的是( )。A.对象所有的属性都罗列在属性窗口列表中B.不同对象的同名属性取值一定相同

7、C.不同对象不可能有同名属性D.对象的某些属性既可在属性窗口中设置又可在程序通过代码设置23、在VB中用( )关键字来定义符号常量。A.DimB.StaticC.ConstD.Redim24、有如下程序a$=“Bird”：c$=“fly”Print a$；“can”；c$；“!”运行后输出的结果是( )。A.Bird can fly!B.Birdcanfly!C.“Birdcanfly!”D.“Bird can fly!”25、执行语句Print Format(1234.45, +#,#0.0)后窗体会显示的结果是( )。 A.+1,234.5B.1,234.5C.1,234.5D. +1,2

8、34.426、以下表达式的运算结果为True的是( )。A.Mid(Visual Basic, 1) = Right(visual basic, 12)B.Int(2.5) = CInt(2.5)C.78.9 / 32.78 2D.Str(2.5) = CStr(2.5)27、在事件过程Private Sub lblAbc_Change()中，Private表示( )。A.此过程可以被任何其它过程调用B.此过程只可以被本窗体模块中的其它过程调用C.此过程不可以被任何其它过程调用D.此过程只可以被本工程中的其它过程调用28、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗

9、口中设置( )。A.Text属性值为*B.Text属性值为空C.Password属性值为空D.Passwordchar属性值为*29、运行下列程序段，判断退出循环时k的值为( )。(k的初值为0)For i = 0 To 9 Step 2 k = k + 1 Next iA.5B.6C.10D.1130、以下叙述中错误的是( )。A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B.Sub过程中不能嵌套定义Sub过程C.Sub过程中可以嵌套调用Sub过程D.事件过程可以像通用过程一样由用户定义过程名二、填空题1、能将字符串S中的第3个字符改为“*”的语句是 【1】

10、。2、表达式INT(2.5) = CInt(2.5)的值为【2】 。3、下列For_Next循环的循环次数为【3】 ，循环结束后I的值是【4】 。 For I = 1 to 10 Step 2 I = I + 1 Next I4、求表达式的值：（1）2 + 5 Mod 2 * 2 + 4的值为【5】 。（2）6 4 And 4 2的值为【6】 。5、当以Append方式打开一个顺序文件时，文件指针定位在【7】 ；当以Output方式打开一个顺序文件时，文件指针定位在【8】 ，此时文件中原有内容将【9】 。6、VB中不同的数据类型可以相互赋值，系统将根据具体情况进行转换，数值的0转换成逻辑型数据

11、是【10】 ；相反逻辑型的值True转换成数值是【11】 。8、条件“X是大于0的整数”用VB逻辑表达式表示为【12】 。9、VB程序设计中所产生的错误有运行错误、【13】和逻辑错误。10、用“Dim A, B As Integer”语句定义变量A、B，则A的类型为【14】 ；初值为【15】 。11、默认情况下，用“Dim A(2，3) As Integer”定义一个二维数组,请问数组A中元素的个数为【16】 ；如果使用了“Option Base 1” 语句，元素个数为【17】 ；此时可以通过【18】语句可以得到A数组第一维的下界，通过【19】语句可以得到第二维的上界。12、以输入方式打开A盘

12、根文件夹下名为Score.dat的顺序文件(文件号为10)的语句为【20】 。三、读程序题1、设有如下程序，运行后单击窗体，在窗体上显示的第一行是【1】 ，最后一行是【2】 (提示：大写字母A的ASCII码为65)。Private Sub Form_Click()For I = 1 To 4For J = 0 To 1 Print Chr$(65 + I + J);Next JPrintNext IEnd Sub2、运行下面的程序，单击窗体后在窗体上显示的第一行结果为【3】 ,第二行结果为【4】 ,最后一行结果为【5】 。Private Sub Form_Click() Dim p As In

13、teger, i As Integer p = 1 For i = 1 To 5 p = p + (2 * i - 1) * (2 * i + 1) Print p If p 20 Then Exit Sub Next i Print i; pEnd Sub3、运行下面的程序，单击Command1后在窗体上显示的结果是【6】 ，如果调整A、B语句的顺序则在窗体上显示的结果是【7】 。Private Sub Command1_Click() Dim a As String Dim b As Integer a = 1 b = 0 Do While a 10 Then Exit forNextTe

14、xt1.Text = Str(n)End Sub7、设有如下程序，程序运行后，单击窗体，则在窗体上显示的是【11】 。Option Base 1Private Sub Form_Click()Dim a，i As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For I = 0 To 3Print a(5 - i)；NextEnd Sub8、运行下面的程序，单击窗体,在窗体上显示的第一行结果是【12】 ，第二行结果是【13】 。Private Sub Form_Click() Dim M As Integer, N As Integer, K As In

15、teger N = - 3 For M = 6 To 1 Step N M = M + 1 N = N - M K = K + 1 Next M Print K Print NEnd Sub9、执行下列程序,第一行输出结果是【14】 ，第二行输出结果是【15】 。Option Explicit Private Sub Form_Click()Dim A As IntegerA = 2Call Sub1(A) End Sub Private Sub Sub1(ByVal X As Integer) X = X * 2 If X 10 Then Call Sub1(X) End If X = X

16、* 2 Print X End Sub四、填程序题1、下面的程序求3100之间的所有的孪生素数，若两素数之差为2，则这两个素数就是孪生素数，例如3和5、5和7、11和13等都是孪生素数。请完善程序。Option ExplicitOption Base 1Private Sub Form_click()Dim i As Integer, j As Integer, k As IntegerDim a() As IntegerFor i = 3 To 100 Step 2If 【1】 Then Print i; “和”; i + 2; “是孪生素数End IfNext iEnd SubPrivat

17、e Function jude(x As Integer) As 【2】Dim i As Integerjude = FalseFor i = 2 To 【3】If x Mod i = 0 Then 【4】Next i jude = TrueEnd Function2、本程序用于生成二维数组a(4,4)，数组元素为三位随机正整数，并对每一列数组元素求和，输出结果如图所示，请完善程序。Private Sub Form_Click() Dim a(4, 4) As Integer, s As Integer Dim i As Integer, j As Integer Randomize For i = 1 To 4 For j = 1 To 4 a(i, j) = 【5】 Print a(i, j); Next j 【6】 Next i For i = 1 To 4 s = 0 For j = 1 To 4s = s + 【7】 Next j Print 第 ;【8】; 列的和为：; s Next iEnd Sub