VB语言复习测试

VB语言复习测试一、选择题1、VB工程文件的扩展名为vbp。

2、下面不属于VB工作状态的是编译。

3、对于具有背景色的对象，改变其背景色是通过改变对象的Baokcolor。

4、事件过程是指响应事件时所执行的代码。

5、如果参与运算的两个表达式均为True，该逻辑运算符是And。

6、Int(100*Rnd+10)产生的随机整数的闭区间是[10、109]。

7、函数Len(“Hello!”+space(2)+Mid(“shanghai”.6)的值是118、用于中途退出DO While…..LOOP循环的语句是 Exit Do.9、执行下列词句后，X的值是11（程序略）10、语句Dim A （-6 TO 8）as integer 定义了一个有15个元素整形数组。

11、单击command1按钮后，程序的输出结果为期不远3 4 5。

（程序略）12、通过控件数组的Index 属性，可区分控件数组中的不同元素。

13、调用列表框中的 clear 方法，可清除列表框中的所有列表项。

14、在文本框的Multilines属性值为True的情况下，设置scrollbars属性出现流动条。

15、通过Loadpicture函数可将指定的图形赋值给对象的picture属性。

16、要在窗体上显示图片，需设置窗体的__ Picture ____属性17、复选框的Value属性为___1___时，表示复选框已被选中。

18、下列程序段的执行结果为___ 4___。

（I=0 For J=10 to 19 Step 3 I=I+1 Next J Print I）19、设有Dim A(10) As Integer；则数组A的元素个数为__11___20、按下键盘上的任意键时产生__ KeyDown ____事件。

21、对于列表框控件List1，“List1.RemoveItem,1”表示删除列表框中的第二项。

22、要读出顺序文件temp.txt中的内容，Op”temp.txt”For Input As #1是正确的。

23、Get # 文件句柄号，变量名语句，可读出随机文件中的数据。

二、填空题1、在VB中修改窗体的（height）和（width）属性值，可改变窗体的大小。

2、在代码窗口输入代码按回车之后，代码变成（红色），说明代码错误。

3、声明符号常量需使用（const）语句。

4、使用（dim str1 as string *15 ）语句，可声明长度为15B的字符串变量Str1。

5、自定义数据类型需要在模块的（通用声明段）中进行声明。

6、在msbos函数中，如果缺省Title参数，则使用（工程）作为消息杠的标题。

7、设x=34.56语句print format(x.,”000.0”)的输出结果为（034.6）。

8、下面程序的运行结果是（600.3）。

（程序略）。

9、执行下列语句后窗体输出（5，5），（程序略）。

10、如果列表框的List count属性为10，则列表框最后一项的list indx 值为9。

11、复选框的（value）属性决定复选框是否被选项中。

18、如果要求定时器的Timer事件间隔为2s，其Interval属性应设置为2000。

三、编程题1、产生10个整数，保存到一个数组中，将其顺序颠倒后输出到屏幕上。

例如，输入的数据是15~~24，则输出的序列应是24~~15。

1、Private sub form_click()Const length = 10Dim D(Length) as integerDim I %，Temp %For I = 1 to lengthD(I) = 14 + INext IFor I = 1 to Length / 2Temp = D(I)D(I ) = D(Length – I + 1)D(Length – I + 1) = TempNext IFor I = 1 TO LengthForm1.Print D( I );Next IEnd sub2、求最大公约数和最小公倍数。

2、最大公约数Private Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)If m < n Thent = mm = nn = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopLabel3.Caption = Str(n)End Sub最小公倍数Private Sub Command2_Click()Dim m As Integer, n As Integerm = InputBox("m的值为：")n = InputBox("n的值为：")Print m; nIf m < n Thent = mm = nn = tEnd IfFor i = m To m * nIf i Mod n = 0 And i Mod m = 0 Then Print i: Exit SubNext I End Sub四、程序填空1、程序说明：输出10至100之内能被3整除但不能被7整除的数，要求每行输出5个数。

Sub Form_Click()i = 0For N = 10 To 100If (N Mod 3 = 0) And (N Mod 7 <> 0)ThenPrint N: i = i + 1If i = 5 Then Print i = 0End IfNext NEnd Sub2、程序说明：将一维数组的10个元素倒置，即a(1)与a(10)交换，a(2)与a(9)交换，此类推。

2、ivate Sub Form_Click()Dim a(10) As Integer , temp As IntegerFor i = 1 To 10a(i) = Val(InputBox("请输入数据"))Next iFor i = 1 To 5Next iPrint "结果："For i = 1 To 10Print a(i);NextEnd Sub3、程序说明：输入一个字符，如果这个字符不是英文字母，输出该字符。

3、private sub command1 click()Dim char as string ,flag sa booleanFlag = tureChar = inputbox(“输入一个字符”)If asc(char ) > asc(“A) and asc (char) <=asc(“Z”) then flag = falseif asc(char ) > asc(“a”) and asc (char) <=asc(“z”)t hen flag = not flagif flag = true print charend sub4、将下面文件系统控件的应用程序补充完整，双击文件夹列表中的某一ini，该文件的内容即在立即窗口中。

（书178页）4、private sub form-load()Drive1.drive = “c:”Dir1.path = “c:\windows”File1.pattern = “*.ini”End subPrivate sub drive1-change()Dir1.path = drive1.driveFile1.path = dir1.pathEnd subPrivate sub dir1-change()File1.path = dir1.pathEnd subPrivate sub file1-dblclick()Dim fname as string,strline as stringFname file1.path &”\”& file1.filenameOpen fname for input as #1Do while not eof(1)Line Input #1, strlineDebug,print strlineLoopClose # 1 end sub4、将下面文件系统控件的应用程序补充完整，双击文件夹列表中的某一ini，该文件的内容即在立即窗口中。

（书17九.下面的程序用于求一个二维数组对角线上元素之和,请填写程序中的空缺. 第九题: Private Sub Command1_Click()Dim Data(5,5)As integerDim I%, j%For I = 1To 5For J = 1 To 5Data(I,J)=1Next JFor J = 1TO 5If I=J Or 6-1 Then Data(0,0) =Data(0,0)+Data(I,J)后略四、写出程序段的运行结果1、Private Sub Form_Click()a = 1:b = 2c = a = bPrint a; b; cEnd Sub单击窗体时将输出：1 2 FalseDop = p + 2: s = s + pLoop While p < 9Print "s="; sEnd Sub单击窗体时将输出：s=303、Private Sub Value(ByVal m As Integer, n As Integer)m = m * 2: n = n - 5Print "m="; m, "n="; nEnd SubPrivate Sub Form_Click()Dim x As Integer, y As Integerx = 10: y = 15Call Value(x, y)Print "x="; x, "y="; yEnd Sub[例4.4] 通过键盘输入一组不重复的数据，请找出其中的最大值及其位置。

例：Private sub form_click()Const length = 5Dim test % (length), I %, max %, L%For I = 1 to LengthTest (I) = Inputbox (“输入第”& I & “个数据“)Next IMax = test (1) : L = 1For I = 2 to LengthIf max < test(I) ThenMax = test (I)L = IEnd ifNext IMsgbox “最大值Max = “& Max &”,其位置是”& LEnd Sub1、有一个单击按钮过程，其作用是产生50个60~~100的随机数，统计其中被6整除佘1、Private Sub command1_click()Dim x as integer ,n %Dim counter as integerRandomize timerFor n = 1 to 50X = rnd () * 40 + 60If x mod 6 = 2 thenPrint xCounter = counter + 1End ifNext nPrint counterEmd sub其它：1、通过LoadPicture函数随时加载或清除图片。