VB练习题
1.在窗体上画一个命令按钮,名称为Command1.然后编写如下程序: Private Sub Command1_Click()
For I=1 To 4
For J=0 To I
Print Chr$(65+I);
Next J
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A、A
BB
CCC
DDDD
B、AA
BBB
CCCC
DDDDD
C、B
CC
DDD
EEEE
D、BB
CCC
DDDD
EEEEE
2.由For k=1 to 20 step -2
next k
循环语句控制的循环次数是（）。
A、0
B、12
C、-11
D、-10
3.阅读下面的程序段:
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 的值为
A、9
B、14
C、3
D、21
4.下面程序运行时,单击窗体后,窗体上显示的结果是
Private Sub Form_Click
Dim I As Integer
Dim sum As Long
Dim tl As Long
tl = 1:sum = 0
For I = 1 To 3
tl = tl * I
sum = sum + tl
Next I
Print sum
End Sub
A、6
B、5
C、9
D、3
5.下面的程序运行时,单击窗体后,窗体上显示的结果是 Private Sub Form_Click()
Dim a(1 To 6) As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8: a(2)=6: a(3)=9: a(4)=3: a(5)=2: a(6)=7 n = 6
For i = 1 To n - 1
min1 = i
For j =i + 1 To n
If a(j) Next j t = a(i) a(i) = a(min1) a(min1) = t Next i For i = 1 To n Print a(i); Next i End Sub A、2 3 6 7 8 9 B、9 8 7 6 3 C、2 3 6 7 8 D、9 8 7 6 3 2 6.在窗体上画一个列表框,名称为listl.编写一个程序,程序运行后,列表框显示"可口可乐"?"麦香红茶"?"鲜奶"?"土司"和"茶叶蛋"等五行信息.能够正确实现上述功能的代码是 A、Private Sub Form_Load() Dim item_name(5) As String Dim item_price(5) As Integer item_name(0) = "可口可乐":item_price (0) = 40 item_name(1) = "麦香红茶": item_price (1) = 12 item_name(2) = "鲜奶": item_price(2) = 50 item_name(3) = "土司": item_pri B、Private Sub Form_Load Dim item_name(5) As String Dim item_price(5) As Integer item_name(0) = "可口可乐": item_price(0) = 40 item_name(1) = "麦香红茶": item_pruce(1) = 12 item_name(2) = "鲜奶": item_price(2) = 50 item_name(3) = "土司": item_price(3)m C、Privste Sub Form_Load() Dim item_name(5) As String Dim item_name(5) As Integer item_name(0) = "可口可乐":item_price(0) = 40 item_name(1) = "麦香红茶":item_price(1) = 12 item_name(2) = "鲜奶":item_price(2) = 50 item_name(3) = "土司":item_price(3) = 30 it D、Private Sub Form_Load() Dim item_name(5) As String Dim item_price(5) As Integer item_name(0) = "可口可乐": item_price(0) = 40 item_name(1) = "麦香红茶":item_price(1) = 12 item_name(2) = "鲜奶":item_price(2) = 50 item_name(3) = "土司":item_pric 7.有如程序 Private Sub From_Click() Dim a a=Array(1 ,2 ,3, 4, 5) For i=LBound(a) To UBound(a) a(i)=i*a(i) Next i Print i,LBound(a),UBound(a),a(i) End Sub 其输出结果是 A、不确定 B、5 0 4 25 C、程序出错 D、4 0 4 25 8.对窗体编写如下代码: Option Base 1 Private Sub Form _KeyPress(KeyAscii A a=Array (237,126,587,48,498) ml=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a (i)>ml Then ml=a (i) m2=i End If Next i End If Print ml; print m2 End Sub 程序运行后,按回车键,输出结果为 A、237 1 B、587 3 C、48 4 D、498 4 9. Sub过程与Function过程最根本的区别是 A、Sub过程的过程不能返回值,而Function过程能返回值 B、Sub过程可以使用Call语句直接使用过程名调用,而Function过程不可以 C、两种过程参数的传递方式不同 D、Function过程可以有形参,Sub过程不可以 10.在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Private Sub Commandl_Click() Dim x As Integer Static y As Integer Cls x = x + 5 y = y + 3 Print x,y End Sub 程序运行时,两次单击命令按钮Commandl后,窗体显示的结果是 B、5 3 C、10 6 D、10 3 11.有如下的程序: Private Sub Form_Click() Dim x As Integer, y As Integer a= 8 b= 3 Call test(6 ,a ,b+1) Print "主程序",6,a, b End Sub Sub test (x As Integer, y As Integer, z As Integer) Print "子程序",x,y,z x = 2 y = 4 z = 9 End Sub 当运行程序后,显示的结果是 A、主程序6 4 3 子程序6 8 4 B、子程序6 8 4 主程序6 4 3 C、主程序6 8 4 子程序6 4 3 D、子程序6 4 3 主程序6 8 4 12.阅读程序: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Commandl_Clik() Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i); Next i 运行上面的程序,单击命令按钮,输出结果为 A、出错 B、2 4 6 8 C、5 6 7 8 D、10 12 14 16 13.假定有以下两个过程: Sub S1 (By Val x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub 则以下说法中正确的是 A、用过程S1和S2都不能实现交换两个变量的值的操作 B、用过程S2可以实现交换两个变量的值的操作,S1不能实现 C、用过程S1可以实现交换两个变量的值的操作,S2不能实现 D、用过程S1和S2都可以实现交换两个变量的值的操作 14.不可以通过下列()操作将焦点赋给对象. A、在代码中用CALL语句调用 B、运行时使用TAB键 C、用访问键或用鼠标单击选择对象 D、在代码中用SETFOCUS方法 15.要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像，应使用语句（）。 A、P1.picture=LoadPicture("") B、P1.Print"" C、P1.piture"" D、P1.Cls 16.设置列表框选中的文本用（）属性。 A、text B、list C、selected D、caption 17.下列说法正确的是 A、窗体中活动控件只能有一个 B、在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放控件 C、非活动控件在窗体是隐藏的 D、若一个控件上有4个黑色的小方块,表明该控件是活动的 18.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1?Text2的文本框,然后编写如下事件过程: Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的 A、10 B、40 C、20 D、30 19.运行下列程序段后 J1=63 J2=36 If J1 Print J2 Else Print J1 END IF A、63 B、2332 C、36 D、55 20.执行下面的程序段后,变量c的值为 a=14 b=30 Select Case b\10 Case 0 c=a*10+b Case 1 To 9 c=a*100+b Case 10 To 99 C=a*1000+b End Select Print c A、2548 B、363 C、1430 D、9875 21.下列程序段的执行结果为 a=95 If a>60 Then degree=1 If a>70 Then degree=2 If a>80 Then degree=3 If a>90 Then degree=4 Print "degree=";degree A、degree=4 B、degree=3 C、degree=2 D、degree=1 22.计算z的值,当x大于y时,z=x;否则z=y.下列语句错误的是 A、If x>=Y Then z=x:z=Y B、If x<=Y Then z=Y Else z=x C、If x>=Y Then z=x Else z=Y D、z=Y:If x>=Y Then z=x 23.函数Len(Str(Val("123.445")))的值为（）。 A、6 B、5 C、8 D、11 24.设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是 A、cmdb B、cmdA C、cmdc D、Command1 25. ( )关键字声明的局部变量在整个程序运行中一直存在 A、Static B、Public C、Dim D、Private 26.定义货币类型数据应该用关键字（）。 A、SINGLE B、CURRENCY C、DOUBLE D、BOOLEAN 27.如果X是一个正的实数，将千分位四舍五入，保留两位小数的表达式是（）。 A、0.01*int(x+0.05) B、0.01*int(x+0.005) C、0.01*int(100*(x+0.05)) D、0.01*int(100*(x+0.005)) 28.由For k=35 to 0 step 3:next k循环语句控制的循环次数是__0___ . 29. 循环语句FOR K=1 TO 10 STEP -1控制的循环次数为__0___. 30. 以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果.请填空. Private Sub Form_click() Dim x,y As Single Dim z As Integer X=InputBox("Enter a score") Do while_____ x>=0 Y=y+x Z=z+l x=InputBox("Enter a score") Loop If z=0Then z=1 End If y=_____ y/z Print y End Sub 31.从键盘上输入一个整数size，用随机函数产生size个[10，80]之间的随机整数， 然后找出其中的素数，并且按5个一行输出这些素数。 请在空白处填入正确的内容。 Private Sub Form_Click() Dim a(), b() As Integer Dim size As Integer size = InputBox("请输入一个整数，决定产生随机数的个数") ReDim a(size), b(size) For i = 1 To size a(i) = Int(Rnd * __71___) + 10 Next i k = 0 For i = 1 To size For j = 2 To _____ -1+a(i) ,a(i)-1 If a(i) Mod j = 0 Then Exit For Next j If j = a(i) Then k = k + 1 b(k) = a(i) End If Next i Print For i = 1 To k Print b(i), If i Mod 5 = 0 Then __print___ Next i Print End Sub 32. 在窗体上画一个命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 T0 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行一面的程序,单击命令按钮,其输出结果是__1234___. 33. 在VB中,若要重新定义一个动态数组的元素个数,应当使用__ ReDim___语句对其进行重新定义 34.如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有__21___个元素. 35.过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出所有水仙花数 请在空白处填入正确的内容。 Private Sub Command19_Click() Dim i As Integer For i = 100 To 999 __ suixian(i)___ Next i End Sub Public Sub suixian(x As Integer) Dim i%, j%, k% i =_____ x \ 100 x\100 j = (x - i * 100) \ 10 k = x - i * 100 - j * 10 If _____ Then Print x x = i ^ 3 + j ^ 3 + k ^ 3 x = i ^ 3 + k ^ 3 + j ^ 3 x = k ^ 3 + i ^ 3 + j ^ 3 x = k ^ 3 + j ^ 3 + i ^ 3 x = j ^ 3 + k ^ 3 + i ^ 3 x = j ^ 3 + i ^ 3 + k ^ 3 x=j^3+i^3+k^3 End Sub 36.将形式参数定义成值传递参数的关键字是_____ Byval 37.下面是Form1中变量声明: Public abc as integer 如果要在Form2对Form1中定义的abc赋值为2,应该写成_________ Form1.abc=2 form1.abc=2 38.在过程调用时,一定要保证形式参数和实际参数的_数据类型______相同 39. String(3, "abc")的结果为_____. Aaa 40.一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式_____. a <> 0 and b ^ 2 - 4 * a * c >= 0 a<>0 and b^2-4*a*c>=0 a<>0 and b^2-4*a*c >= 0 a<>0 and b^2 - 4*a*c >= 0 a<>0 and b^2 - 4*a*c>=0 41. 设x为一个两位数，将其个位和十位数交换后所得两位数的Visual Basic表达式是_____。 (x Mod 10) * 10 + x \ 10 42. X=2:Y=8:PRINT X+Y=10的结果是_____. True 43.题目：(事件)双击窗体。 ' (响应)求s=1+1×2+1×2×3+...+1×2×3× (10) ' 并将结果存到变量S中 【参考代码】 Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) 44.题目：求二维数组中所有元素之和，将其存入变量Sum中， 在窗体上显示结果。 【参考代码】 for i=1 to 3 for j=1 to 3 sum=sum+a(i,j) next next 一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符 九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件 【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误 第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容, '以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:")) 基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点 第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13 1.程序的功能是：单击命令按钮“输出”，在图片框Picture1中输出费波那契数列的前20项项值，要求按区输出，每行输出4个项值。程序中有两处错误，请修改程序并运行，直到得出正确结果。 注意：程序中的修改行就在注释行： '**********found*************' '请不要删除该行' 的下面，请不要修改程序中的其他部分。最后把修改后的文件按原来文件名存盘。 第1个出错位置：For i=3 to 20 第2个出错位置：If i Mod 4=0 then Picture1.Print Private Sub Command1_Click() Dim f(40) As Long Dim i As Integer Picture1.Cls f(1) = 0 f(2) = 1 Picture1.Print f(1), f(2), '**********found*************' '请不要删除该行' For i = 1 To 40 For i=3 to 20 f(i) = f(i - 1) + f(i - 2) Picture1.Print f(i), '**********found*************' '请不要删除该行' If i Mod 4 = 0 Then Picture.Print If i mod 4=0 then picture1.print Next i End Sub 2. 程序的功能是：程序运行时，单击“输出”按钮，产生10个[0，99]之间的随机整数存入数组A中，并按照相反的顺序输出在窗体上。程序中有两处错误，请修改程序并运行，直到得出正确结果。 第1个出错位置：A(i)=Int(Rnd*100+0) p50 第2个出错位置：Print A(11-i); Private Sub Command1_Click() Randomize Dim A(10), I As Integer Form1.Cls For I = 1 To 10 '*********found******** '请不要删除该行 A(I) = Int(Rnd * 99) A(i)=Int(Rnd*100+0) Print A(I); Next I Print For I = 1 To 10 '*********found******** '请不要删除该行 Print A(I); Print A(11-i) (注意答案中间无;) Next I End Sub 九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10) VB最简单入门教程 目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63) 1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。 高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2 B) 3 C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ?? ?≠≥=<=) (2) c (1 d c b a d b a x 且且 B) ?? ?≠<=<=)(2) c (1 d c b a d b a x 且且 C) ? ? ?≥=<=)(2) c (1b a d b a x 且 D) ? ? ?≠=<=)(2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0 第2题（1、0分）题号:1 2 9 ＇【程序改错】 '题目:该程序实现将输入得0 —255 之间得正整数转 换成二进制数 O p t i on Explici t P riv a t e Sub Fo r m _Cl i ck () Con st n = 8 Dim a(n) A s I n tege r, s As Stri ng, m A s I n te g er, x A s Integer x = Va l (In p utB ox （”请输入一个0 — 2 55之间得正整数: ")) Prin t x ** ＊* ＊＊＊***FOUND** Fo r m = 1 T o n (m ) = x Mod 2 *** * *F^) D******＊** ＊ Nex t m For m =n To 0 S t e p —1 * ＊********FOU N D * **** * * ** * s = Str(a( m )) Nex t m Pri n t s E n d Sub 答案: (答案1)For m = 0 To n======= 答案2)x= x \ 2 或x= int(x/2)=======(答案3)s = s + St r (a (m)) 第3题(l、0分) 题号:463 '题目：以下程序功能就是输入三个数,由大到小排序。 Op t io n Explicit Di m A A s I n teger Dim B As I n te g er D im C As I nt e ger P r ivat e Sub F o r m_Click() Dim nTemp A s Integer A = V a l(ln put B o x (H P lease in put fi r st i nt e ger","输入正整数”)) B = Val( I n putBo x (” Pl e a s e in put s eco nd int e ge r”，"输入正整数”)) C = Va i (In pu tB o x(” P 1 e a se in put third int e ger ” ,"输入正整数”)) F OU ND * * ***** If A v= C T h en n Te m p = A A = B B = n Te mp E nd I f > ***** ＊FOUND**** * * * *** I f B <= C T hen nTe mp = A A = C C = nTem p VB中常见的错误 1、运行下面的 Visual Basic程序，单击命令按钮 Command1，出现如下图所示的提示信息： Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = 10 If a >= b b = a * a + 2 * b End If Label1.Caption = Str(b) End Sub 出现该错误的原因是 A．If语句缺少Then B．If语句缺少Else C．变量a的数据类型说明错误 D．变量b的数据类型说明错误 2、某VB程序的事件过程如下所示： Private Sub Command1_Click ( ) Dim a As Integer a = Val(Text1．Text) Text1．Text = Str(Int( a )) End Sub 运行程序，单击按钮Command1后弹出如下图所示的错误提示。导致该错误的原因可能是（） A．Int函数计算时出现错误 B．Val函数应用不正确 C．窗体上缺少Text1文本框对象 D．变量a数据类型定义错误 3、某Visual Basic程序段如下： Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) * i Next i 运行该程序段，会出现的错误提示为 （A）下标越界（B）子程序或函数未定义（C）要求对象（D）溢出 Interger类型范围在-32768~32767，而1到10相乘超出这个范围 4、某Visual Basic程序如下： Private Sub Command1_Click() Dim a(1 To 10) As Integer “Visual Basic编程与应用”期末复习资料 第一章Visual Basic 6.0程序设计概述 重点掌握的内容： 对象与事件驱动 对象：世界上存在的任何具体的事物都可以称之为对象。对象是具体存在的，每个对象都是唯一的，有着自己独特的个性。 类：是具有相同性质的对象的集合。 对象和类的区别在于前者是具体的，而后者则是抽象的。 属性、方法和事件：VB采用一种所谓的事件驱动的编程机制，由用户来掌握程序的运行流向。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。对象的属性的设置可以通过两种方法来实现： （1）通过属性窗口直接设置； （2）在程序代码中通过赋值实现，其格式为： 对象.属性=属性值 事件过程: 事件即对象相应的动作，是Visual Basic预先定义好的对象能识别的动作，如Click、DbClick、LostFocus等等。 事件过程是指附在该对象上的程序代码，是事件的处理程序，即用来完成事件发生后所要做的动作 创建 Visual Basic 应用程序有三个主要步骤： 1．创建应用程序界面。 2．设置属性。 3．编写代码。 窗体的属性和方法 窗体属性： 重点掌握：Name，Caption，BorderStyle，MinButton，MaxButton等属性。 Print方法: 在Visual Basic 中，Print方法是用来输出信息的专用过程，Print方法应重点掌握如下： （1）语法结构 [对象].Print [表达式列表] （2）表达式列表中的分隔符： ①若用分号（；）：输出的各表达式的值中间没有空格，数值型前留有一个符号位。例如 Print “1”；“2”；“3” 输出格式为 123 ②若用逗号（，）：输出的各表达式的值将被分配在各个区段内，例如 Print “1”，“2”，“3” 输出格式为 1 2 3 ③Spc(n)函数，用于产生空格，这里n为要插入的空格数，例如Print “1”；Spc(3)；“2” 输出格式为 1 2 ④Tab(n)函数，用于将插入点定位在绝对列号上，这里n为列号。例如Print “1”；Tab(20)；“2” 输出格式为 1 2 自测与练习题 一、判断题 1、为了使一个控件在运行时不可见，应对该控件的Visable属性值设置为False。（） 2、当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate 事件。（） 3、面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（） 4、将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。（） 5、方法是VB对象可以响应的用户操作。（）VBProject代码操作代码之常用语句
VB期末考试试题及答案
VB常用字符串操作函数解读
九江学院VB期末考试题目及详细答案
vb期末考试试题
VB程序设计例题-程序改错程序填空程序设计
VB基本操作题
VB期末考试试题
VB期末考试试题及答案 (1)
VB改错题(答案)
初三_vb期末考试试卷+答案
[整理]VB程序设计复习题及答案.
大一VB期末考试试卷及答案
VB6.0基础入门教程
VB期末试卷(A卷带答案 )
VB程序改错40题
19VB程序改错题收集(答案在后面)
VB期末复习资料