2018年12月计算机二级VB考试提分试题及答案
计算机二级VB考试题及答案

计算机二级VB考试题及答案为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是搜索的计算机二级VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩!1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容 121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS 或.BAS】(注意不要写点)。
2018计算机二级vb考试答案

2018计算机二级vb考试答案一、选择题1. 在Visual Basic中,以下哪个选项不是基本数据类型?A. IntegerB. StringC. DoubleD. Object答案:D2. 如果一个变量被声明为Dim x As Integer,则x的数据类型是什么?A. 整型B. 浮点型C. 字符串型D. 布尔型答案:A3. 在Visual Basic中,哪个关键字用于声明一个变量?A. PublicB. PrivateC. DimD. Const答案:C4. 在Visual Basic中,以下哪个选项不是控制结构?A. If...Then...ElseB. For...NextC. Do...LoopD. Call答案:D5. 在Visual Basic中,以下哪个选项不是数组的声明方式?A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10) {}C. ReDim arr(10)D. Dim arr As Integer = 10答案:D二、填空题1. 在Visual Basic中,使用________关键字可以创建一个子程序。
答案:Sub2. 如果要在一个窗体中显示文本,可以使用________方法。
答案:Print3. 在Visual Basic中,使用________方法可以结束一个程序的执行。
答案:End4. 在Visual Basic中,使用________方法可以打开一个文件。
答案:Open5. 在Visual Basic中,使用________方法可以关闭一个文件。
答案:Close三、简答题1. 请简述Visual Basic中的事件驱动编程是什么?答案:事件驱动编程是一种编程范式,程序的执行流程由事件(如用户操作、系统消息等)触发,而非按照预先定义的顺序执行。
2. 在Visual Basic中,如何声明一个全局变量?答案:在模块级别使用Public关键字声明变量,使其成为全局变量。
计算机二级VB考试题及答案

8.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c)=a(c)+c-1
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮,标签从停止的位置继续移动
C.当标签全部移出窗体后,将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
12.规范地说,VB是一种(A)的开发工具(单)
A.面向对象
B.面向用户
End If
End Sub
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
j=0
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)2 Then
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
15.Visual Basic程序中分隔各语句的字符是(B)(单)
A.′
B.:
C.
D._
16.假定窗体的名称(Name属性)为Form1,则把窗体的标题设置为"VB Test"的语句为(B)(单)
Next c
运行以上程序后,x的值是(A)(单)
A.6
B.7
C.8
D.9
计算机二级vb考试题库及答案

计算机二级vb考试题库及答案计算机二级vb考试题库一及答案1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度,一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时,产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表计算机二级vb考试题库二及答案1.以下程序段运行的结果为(B)Private Sub Form_Click( )MyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)Private Sub Form_Click( )MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P") End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)Private Sub Form_Click( )MyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong",则程序运行结果为(A)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong",则程序运行结果为(B)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x y Thent = xx = yy = tEnd IfIf y z Thent = yy = zz = tIf x y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x "," y "," zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为(C)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段:Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = ""Result = Num1 * Num2Case 4Op = ""Result = Num1 / Num2End SelectLabel1= Num1 Op Num2 "=" ResultEnd Sub窗体运行后,输入1,则label1的标题显示结果为(A)A.3+2=5B.3-2=1C.32=6D.32=1.5看了“计算机二级vb考试题库及答案”。
2018年12月计算机二级VB考试提分试题及答案

2018年12月计算机二级VB考试提分试题及答案2018年12月计算机二级VB考试提分试题及答案1.双击窗体中的对象后,VB将显示的窗口是(C)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中,VB的程序设计方法是(B)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)A.CaptionB.Text/doc/325115736.htmlD.Top5.标签默认属性是(A)A.CaptionB.Text/doc/325115736.htmlD.Top6.执行以下程序段:a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);Next IEnd Sub程序运行后,单击命令按钮,在窗体上显示的内容是(D)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
计算机二级考试VB练习题及答案

计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是店铺搜索整理的计算机二级考试VB练习题及答案,供参考练习,预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序,在【】处填写合适的关系运算符。
Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。
Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序,下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时,表示m是素数B.tag为false时,表示m是素数C.语句m Mod i = 0,说明m是素数D.以上说法都不正确4.百元买百鸡问题:假定小鸡每只5角,公鸡每只2元,母鸡每只3元。
2018年下半年VB二级考试答案

2018年下半年VB二级考试答案一、单项选择题(每题2分,共20分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. VB中哪个函数用于计算字符串的长度?A. LenB. LengthC. SizeD. Count答案:A3. 若变量a的值为5,变量b的值为10,则表达式a+b的值是多少?A. 15B. 25C. 5D. 10答案:A4. 在VB中,哪个关键字用于声明一个子程序?A. FunctionB. SubC. ProcedureD. Method5. VB中哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B6. 在VB中,以下哪个选项是正确的循环结构?A. For...NextB. While...WendC. Do...LoopD. All of the above答案:D7. 若变量x的值为3,执行语句x=x+1后,变量x的值是多少?A. 3B. 4C. 5D. 6答案:B8. 在VB中,哪个函数用于将字符串转换为数值?A. ValB. StrC. CIntD. CDbl答案:A9. VB中哪个事件用于处理按钮点击?B. DoubleClickC. MouseDownD. KeyPress答案:A10. 在VB中,以下哪个选项是正确的逻辑运算符?A. AndB. OrC. NotD. All of the above答案:D二、填空题(每题2分,共20分)1. VB中声明一个整型变量的关键字是________。
答案:Integer2. 在VB中,使用________函数可以连接两个字符串。
答案:Concatenate3. 若变量a的值为True,变量b的值为False,则表达式a And b的结果是________。
计算机二级考试VB考试题及答案

计算机二级考试VB考试题及答案计算机二级考试VB考试题及答案为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是店铺搜索整理的计算机二级考试VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩!计算机二级考试VB考试题及答案1、窗体中有一个名称为txtSpeed的文本框,一个名称为hsbSpeed的滚动条。
以下程序:Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚动条hsbSpeed右端的箭头时,以下说法不正确的是(B) (单)A.此时会触发change事件B.此时不会触发change事件C.在文本框中显示了滚动条滑块所在位置的值D.此时不会触发scroll事件2.利用窗体中的滚动条HScroll1改变窗体的背景色,可以这样编写代码:Private Sub HScroll1_Change( )R= HScroll1.Valueform1.BackColor = RGB(R,int(Rnd*256),int(Rnd*256))End Sub以下说法不正确的是(C) (单)A.窗体的背景色是一个随机的颜色B.RGB函数取得到的颜色有256*256*256种C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数3.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:Private Sub Slider1_change( )Text1.FontSize =【Slider1.value】End Sub当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:Private Sub Slider1_change( )Text1.【Fontsize】 = slider1.valueEnd Sub当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。
计算机二级vb考试试题附答案

计算机二级vb考试试题附答案计算机二级vb考试试题(附答案)为帮助大家更好巩固计算机二级VB考试基础知识,yjbys店铺为大家分享最新的计算机二级vb基础试题及答案,希望对同学们考试有所帮助!第一部分计算机基础知识1. 下列有关信息、信息处理、信息技术的叙述中,错误的是___(1)___。
A.信息与物质、能量是客观世界的三大构成要素B.与信息处理相关的行为和活动主要指信息的分类、计算、分析等,但不包含信息的收集和传递C.现代信息技术的主要特征之一是以数字技术为基础D.计算机技术、通信技术均属于信息技术2. 下列有关数字技术与微电子技术的叙述中,错误的是___(2)___A.数字技术是采用有限个状态(主要是两个状态)来表示、处理、存储和传输信息的技术B.比特是信息的基本单位,1个比特可以表示8位二进制数C.集成电路芯片是微电子技术的结晶,是现代信息产业的基础D.Moore定律是指"单块集成电路的集成度平均每18-24个月翻一番"3. 下列有关计算机发展与分类的叙述中,错误的是___(3)___。
A.数字电子计算机诞生于20世纪40年代,个人计算机(微型计算机)产生子20世纪80年代初B.第4代计算机的CPU主要采用中小规模集成电路,第5代计算机采用超大规模集成电路C.计算机分类有多种方法,按其内部逻辑结构通常分为16位机、32位机或64位机等,目前使用的PC机大多是32位机或64位机D.巨型计算机一般采用大规模并行处理的体系结构,我国国防科技大学研制的"天河1号,,巨型计算机,其性能可在全球巨型机排行榜中位居前10名4. 下列有关PC机微处理器的叙述中,错误的是___(4)___A.目前PC机所用的各种微处理器均由Intel公司设计和生产B.微处理器通常由单片集成电路制成C.一台高性能PC机中通常包含多个微处理器D.台式PC机与笔记本PC机采用的微处理器通常有所不同5. 下列有关PC机主板与芯片组的叙述中,错误的是 ___(5)___。
计算机二级VB语言程序设计考试题及答案

计算机二级VB语言程序设计考试题及答案不管从事何种工作,如果要想做出高效、实效,务必先从自身的开始。
有了方案,才不致于使自己思想迷茫、头脑空洞,不知从哪里着手开展工作。
下面是搜索的计算机二级VB语言程序设计考及答案,供大家参考学习!1.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub FormClick( )MyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮mand1,编写下面程序:Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮mand1,编写下面程序:Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮mand1,编写下面程序:Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"Gong",那么程序运行结果为(A)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮mand1,编写下面程序:Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"gong",那么程序运行结果为(B)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮mand1,编写下面程序:Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的选项是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为mand1的命令按钮,编写如下代码:Private Sub Command1Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Theny = zz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8,那么标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段:Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入1,那么label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段:Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入2,那么label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段:Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入3,那么label1的标题显示结果为(C)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段:Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入4,那么label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1Click( )Dim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表,一行7个表达式B.打印九九乘法表,一行7个表达式C.打印ASCII码表,一行8个表达式D.以上说法都不正确15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。
计算机二级vb试题题目及答案

计算机二级vb试题题目及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个选项是正确的字符串比较?A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案:B2. VB中,哪个函数可以用来计算数组中元素的个数?A. UBoundB. LBoundC. CountD. Size答案:A3. 在VB中,以下哪个选项表示创建一个名为“myForm”的窗体?A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案:D4. VB中,下列哪个选项是正确的文件打开模式?A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案:D5. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. IntC. FloatD. All of the above答案:D6. VB中,哪个关键字用来声明一个变量?A. DimB. DeclareC. ConstD. All of the above答案:D7. 在VB中,以下哪个选项是正确的循环结构?A. ForB. DoC. WhileD. All of the above答案:D8. VB中,哪个函数可以用来获取当前系统日期?A. NowB. DateC. TimeD. Today答案:D9. 在VB中,以下哪个选项表示创建一个名为“myButton”的按钮?A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案:D10. VB中,哪个关键字用来结束一个程序的运行?A. EndB. ExitC. StopD. All of the above答案:D二、填空题(每题2分,共20分)1. 在VB中,使用________关键字可以声明一个全局变量。
国家二级计算机vb考试试题及答案

国家二级计算机vb考试试题及答案一、单项选择题(每题1分,共10分)1. 在VB中,用于定义变量的关键字是()。
A. DimB. SubC. FunctionD. Const答案:A2. 下列哪个选项不是VB中的控制结构?()A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案:D3. VB中,用于声明一个子程序的关键字是()。
A. FunctionB. SubC. DimD. Const答案:B4. 在VB中,用于表示逻辑“与”运算符的是()。
A. AndB. OrC. NotD. Xor答案:A5. VB中,用于表示逻辑“或”运算符的是()。
A. AndB. OrC. NotD. Xor答案:B6. 在VB中,用于声明一个数组的关键字是()。
A. DimB. SubC. FunctionD. Const答案:A7. VB中,用于声明一个常量的关键字是()。
A. DimB. SubC. FunctionD. Const答案:D8. 在VB中,用于表示逻辑“非”运算符的是()。
A. AndB. OrC. NotD. Xor答案:C9. VB中,用于声明一个函数的关键字是()。
A. FunctionB. SubC. DimD. Const答案:A10. 在VB中,用于表示逻辑“异或”运算符的是()。
A. AndB. OrC. NotD. Xor答案:D二、填空题(每题2分,共10分)1. 在VB中,使用____关键字可以定义一个全局变量。
答案:Public2. 当需要在VB中定义一个私有变量时,应使用____关键字。
答案:Private3. 在VB中,使用____关键字可以定义一个局部变量。
答案:Dim4. VB中,使用____关键字可以定义一个过程。
答案:Sub5. VB中,使用____关键字可以定义一个函数。
答案:Function三、简答题(每题5分,共20分)1. 请简述VB中事件驱动编程的概念。
计算机二级vb考试试卷及答案

计算机二级vb考试试卷及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个选项不是基本数据类型?A. IntegerB. StringC. DoubleD. Object答案:D2. VB中的控件数组允许我们做什么?A. 将多个控件视为一个单一实体B. 存储多个控件的集合C. 将控件的多个实例存储在一个数组中D. 以上都是答案:C3. 在VB中,哪个关键字用于声明一个变量?A. DimB. DeclareC. ConstD. Option答案:A4. VB中的哪个事件是在窗体加载时触发的?A. ClickC. MouseDownD. KeyPress答案:B5. 在VB中,以下哪个选项不是窗体的属性?A. CaptionB. HeightC. WidthD. Color答案:D6. VB中用于循环遍历数组的关键字是什么?A. ForB. WhileC. DoD. Each答案:A7. VB中哪个函数用于计算一个数的平方根?A. SqrB. PowC. LogD. Abs答案:A8. 在VB中,以下哪个选项不是过程的类型?B. FunctionC. PropertyD. Event答案:D9. VB中哪个控件用于显示文本,但不提供文本编辑功能?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B10. VB中哪个关键字用于退出当前的过程?A. ExitB. ReturnC. EndD. Stop答案:A二、填空题(每空2分,共20分)1. VB中的________关键字用于声明一个常量。
答案:Const2. 在VB中,________事件用于响应鼠标单击。
答案:Click3. VB中的________函数用于将字符串转换为数字。
答案:Val4. 在VB中,________属性用于设置或返回一个控件的可见性。
答案:Visible5. VB中________方法用于在数组中添加一个新元素。
计算机二级《VB》考题与答案

计算机二级《VB》考题与答案计算机二级《VB》考题与答案 1单选题(每小题1分共30分)在微机中,1MB准确等于__B__。
A、 1024×1024个字B、 1024×1024个字节C、 1000×1000个字节D、 1000×1000个字十进制整数100化为二进制数是_A___。
A、 1100100B、 1101000C、 1100010D、 1110100 计算机病毒是指___C_ 。
A、带细菌的磁盘B、已损坏的磁盘C、具有破坏性的特制程序D、被破坏的程序计算机的主存储器是指 __C__。
A、RAM和磁盘B、ROMC、ROM和RAMD、硬盘和控制器下列描述中不正确的是_B___。
A、多媒体技术最主要的两个特点是集成性和交互性B、所有计算机的字长都是固定不变的,都是8位C、通常计算机的存储容量越大,性能就越好D、各种高级语言的翻译程序都属于系统软件在_C___视图下可以插入页眉和页脚。
A、普通B、大纲C、页面D、主控文档8.关于Word的常用工具栏,下面说法正确的是( C )。
A.不包括文档建立B.不包括打印预览C.不包括自动滚动D.不能设置字体9、在Windows的回收站中,可以恢复 __A__。
A、从硬盘中删除的文件或文件夹B、从软盘中删除的文件或文件夹C、剪切掉的文档D、从光盘中删除的文件或文件夹10、为获得WINDOWS帮助,必须通过下列途径__D_。
A、在“开始”菜单中运行“帮助”命令B、选择桌面并按F1键C、在使用应用程序过程中按F1键D、A和B都对11、在WORD中查找和替换正文时,若操作错误则__A__。
A、可用“撤消”来恢复B、必须手工恢复C、无可挽回D、有时可恢复,有时就无可挽回12、在Word中,___B___用于控制文档在屏幕上的'显示大小。
A、全屏显示B、显示比例C、缩放显示D、页面显示13、Word在正常启动之后会自动打开一个名为___D___的文档。
vb二级计算机考试试题及答案

vb二级计算机考试试题及答案一、单选题(每题2分,共20分)1. VB中,用于声明变量的关键字是:A. DimB. DeclareC. ConstD. Type答案:A2. 下列哪个选项不是VB中的控制结构?A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案:D3. 在VB中,用于定义类模块的关键字是:A. ClassB. ModuleC. FormD. Interface答案:A4. VB中,用于读取文件内容的函数是:A. DirB. FileGetC. FileOpenD. FilePut答案:C5. 在VB中,下列哪个选项不是数组的声明方式?A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案:D6. VB中,用于创建一个窗体的关键字是:A. FormB. DialogC. WindowD. Frame答案:A7. VB中,用于实现事件驱动编程的关键字是:A. EventB. SubC. FunctionD. Property答案:B8. 在VB中,下列哪个选项不是字符串函数?A. LeftB. RightC. MidD. Round答案:D9. VB中,用于定义常量的关键字是:A. DimB. ConstC. StaticD. Private答案:B10. VB中,下列哪个选项不是循环结构?A. For EachB. ForC. Do WhileD. If答案:D二、填空题(每题2分,共20分)1. VB中,用于声明全局变量的关键字是________。
答案:Public2. VB中,用于定义一个过程的关键字是________。
答案:Sub3. 在VB中,用于定义一个函数的关键字是________。
全国计算机二级vb考试试题及答案

全国计算机二级vb考试试题及答案一、单项选择题(每题2分,共40分)1. VB中,以下哪个函数用于获取当前系统时间?A. NowB. DateC. TimeD. Timer答案:A2. 在VB中,以下哪个控件用于显示文本信息?A. LabelB. TextBoxC. ComboBoxD. ListBox答案:A3. VB中,以下哪个属性用于设置文本框的只读属性?A. ReadOnlyB. EnabledC. VisibleD. BackColor答案:A4. 在VB中,以下哪个事件用于响应文本框内容的改变?A. ClickB. ChangeC. DblClickD. KeyPress答案:B5. VB中,以下哪个关键字用于声明全局变量?A. DimB. PublicC. PrivateD. Static答案:B6. 在VB中,以下哪个函数用于计算两个数的和?A. SumB. AddC. PlusD. +答案:D7. VB中,以下哪个属性用于设置窗体的标题?A. CaptionB. TextC. TitleD. Name答案:A8. 在VB中,以下哪个事件用于响应窗体的关闭?A. LoadB. UnloadC. CloseD. FormClosing答案:B9. VB中,以下哪个关键字用于定义过程?A. FunctionB. SubC. ProcedureD. Method答案:B10. 在VB中,以下哪个控件用于显示下拉列表?A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案:B11. VB中,以下哪个属性用于设置按钮的点击事件?A. ClickB. CommandC. PressD. Activate答案:A12. 在VB中,以下哪个函数用于获取系统日期?A. NowB. DateC. TimeD. Timer答案:B13. VB中,以下哪个属性用于设置文本框的字体大小?A. FontSizeB. FontC. SizeD. TextSize答案:B14. 在VB中,以下哪个事件用于响应鼠标的双击动作?A. ClickB. DblClickC. MouseDownD. MouseUp答案:B15. VB中,以下哪个关键字用于声明局部变量?A. DimB. PublicC. PrivateD. Static答案:A16. 在VB中,以下哪个函数用于获取系统时间?A. NowB. DateC. TimeD. Timer答案:C17. VB中,以下哪个属性用于设置标签的背景颜色?A. BackColorB. BackgroundColorC. ColorD. FillColor答案:A18. 在VB中,以下哪个事件用于响应鼠标的按下动作?A. ClickB. MouseDownC. MouseUpD. DblClick答案:B19. VB中,以下哪个关键字用于声明静态变量?A. DimB. PublicC. PrivateD. Static答案:D20. 在VB中,以下哪个控件用于显示复选框?A. CheckBoxB. OptionButtonC. RadioButtonD. ToggleButton答案:A二、填空题(每题2分,共20分)1. VB中,使用________关键字可以声明一个数组。
全国计算机二级考试《VB》操作试题及答案

全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Textl中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp,窗体上已经有一个标签Labell,请添加一个单选按钮数组,名称为Opl,含三个单选按钮,它们的Index 属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在Textl中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在Text1中显示“我开汽车去”,如图所示。
2018年下半年VB二级考试答案

2018年下半年VB二级考试答案一、单项选择题(每题2分,共20分)1. 在Visual Basic中,下列哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 下列哪个函数用于计算一个数的绝对值?A. AbsB. SqrC. RoundD. Int答案:A3. 在Visual Basic中,以下哪个关键字用于声明变量?A. DimB. ConstC. FunctionD. Sub答案:A4. 如果变量x的值为5,那么表达式x Mod 3的值是多少?A. 2B. 1C. 0D. 5答案:A5. 在Visual Basic中,哪个控件用于显示文本,但不允许用户编辑?A. LabelB. TextBoxC. ComboBoxD. CheckBox答案:A6. 下列哪个事件是当文本框获得焦点时触发的?A. ClickB. GotFocusC. LostFocusD. Change答案:B7. 在Visual Basic中,下列哪个选项是正确的循环结构?A. ForB. WhileC. DoD. All of the above答案:D8. 下列哪个函数用于将字符串转换为数值?A. ValB. StrC. ChrD. Asc答案:A9. 在Visual Basic中,哪个属性用于设置或返回一个表单的标题?A. CaptionB. TextC. NameD. Title答案:A10. 如果变量x的值为10,那么表达式x > 5 And x < 15的值是多少?A. TrueB. FalseC. 1D. 0答案:A二、填空题(每题2分,共10分)1. 在Visual Basic中,使用________关键字可以声明一个数组。
答案:Dim2. 当需要在程序中使用一个固定不变的值时,可以使用________关键字来声明。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
20.以下关于变量作用域的叙述中,正确的是(C)
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
21.确定一个控件在窗体上的位置的属性是(C)
A.Width和Height
S2
End Sub
Sub S2( )
y=10
Form1.Show
End Sub
Model2的代码如下:
Sub Main( )
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是(C)
A.Form1->Model1->Model2
B.Model1->Model2->Form1
C.Model2->Model1->Form1
D.Model2->Form1->Model1
9.设有如下程序段:
a$="beijingshanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后,变量b$的值为【shanghai】
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的是(C)
A.Visual
B.Basic
C.Program
D.出错
23.以下关系表达式中,其值为False的是(A)
A."ABC">"AbC"
D.面向过程、顺序驱动
3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)
A.Show
B.Unload
C.Load
D.Hide
4.文本框的默认属性是(B)
A.Caption
B.Text
D.Top
10.While num<=2
num = num+1
Loop
Print num
11.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Move 500,500
A.1 2
B.1 2 3
C.3 4 5
D.4 5
8.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下:
Public x As Integer
Public y As Integer
Sub S1( )
x =1
x = -5
If x >0 Then
y = x ^ 2
Else
y = x
End If
Print y
End Sub
程序运行后,单击命令按钮,窗体上显示的是(A)
A.-5
B.25
C.1
D.-1
27.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As
D.Case 3,5,Is>10
15.以下关于图片框控件的说法中,错误的是(D)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
16.执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是(A)
2018年12月计算机二级VB考试提分试题及答案
1.双击窗体中的对象后,VB将显示的窗口是(C)
A.工具箱
B.项目(工程)窗口
C.代码窗口
D.属性窗口
2.下述选项中,VB的程序设计方法是(B)
A.面向对象、顺序驱动
B.面向对象、事件驱动
C.面向过程、事件驱动
B.执行"文件"菜单中的"属性窗口"命令
C.执行"编辑"菜单中的"属性窗口"命令
D.按F4键
2下列能打开工具箱窗口的操作是(A)
A.执行"视图"菜单中的"工具箱"命令
B.按Alt键
C.单击属性窗口上的"工具箱"按钮
D.按Ctrl键
3.假定已在一个窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置该窗体的Name属性,预先应执行的操作是(D)
A.Visual
B.Basic
C.6
D.11
17.以下叙述中错误的是(D)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中,每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见
C.For i=1 To List1.listCount ...... Next i
D.For i=1 To ListCount ...... Next i
14.以下Case语句中错误的是(C)
A.Case 0 To 10
B.Case Is>10
C.Case Is>10 And Is<50
Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是(A)
A.变量X、Y的作用域相同
B.Y的作用域是Model1
C.在Form1的任何地方中可以直接使用Y
D.在Form2中可以直接使用X和Y
28.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是(A)
5.标签默认属性是(A)
A.Caption
B.Text
D.Top
6.执行以下程序段:
a$="abbacddcba"
For I=6 To 2 Step -2
X=Mid(a,I,I)
Y=Left(a,I)
z=Right(a,I)
z=Ucase(X&Y&z)
B.12345.00
C.12345
D.00123.45
19.以下关于函数过程的叙述中,正确的是(A)
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中,过程的返回值可以有多个
C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D.如果不指明函数过程参数的类型,则该参数不能有数据类型的参数
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_KeyPress
29.在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是(D)
A.空
B.abcdef
C.abc
D.def
26.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
End If
End Sub
以下能说明该事件过程正确是(A)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
二
1.下列可以激活属性窗口的操作是(D)
A.用鼠标双击窗体的任何部位
Dim a
s = 0
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
Next I
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是(D)
A.4321
B.1234
C.34
D.10
30.在窗体上画一个名称为Text1的文本框,编写以下代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii> 90 Then
msgBox "请输入大写字母"
KeyAscii = 0
B.Top和Height
C.Top或Width
a=Array(1,2,3,4,5)
Sum=0
For I=1 To 5
Sum = sum+a(I)
Next I
x=Sum/5
For I =1 To 5
If a(I)>x Then Print a(I);
Next I
End Sub