vb模拟题第六套
vb6.0第六章 习题解答
习题六一、选择题答案Aadcc dc二、填空题答案1、a(I,j)+b(I,j)2、下标越界3、64、1 2 2 4 3 6第六章选择题部分解析3、sum表示a数组各元素的和X表示a数组元素和的平均值最后打印出a数组中大于平均值的元素Sum=1+2+3+4+5=15，x=3大于3的有4，55、倒着看文本框中显示什么？答：显示的是array1（1，3）+array2（2，3）的和接着往前看程序发现array1（i，j）=i+j所以array1（1，3）=1+3=4Array2(2,3)=2+3=5所以4+5=9二、填空题解析2、x数组最大元素是x（6）退出for循环时，i=7然后print x（i）相当于print x（7）但是没有x（7）这个元素，超出最大下标了。
若把print x（i）改为print x（a）则值是36第六章编程题1、Private Sub Form_Click()Dim a(1 To 20) As Integer, i As IntegerDim j As Integerj = 0 '用来表示小于60的个数Picture1.Print "产生的数组为:"Picture1.PrintPicture2.Print "其中小于60的元素有:"Picture2.PrintFor i = 1 To 20a(i) = Int(Rnd * 100 + 1)Picture1.Print a(i);If i Mod 10 = 0 Then Picture1.PrintIf a(i) < 60 Thenj = j + 1Picture2.Print a(i); " ";If j Mod 10 = 0 Then Picture2.PrintEnd IfNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub2、Private Sub Form_Click()Dim a(1 To 10) As IntegerDim max As Integer, min As Integer, i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90 + 10)Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.PrintNext imax = a(1)min = a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iLabel1.Caption = "最大数为：" & maxLabel2.Caption = "最小数为：" & minEnd SubPrivate Sub Form_Load()RandomizeEnd Sub3、Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()Dim x As Integer, flag As Integer, i As Integerflag = 0 '标志，表示数组中是否存在xx = InputBox("请输入x的值，为整数", "输入", 1) For i = 1 To 20If x = a(i) Thenflag = 1 'flag改变，说明存在Exit ForEnd IfNext iIf flag = 1 ThenPrint "数组中存在" & xPrint "位置：" & iElsePrint "数组中不存在" & xEnd IfEnd SubPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 20 '生成数组a(i) = Int(Rnd * 100) '题目没要求，随便的范围Next iFor i = 1 To 19 '冒泡排序For j = 20 To i + 1 Step -1If a(j) > a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNext jNext iFor i = 1 To 20 '打印数组Print a(i);If i Mod 5 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub4、Private Sub Form_Click()Dim a(1 To 15) As SingleDim i As Integer, c1 As Integer, c2 As Integer, c3 As Integer, avg As SingleFor i = 1 To 15a(i) = InputBox("请输入第" & i & "个学生的成绩", "输入成绩", 60)avg = avg + a(i)Next iavg = avg / 15For i = 1 To 15If a(i) > avg Then c1 = c1 + 1If a(i) < 60 Then c2 = c2 + 1If a(i) >= 90 Then c3 = c3 + 1Next iPrint "高于平均分的人数"; c1Print "<60的人数"; c2Print ">=90的人数"; c3End Sub5、Dim a(1 To 4, 1 To 4) As Integer, b(1 To 4, 1 To 4) As Integer, c(1 To 4, 1 To 4) As IntegerPrivate Sub Command1_Click()‘（2）题For i = 1 To 4For j = 1 To it = a(i, j)a(i, j) = a(j, i)a(j, i) = tNext jNext iPicture2.ClsPicture2.Print "a转置后："Picture2.PrintFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j); " ";Next jPicture2.PrintNext iEnd SubPrivate Sub Command2_Click()‘（3）题Picture2.ClsMax = c(1, 1)t1 = 1t2 = 1For i = 1 To 4For j = 1 To 4If c(i, j) > Max ThenMax = c(i, j)t1 = it2 = jEnd IfNext jNext iPicture2.Print "max=", MaxPicture2.Print "c("; i; ","; j; ")"End SubPrivate Sub Command3_Click()‘（4）题Picture1.ClsPicture2.ClsFor i = 1 To 4For j = 1 To iPicture1.Print a(i, j); " ";Next jPicture1.PrintNext iFor i = 1 To 4For j = i To 4Picture2.Print Tab(j * 5); b(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command4_Click()‘（5）题Picture1.ClsFor i = 1 To 4t = a(1, i)a(1, i) = a(3, i)a(3, i) = tNext iFor i = 1 To 4For j = 1 To 4Picture1.Print a(i, j); " ";Next jPicture1.PrintNext i End SubPrivate Sub Command5_Click()‘（1）题Picture3.Print "c矩阵："Picture3.PrintFor i = 1 To 4For j = 1 To 4c(i, j) = a(i, j) + b(i, j)Picture3.Print c(i, j); " ";Next jPicture3.PrintNext iEnd SubPrivate Sub Form_Load()ShowPicture1.Print "a矩阵："Picture1.PrintPicture2.Print "b矩阵："Picture2.PrintFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 40 + 30)b(i, j) = Int(Rnd * 35 + 101)Picture1.Print a(i, j); " ";Picture2.Print b(i, j); " ";Next jPicture1.PrintPicture2.PrintNext iEnd Sub。
vb模拟试题及答案
vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。
VB程序填空(8套)
+++第一套+++1、有如下Visual Basic程序段：a="Good"b="Bye"c=a+b该程序段运行后，变量c的值是____(1)____。
2、有如下Visual Basic程序段：x=3If x>5 Theny=x*xElsey=4*xEnd If该程序段运行后，变量y的值是____(1)____。
3、下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。
则程序中划线处的语句应更正为______(1)______。
Private Sub Command1_Click()Dim sum As Long,i As Integer,n As Integersum = 0n = Val(Text1.Text)For i = 1 To 2 * n - 1 Step 2sum = sum + 2Next iText2.Text=Str(sum)End Sub4、依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。
设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If (1) ThenLabel1.Caption = "你属于醉酒驾车!"ElseIf x >= 0.3 ThenLabel1.Caption = "你属于酒后驾车!"(2)Label1.Caption = "恭喜你没有违法!"End IfEnd IfEnd Sub程序中划线处(1)应填入程序中划线处(2)应填入图V B－1+++第二套+++1、有如下Visual Basic程序段：a=2b=3c=4c=b-a该程序段运行后,变量c的值为___(1)____。
VB模拟试卷和答案
北京语言大学网络教育学院《VB 〉模拟试卷一1. 试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。
请监考老师负责监督。
2. 请各位考生注意考试纪律，考试作弊全部成绩以零分计算。
3. 本试卷满分100分，答题时间为90分钟。
4. 本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。
一、【单项选择题】（本大题共20小题，每小题2分，共40分）在每小题列出的四个选 项中只有一个选项是符合题目要求的，请将正确选项前的字母填在 答题卷相应题号处1、关于VB 的特点描述错误的是（ ）。
[A] VB 编程是可视化编程 [C]不可以访问数据库2、下面关于鼠标的指针设置说法不正确的是（ [A] 可以使用Mouselcon 设置鼠标的形状 [B] 可以使用MousePo in ter 设置鼠标的形状[B]是面向对象的程序设计 [D]采用事件驱动编程机制）。
[C] MousePointer 设为 99 时，可用 [D] MouseIcon 只能通过属性窗口选择鼠标形状3、 Dim Snow （ 1 to 12 ， 1），As Integer [A]13*2 [B] 13*14、 在工具箱里的都是（）。
[A]标准控件 [C] ActiveX 控件5、 一个窗体大小改变时被触发的事件是（ [A] Click 事件 [C] Initialize 事件6、 下列关于控件说法不正确的是（ [A] Age nt 控件用于设置动画行为[B] TextBox 用于接收用户输入的信息 MouseIcon 设置鼠标的形状是大小为（）的二维数组。
[C] 12*2 [D] 12*1[B]外部控件[D] 可插入对象（OLE ））。
[B] Resize 事件 [D] Un load 事件）。
组，当框架移动时，其中的控件不移动 [D] ListBox 向列表中添加一个新的项目 7、关于CheckBox 控件描述错误的是（ [A] 是复选框按钮，用"表示选中 [C] Value 为1表示选中该框 &关于Shape 控件描述正确的是（ [A] 用于向窗体添加矩形、圆形等图形 [C] Arial 用于设置显示控件的形状9、下面不属于循环控制语句的是（ ）。
vb第六套
屏南职专计算机VB第六套模拟题本试题满分100分，考试时间90分钟。
一、选择题（每题2分，共50分）1.下列可作为Visual Basic的变量名。
A.4*DeltaB. AlphaC. 4ABCD.A(A+B)2.函数Int(Rnd*10)+1是在范围内产生随机整数。
A. [0,10]B.[0,9]C.[1, 9]D.[1,10]3.下列四个字符串进行比较，最大的是。
A."abc"B."CD45"C."CHINA"D."6677"4.用八进制表示Visual Basic的整型常数时，前面要加上的符号是__________。
A.&HB.&OC.HD.O5.下面正确的赋值语句是。
A.x+y=10+a*sqr(3)B. y=x+10+a*sqr(3)C.y=2π*rD.2y=x+16.表达式16/4-2^5*8/4 MOD 5\2的值为_______。
A. 14B. 4C. 20D. 27.条件:1<X<=2或10<=X<15，在Visual Basic语言中应写成条件表达式_______。
A. X>1 AND X<=2 OR X>=10 AND X<15B. X>1 OR X<=2 OR X>=10 OR X<15C. X>1 OR X<=2 AND X>=10 OR X<15D. X>1 AND X<=2 AND X>=10 ANDX<158.在过程内部定义的局部变量，仅在声明它的_______中有效。
A. 方法B. 过程C. 属性D. 对象9.对于窗体Form1，执行了Form1.Left=Form1.Left+100语句后，则该窗体。
A.上移B.下移C.左移D.右移10.窗体里有两个对象，分别是图片框Picture1和标签Label1，下面关于Print方法的使用中，错误的一条是。
vb6
Vb第六章编程题答案1．编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.dim ssnum=val(inputbox ("输入要求的数的个数"))dim a(1 to num)for i=1 to numa(i)=texti.textnextfor m=num to 2for n=1 to m-1if a(n)>=a(n+1) thenss=a(n+1)a(n+1)=a(n)a(n)=ssend ifnextnextprint "MAX:" & a(num)print "MIN:" & a(1)2.编写程序，求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现方法一：（以前方法）Option Base 1Private Sub form_Click()Dim a(), s()Dim sum#, str$Dim m%m = Val(InputBox("输入要计算几个阶乘的数")): If m <= 0 Then MsgBox "请输入>=1的正数": Exit SubReDim a(1 To m)ReDim s(1 To m)For i = 1 To ma(i) = Val(InputBox("输入第" & i & "个需要计算阶乘的数")): If n < 0 Then Exit For Next iFor i = 1 To ms(i) = 1For j = 1 To a(i)s(i) = s(i) * jN ext jPrint a(i); "的阶乘数为："; s(i)Next iFor i = 1 To msum = s(i) + sumNext iFor i = 1 To mIf i = m Thenstr = str & a(i) & "!"Elsestr = str & a(i) & "!" & "+"End IfN ext iPrint Tab(3); "所求的"; m; "个数的阶乘和为："; str; "="; sumEnd Sub方法二：（sub过程1）Sub sub1(x As Long)Dim m%, i%m = 1For i = 1 To xm = m * iNextx = mEnd SubPrivate Sub Form_Click()Dim a&, b&, c&, i%, s#a = InputBox("1")b = InputBox("2")c = InputBox("3")sub1 asub1 bsub1 cs = a + b + cPrint sEnd Sub3.编写一个过程，以整形作为形参。
vb6.0实验六习题与答案
vb6.0实验六习题与答案实验六专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；2、学习在窗体中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4、学习编写各控件和鼠标与键盘的事件过程二、实验内容1、单选按钮、复选框、框架1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。
框架Fr1包含单选按钮Op1和Op2。
2）设计窗体，要求①标题为“设置字体”；②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2；④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。
⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。
Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click() Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click() Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
vb练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题：是非题（共10分，每项1分）1. VB6.0只能运行在Windows 2000下，不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上，并且永久保留。
4A.对B.错√第二题、单选题（共45分，每项1.5分）1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题：是非题（共10分，每项1分）1. 在事件驱动的应用程序中，代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题（共45分，每项1.5分）1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿＿＿。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False，则＿＿＿。
6A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容√C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容第三题、简单程序（共15分，每项1.5分）1. 以下程序的输出结果是______。
VB第六章测试题
Visual Basic 6.0第六章测试题一、填空题1、菜单控件只能使用_______________来创建，其属性可以利用_____________和_____________两种方法来设置。
2、为了显示当前日期，大写锁定键，插入键状态可以向窗体中添加__________控件。
3、打开菜单编辑器的方法有三种：1、____________________,2、_________________________，3、______________________。
4、菜单编辑器中的标题可以设置菜单项的___________属性；名称设置_________属性；快捷键设置_________属性；复选设置___________属性；有效设置___________属性；可见设置____________属性；右箭头按钮使当前菜单项级别下降一级，最低级别为______级，最高级别为_____级。
5、菜单控件只有一个事件，即_______事件。
6、如果要为菜单项创建分隔栏，则应在标题框中输入______字符。
7、如果要为菜单项创建访问键，可以标题后面添加______字样。
8、决定菜单控件是否维护当前MDI子窗口的列表的属性是__________。
9、RichTex tBox控件不仅允许______和______编辑文本，同时还提供了标准文本框控件所没有的、更高级的指定格式的许多功能。
10、RichTextBox控件能以_______和_____________两种形式打开和保存文件。
使用控件的_____________和_____________方法可以直接读写文件。
11、RichTex tBox中指出可容内字符最大数量的属性是________。
12、RichTex tBox中是否接受和显示多行正文的属性是________。
13、RichTex tBox中是否有滚动条的属性是 __________。
14、RichTex tBo x中返回或设置所选文本起始点的属性是________；返回或设置所选择字符数的属性是_________；返回或设置包含当前所选择文本的字符串的属性是__________。
VB实验教材模拟练习(有答案)报告
模拟练习一第一部分计算机信息技术基础知识选择题（共20分，每题2分）1．IP地址通常分为固定IP地址和动态IP地址，目前国内大多数家庭上Internet网的用户的IP地址都是B的。
A．相同B．动态C．可以相同D．固定2．下列四个不同进位制的数中，数值最大的是B。
A．十进制数73.5 B．二进制数1001101.01C．八进制数115.1 D．十六进制数4C.43．下列关于台式PC机芯片组的叙述中，错误的是D。
A．芯片组是主板上最为重要的部件之一，存储器控制、I/O控制等功能主要由芯片组实现B．芯片组与CPU同步发展，有什么样功能和速度的CPU，就需要什么样的芯片组C．芯片组决定了主板上能安装的内存最大容量及可使用的内存条类型D．同CPU一样，用户可以很方便，很简单地更换主板上的芯片组4．路由器（Router）用于异构网络的互连，它跨接在几个不同的网络之间，所以它需要使用的IP地址个数为_D_。
A．1 B．2 C．3 D．所连接的物理网络的数目5．为了既能与国际标准UCS(Unicode)接轨，又能保护现有的中文信息资源，我国政府发布了_C汉字编码国家标准，它与以前的汉字编码标准保持向下兼容，并扩充了UCS/Unicode中的其他字符。
A．ASCII B．GB2312C．GB18030 D．GBK6．在下列有关通信技术的叙述中，错误的是C。
A．目前无线电广播主要还是采用模拟通信技术B．数字传输技术最早是被长途电话系统采用的C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”)D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是C。
A．通常用户需要付费才能得到商品软件的合法使用权B．共享软件是一种“买前免费试用”的具有版权的软件C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8．下列有关Internet的叙述错误的是_A。
VB模拟题及参考答案
VB复习题一一、判断题：(每小题1分，共20分。
请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。
（）2.标签支持Dblclick事件。
（2 ）3.窗体中控件的位置由Height和Top属性确定。
（3 ）4.滚动条的SmallChange属性设置为5时，表示单击滚动条两端的箭头时变化为5. （4 ）5.当把定时器控件的Visible属性设置为True时，运行时定时器在窗体上就可见了。
（5 ）6.Vbred是Visual Basic 6.0允许的常量。
（6 ）7.#25/6/2018#是Visual Basic 6.0合法的日期型常量书写。
（7 ）8.逻辑运算符Not的优先级比Or高。
（8 ）9.Visual Basic 6.0中可以用print做变量名。
（9 ）10.表达式5 mod 4与5\4的结果相同。
（10 ）11.语句if x>=60 and x<70 then print ”及格”是正确的。
（11 ）12.有select case 语句必须有End select语句与之相匹配。
（12 ）13.Exit for是Do循环的一个出口。
（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。
（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。
（15 ）16.可以用Ubound()函数返回数组下标的下界。
（16 ）17.过程体内可以再定义另外一个过程。
（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。
（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。
VB考前辅导班模拟试题
VB考前辅导班模拟试题试题一（在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x > = 50x= (x + 4)*(x + 3)n= n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）A)1 和 0 B)2 和240C)3 和 50 D)4 和168参考答案：B试题二在窗体上画一个名称为Command1的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（）A)2 B)1C)0 D)16参考答案：D试题三读下列程序：Private Sub Form_Click()Static x(4) As IntegerFor i = 1 to 4x(i) =x (i) + i * 3Next iPrintFor i = 1 to 4print "x("；i；") ="；x(i)Next iEnd Sub该程序在运行了三次后，其最终结果是：参考答案：x(1)=9 x(2)=18 x(3)=27 x(4)=36试题四有如下程序：Private Sub Form_Click()Dim check As Boolean, n As Integercheck=Falsen= 0DoDo While n< 10n=n + 1If n= 5 Thencheck=TrueExit DoEnd IfPrint n；LoopLoop Until check=TrueEnd Sub程序运行后，输出的结果是（）A)1 2 3 B)1 2 3 4C)1 2 3 4 5 D)1 2 3 4 5 6参考答案：B试题五在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 7参考答案：D试题六执行下面的程序，单击Command1按钮时，列表框中显示的第一行是________，第二行是_________，第三行是________。
全国计算机等级考试VB语言模拟试题(附答案)
全国计算机等级考试VB语言模拟试题（附答案）一、选择题（每题2分，共20分）1. 以下不属于VB的数据类型的是（）A. 整数类型B. 浮点数类型C. 字符串类型D. 布尔类型答案：D2. 在VB中，变量必须声明在（）A. 过程中B. 窗体中C. 模块中D. 以上都可以答案：A3. VB中，数组的默认下标范围是（）A. 0 到 10B. 0 到 65535C. -32768 到 32767D. 1 到 100答案：B4. 以下叙述错误的是（）A. VB是面向对象的程序设计语言B. VB中的窗体是VB应用程序的基本组成部分C. VB中的模块是VB应用程序的基本组成部分D. VB中的工程是VB应用程序的基本组成部分答案：C5. 在VB中，以下哪个不是事件过程？（）A. ClickB. LoadC. WriteD. Run答案：D6. 在VB中，要将字符串转换为数值型数据，应使用（）A. Val函数B. Int函数C. Str函数D. Date函数答案：A7. 下面哪个函数可以实现求绝对值的功能？（）A. Abs(x)B. Sqr(x)C. Int(x)D. Fix(x)答案：A8. VB中，DateDiff函数用于计算两个日期之间的（）A. 年数B. 月数C. 星期数D. 天数答案：D9. VB中，Randomize语句的作用是（）A. 初始化随机数发生器B. 生成一个随机数C. 清除随机数发生器D. 设置随机数的范围答案：A10. 下列哪个关键字用于定义常量？（）A. DimB. ConstC. LetD. Var答案：B二、填空题（每题2分，共20分）1. 在VB中，______用于声明一个变量。
答案：Dim2. VB中，______语句用于打开一个文件。
答案：Open3. 在VB中，______函数用于求一个数的平方根。
答案：Sqr4. VB中，______语句用于关闭打开的文件。
答案：Close5. 在VB中，______用于定义一个过程。
VB练习题(含答案),推荐文档
考试题型一、单项选择题（每题1分，共35分）二、判断题（每题1分，共15分；正确的打"，错误的打x。
）三、填空题（每空1分，共10分）四、读程序写出结果（每题5分，共20分）五、程序填空（每空2分，共10分）六、编程题（每小题10分，共10分）2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中，错误的是A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构12. 以下叙述中，错误的是A）一个Visual Basic应用程序可以含有多个标准模块文件B）一个Visual Basic工程可以含有多个窗体文件D）标准模块文件的扩展名是.bas13. 以下叙述中，错误的是A）在Visual Basic中，对象所能响应的事件是由系统定义的C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法14. 设有如下语句：Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中，错误的是A）a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D）d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A）Left |B） Mid | C） Stri ng D） In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C） Print “ A= ” +Str（x+y）D） Print “ A= ” & x+y19. 假定有如下的命令按钮（名称为Comma ndl）事件过程：Private Sub Comma nd1_Click（）X=lnputBox（输入：：“'输入整数”）MsgBox ”输入的数据是：”，，”输入数据：”+XEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是A）x的值是数值10B）输入对话框的标题是“输入整数“C）信息框的标题是“输入数据：10 “D）信息框中显示的是“输入的数据是：“20. 在窗体上画1个命令按钮（名称为Command1 ）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x，再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程，以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。
VB模拟试卷参考答案
计算机等级考试二级VB模拟试卷(一)杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题（共15分）二、VB程序设计（共85分）（四）程序阅读题（20分，每题4分）1、4 5 62、101103、1 9 8 7 6 5 4 3 2 101 7 6 5 4 32 8 9 104、1 4 65、wFg,C4d5（五）程序设计题（25分，题1为5分）1、Public Function g(x As Single, eps As Single) As SingleDim e&, t!, i%If x < -1 Or x > 1 Theng = 0Elsee = 1i = 1Doe = e * it = (i + x) / eg = g + ti = i + 1Loop Until t < epsEnd IfEnd Function2、Private Sub Form_Click()Dim a(1 To 50) As Integer, i%, s!For i = 1 To 50a(i) = Val(InputBox("请输入一个数")) Next is = 0For i = 1 To 50s = s + a(i)Next is = s / 50Open "g:\data.txt" For Output As #1For i = 1 To 50If a(i) > s Then Print #1, a(i)Next IClose #1End Sub3.Dim n%Private Sub Command1_Click()n = Val(InputBox("输入要计时的秒数")) Timer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load()Form1.Caption = "到计时牌"Command1.Caption = "设置"Timer1.Interval = 1000Timer1.Enabled = FalseLabel1.Caption = "计时"End SubPrivate Sub Timer1_Timer()n = n - 1h = n \ 3600m = (n Mod 3600) \ 60s = n Mod 60Label1 = "还剩" & h & "小时" & m & "分" & s & "秒" If n = 0 ThenTimer1.Enabled = FalseLabel1 = "时间到！"Command1.Enabled = TrueEnd IfEnd Sub。
vb6.0练习题及答案
vb6.0练习题及答案第一篇：vb6.0练习题及答案一、选择题1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。
A．窗体设计．代码C．属性D．工程资源管理器窗口 >> 答案：d2．窗体的Load事件的触发时机是（）。
A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时 >> 答案：ｂ3．与传统的程序设计语言相比，Visual Basuc最突出的特点是（）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术答案：C4．VB6.0集成开发环境的主窗口不包括（）。
A．标题栏 B．菜单栏 C．状态栏 D．工具栏答案：c5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。
A．T ext.Mytext B．Mytext.text C．Mytext.（Text）D．Mytext*Text答案：b6．下列可以激活属性窗口的操作是（）。
A．用鼠标双击窗体的任何部位B．执行“工程”菜单中的“属性窗口”命令 C．按Ctrl+F4 D．按F4键答案： b d7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。
A．单击窗体上没有控件的地方 B．单击任一个控件 C．不执行任何操作 D．双击窗体的标题栏答案：a8．如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。
A．Caption B．PasswordChar C．Text D．Char答案：b9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。
A．Locked B．MultiLine C．TabStop D．Visible答案：a10．对于定时器（Timer）控件，设计其定时是否开启的属性是（）。
A．Index B．Tag C．Enabled D．Left答案：c11．要在窗体Form1内显示“myfrm”，使用的语句是（）。
vb考试试题及答案解析
vb考试试题及答案解析**VB考试试题及答案解析**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. DoubleD. Object**答案：D****解析：** 在VB中，Integer、String和Double都是基本数据类型，而Object是一个引用数据类型。
2. VB中哪个函数用于将字符串转换为数值？A. Str()B. Val()D. CStr()**答案：B****解析：** Val()函数用于从字符串的开始处起，取尽可能多的字符，直到出现非数值字符，然后将这部分字符串转换为数值。
3. 在VB中，以下哪个是正确的循环结构？A. for...nextB. while...end whileC. do...loopD. All of the above**答案：D****解析：** VB支持多种循环结构，包括for...next、while...wend以及do...loop。
4. VB中哪个关键字用于声明一个过程？A. FunctionC. PropertyD. Both A and B**答案：D****解析：** 在VB中，Sub和Function都是用来声明过程的关键字，其中Sub用于无返回值的过程，Function用于有返回值的过程。
5. 下列哪个选项不是VB中的控件事件？A. ClickB. LoadC. MouseEnterD. Open**答案：D****解析：** Click、Load和MouseEnter都是VB中常见的控件事件，而Open是文件操作的语句，不是事件。
6. 在VB中，哪个关键字用于声明数组？A. DimB. ReDimC. Both A and BD. None of the above**答案：C****解析：** Dim用于声明数组，而ReDim用于重新定义数组的大小。
7. VB中哪个函数用于获取当前日期？A. Now()B. Date()C. Time()D. Both A and B**答案：D****解析：** Now()和Date()都可以获取当前日期，Now()返回的是日期和时间，而Date()只返回日期。
vb6.0文本文档
第一章第二章一、填空题1、VB6.0是基于面向对象的程序设计方法，采用______驱动的编程机制。
2、VB6.0窗体文件的扩展名是______。
3、窗体的初始化代码应写在窗体对象的______事件中。
4、Vi sualBasic的对象主要分为______对象和______对象两大类。
5、基于Wi ndows应用程序的用户界面主要有两大类，分别是______界面和______界面。
6、VB有三个调试窗口，它们是______窗口、本地窗口和监视窗口。
二、判断题1、VB中打开工程文件时，在资源管理器窗口可以看到工程中所有的文件，所以可以认为工程文件包括了工程中所有的文件，只要保留工程文件即可，其他文件可以不必保留。
2、在VB中编译生成的可执行文件可以直接复制到任何一台安装有Wi ndows系统的计算机上运行。
3、V B工程中只能以标准模块中的Su b Mai n过程或所建立的第一个窗体作为启动对象。
4、任何VB工程编译结果都是可执行文件.EXE。
三、选择题1、关于Vis ual B asic应用程序正确的叙述是_____.A. Vis ual B asic程序运行时，总是等待事件被触发B. Visu al Ba sic程序设计的核心是编写事件过程的程序代码 C. V isual Basi c程序是以线性方式顺序执行的D. Visu al Ba sic的事件可以由用户随意定义，而事件过程是系统预先设置好的2、.下列的操作不能打开代码编辑窗口的是_____。
A.选中对象，单击鼠标右键，在弹出菜单中选择"查看代码"B.选中对象，双击鼠标左键 C.按功能键F7D.按功能键F43、.保存文件时，窗体的所有数据以_____存储。
VB考试题模拟卷(参考答案)
一、选择题（10分，正式试卷为10题）1、VB是一种面向对象的可视化程序设计语言，采取了____的编程机制。
A、事件驱动B、过程驱动C、函数驱动D、模块驱动2、在VB中____是一个特例，它既是类也是对象。
A、命令按钮B、文本框C、标签D、窗体3、多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把____指定为启动窗体。
A、包含控件最多的窗体B、设计时的第一个窗体C、含有Form_Load过程的窗体D、命名为Form1的窗体4、VB集成开发环境具有三种工作模式，以下____是使用最多的VB工作模式。
A、编辑B、设计C、运行D、中断5、有一程序代码：Text1.FontSize = ”宋体”，其中Text1、FontSize和”宋体”分别代表的是____。
A、对象、方法、属性B、对象、属性、值C、属性、对象、值D、对象、值、属性6、不具备Caption属性的对象是____。
A、文本框B、标签框C、命令按钮D、多选框7、VB是一种面向对象的程序设计语言，____不是面向对象系统所包含的三个要素。
A、变量B、事件C、方法D、属性8、不具备Text属性的对象是____。
A、文本框B、图文框C、组合框D、列表框9、当启动程序时，系统自动执行的是____事件过程。
A、Form_ClickB、Form_LoadC、Command_ClickD、Text1.Change10、表达式Int (19 / 3) +5 ^ 2 * 8 Mod 10 \ 3的值是____。
A、6B、8C、7D、7211、在VB集成环境创建应用程序时，除了工具箱窗口、属性窗口和窗体窗口外，还有必不可少的是____。
A、窗体布局窗口B、立即窗口C、监视窗口D、代码窗口12、要使Print方法在Form_Load事件过程中起作用，要对窗体的____属性进行设置。
A、BackColorB、ForeColorC、AutoSizeD、AutoRedraw13、若要使标签控件显示时不覆盖其背景内容，要对它的____属性进行设置。
VB模拟题2013
Visual Basic6.0等级考试模拟试卷第一套模拟试卷一、选择题1．当一个工程含有多个窗体时，单击“启动”按钮，运行的窗体是（）。
A) 正在编辑的窗体B) 第一个添加的窗体C) 最后一个添加的窗体D) 在"工程属性"对话框中指定的窗体2．以下声明语句中错误的是（）。
A) Deflnta-z B) Dim var='ABC'C) Const varl=123 D) Static var3 As Integer3．设a=8，b=6，c= -1；执行语句Print a>b>c后，窗体上显示的是（）。
A) 1 B) True C) False D) 出错信息4．以下能判断是否到达文件尾的函数是（）。
A) LOF B) BOF C) LOC D) EOF5．下列（）语句是合法的。
A) x>3=y B) x+y=5 C) x=y>3 D) x=y+6．执行语句X = InputBox("请输入圆的半径",0,"求圆的面积")，在弹出对话框后输入5回车,则下列叙述正确的是（）。
A) 0是默认值B) X的值是字符"5"C) X的值是数字5 D) 对话框标题是"求圆的面积"7．被一个对象所识别的外界动作被称为（）。
A) 事件B)方法C)过程D)属性8．为了使标签Label1不可见，正确的属性设置为（）。
A) Label1.Visible=True B) Label1.Visible=1C) Label1.Visible=0 D) Label1.Visible=False9．在图形模式下，点亮坐标为X,Y的像素所用的语句是（）。
A) Locate X,Y B) Pset X,Y,5 C) Position X,Y D) Pset(X,Y)10．复选框的Value属性为0时，表示（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【HNCE网上考试系统 v10.0】本套软件使用权属于：全国大学生计算机等级考试(河南考区) 考试课程:大学生计算机等级考试（河南考区）考试时间:110分钟考场:000考试日期:2011.05.03考号：003000005姓名：剩余时间：107:27 保存交卷退出帮助
本卷共有5道大题，共100分。
其中，第一、二题必做，第三、四、五选做两道:
一、单项选择题（每小题1分，共30分，必做）
1、有关Windows中对话框的叙述，不正确的是______。
（1分）
A、对话框不能改变形状大小
B、对话框没有最大化按钮
C、对话框没有最小化按钮
D、对话框不能移动
2、打开Windows的“资源管理器”，若在其窗口右部单击了第一个文件，再按住Ctrl键单击第5个文件，则______。
（1分）
A、有0个文件被选中
B、有1个文件被选中
C、有2个文件被选中
D、有5个文件被选中
3、在Windows回收站窗口中选定被删除的文件，再单击“文件”菜单项中的______命令，可以把文件恢复到原来位置。
（1分）
A、打开
B、还原
C、删除
D、恢复
4、在Windows环境下，按下Ctrl键和鼠标左键在同一驱动器的不同文件夹之间拖动某一对象，结果是______。
（1分）
A、移动该对象
B、复制该对象
C、删除该对象
D、无任何结果
5、在Word编辑状态下，给当前打开的文档加上页码，应使用的菜单项是______。
（1分）
A、编辑
B、插入
C、格式
D、工具
6、在Word文档中可以有图文框，图文框的边框上有8个控点，若用鼠标按下其右上角的控点，向左下角拖动，则图文
框的______。
（1分）
A、长与宽同时按比例变大
B、宽度按比例变大
C、宽度按比例变小
D、长与宽同时按比例变小
7、在Excel单元格中输入当天日期的操作是按下组合键______。
（1分）
A、Tab + ;
B、Alt + ;
C、Ctrl + ;
D、Shift + ;
8、在Excel中执行如下操作：当前工作表是Sheet1，按住Shift键单击Sheet2，在A1中输入100，并将它的格式设置为斜体，正确的结果是______。
（1分）
B、工作表Sheet2中的A1单元没有任何变化，输入一
A、工作表Sheet2中的A1单元出现正常体的100
个数后自动变为斜体
C、工作表Sheet2中的A1单元出现斜体的100
D、工作表Sheet2中的A1单元没有任何变化
9、在PowerPoint中，要查看当前文稿的字数，应选择______。
（1分）
A、文件\属性
B、工具\属性
C、工具\选项
D、视图\工具栏
10、在PowerPoint中，往幻灯片中插入“幻灯片编号”时，可以通过“视图”中的______命令来实现。
（1分）
A、“页眉页脚”
B、“批注”
C、“自选图形”
D、“文本框”
11、在微机系统中，硬件与软件的关系是______。
（1分）
A、在一定条件下可以相互转化
B、逻辑功能上的等效关系
C、特有的关系
D、固定不变的关系
12、在计算机中采用二进制，是因为______。
（1分）
A、电路简单
B、工作可靠
C、逻辑性强
D、以上均是
13、能直接与CPU交换信息的存储器是______。
（1分）
A、硬盘
B、内存
C、软盘
D、优盘
14、在操作系统中，文件管理的主要作用是______。
（1分）
A、实现对文件的按内容存取
B、实现按文件的属性存取
C、实现文件的高速输入输出
D、实现对文件的按名存取
15、使用数字波形法表示声音信息时，采样频率越高，则声音质量______。
（1分）
A、越好
B、越差
C、不变
D、不能确定
16、局域网使用的数据传输介质有同轴电缆、双绞线和______。
（1分）
A、总线
B、光缆
C、电缆线
D、电话线
17、使用IE快速查找当前网页上的文字，可以使用IE菜单栏中的______命令。
（1分）
A、插入
B、文件
C、编辑
D、工具
18、将二进制数1100 0100转换成八进制数是______。
（1分）
A、304
B、610
C、61
D、141
19、数据库系统与文件系统的主要区别是______。
（1分）
A、文件系统简单，而数据库系统复杂
B、文件系统只能管理数据文件，而数据库系统能管理
各种类型的文件
C、文件系统只能管理少量数据，而数据库系统能管理大量数据
D、文件系统不能解决数据冗余和数据独立性问题，而数据库系统可以
20、根据我国的著作权法的规定，公民创作的作品的保护期是______。
（1分）
A、作者终生加死亡后50年
B、50年
C、作者终生加死亡后70年
D、作者终生
21、不属于工程资源管理器管理的文件是( )。
（1分）
A、可执行文件
B、窗体文件
C、工程文件
D、类模块文件
22、假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是( )。
（1分）
A、bool_x="False"
B、bool_x=False
C、bool_x=.False.
D、bool_x=#False#
23、以下符号中，不属于VB类型标识符的是( )。
（1分）
A、%
B、*
C、@
D、#
24、当运行程序时，系统自动执行启动窗体的某个事件过程,这个事件过程是( )（1分）
A、Load
B、Click
C、Chang
D、GotFocus
25、假设目前有一参数值为89000，最适合存储此参数的类型为( )。
（1分）
A、Currency
B、String
C、Integer
D、Long
26、在下列4个VB表达式中，非法的表达式是( )。
（1分）
A、x=y+z
B、x=(y=z)
C、x+y>z
D、x$>y$+z+10
27、当对命令按钮的Picture属性加载.bmp文件后，为让图形在命令按钮上正确显示，需将( )属性设置为( )。
（1分）
A、MousePicture, 1
B、Style, 1
C、DownPicture, 0
D、DisabledPicture, 0
28、程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到的( )？（1分）
A、MouseDown
B、MouseUp
C、Click
D、Load
29、下列说法正确的是( )。
（1分）
A、即使数据类型为Variant，数组中的元素类型也必须保持一致
B、数据类型为Variant时，数组中的元素可以包含不同的类型
C、在数组中如果使用Option Base 1语句，则数组的缺省下界为0
D、在数组中如果没有使用Option Base语句，则数组的缺省下界为1
30、下列程序段
a=3:b=10:for c=b to a step -2:b=b+a:a=a+b:s="*":for d=b to a step -1:s=s&"*":next:next运行后，s的值为( )。
（1分）
A、"****"
B、"***"
C、"**"
D、"*"
二、编程题（本题20分，必做）
新建一个工程，按下载图片【图1：vb01.jpg(单击查看)】创建界面，完成后上传窗体文件(.frm文件)，要求：
(1)按照左图添加控件，要求大小适当、布局合理。
(5分)
(2)按照右图，利用属性窗口完成控件的属性设置(将XXX改写为自己的姓名)。
(5分)
(3)编写事件过程。
运行程序，单击按钮“日期”，通过函数(否则不得分)取得当前日期并显示在标签上(5分)。
(4)编写事件过程。
运行程序，单击按钮“红色”，使标签文字颜色改为红色(5分)。
（20分）
本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面
考号：003000005姓名：剩余时间：107:27 保存交卷退出帮助强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览。