版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、.最新VB题库及答案一、选择题第1部分1、在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Cli
2、ck()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在一行内写多条语句时,每个语句之间用( )符号分隔。A、 , B、: C、. D、;3、下面( )是合法的变量名。A、X_YZ B、123ABC C、INTEGER
3、; D、X-Y4、下面( )是合法的字符常量。A、 ABC$ B、 “ABC” C、 ABC D、 ABC5、表达式16/4 - 25*8MOD52的值为( )。A、14 B、 4 C、20 D、26、设a=”MicrosoftVisualBasic”,则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b
4、=Mid(a,11,10)7、设a="a",b="b",c="c",d="d",执行语句x = IIf(a < b) Or (c > d), "A", "B")后,x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click()x = InputBox("请输入一个整数")Print x
5、 + Text1.TextEnd Sub程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为A、123B、456C、579D、123456 9、在BASIC中,三个逻辑运算符NOT,AND,OR在运算过程中,优先级从高到低的顺序是( )。A、 AND->NOT->OR B、 NOT->AND->ORC、 OR->NOT->AND D、 NOT->OR->AND10、下面程序段运行时内层循环的循环总次
6、数( )。FOR X=1 TO 2FOR Y=1 TO XNEXT YNEXT XA.、1 B、2C、3 D、411、在VB中,复写框(Check)的Value值有三种,分别是( )。 A、-1,0,1 B、0,1,2 C、1,2,3 D、True,False,0 12、若要退出For循环,可使用的语句为( )。A、Exit B、Exit Do C、TimeD、Exit For13、利用VB设计程序的基本步骤可分四步:(1)设计用户界;(2)( );(3)运行调试程序;(4)生成执行文件。A、编写代码B、设计算法 C、信息反馈 D、系
7、统集成 14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是() A、Form1.Caption“时钟” B、Form1.Caption=“时钟”C、Caption=“时钟”D、Fopm1.Caption( “时钟”) 15、保存文件时,窗体的所有数据存储格式为( ) A、 *PRGB、 *FRMC、*VBP D、 *EXE16、在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒中在文本框中显示一次当
8、前的时间。以下是实现上述操作的程序:Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在_处应填入的内容是A、Enabled = TrueB、Enabled = FalseC、Visible = TrueD、Visible = False17、把窗体的KeyPreview属性设置程为True,然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyA
9、scii)KeyAscii = Asc(UCase(ch)Print Chr(KeyAscii + 2)End Sub程序运行后,按键盘上的“A“键,则在窗体上显示的内容是A、AB、BC、CD、D18、VB中的变量如果没有显示声明其数据类型,则默认为( ) A、日期型 B、数据型 C、字符型 D、变体型19、在VB中,通过改变列表框( )属性的值 ,可以为列表框添加项目。A、ListB、(名称) C、Caption D 、Text 20、已知A$=”12345678”,则表达式Val(left$(a$,4)+Mid$(a$,4,2)的值为(
10、60; )。A、12345 B、123445 C、8 D. 621、下面程序段显示的结果是( )。Dim xIf x then print x else print x+1A、1 B、0 C.、-1 D、显示出错信息22、用来测试指定文件结束状态的函数是()A、Eof B、FreeFile C、Loc D、Open23、当Long类型数据与Single类型运算时,运算结果的类型为( )。 A、
11、Integer B、Long C、Single D、Double24、某一VB工程含F1、F2两个窗体,执行“F1Show:F2Hide”语句后,F1、F2窗体显示的结果为( )。 A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体 25、数学关系3= x10表示成正确的VB表达式为( ) A、3=x10B、3=xANDx10C、x=3ORx10 D、3=xAND10 26.在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i
12、 As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr(i, j) = i * jNext jNext iLabel1.Caption = Str(arr(2, 2) + arr(3, 3)End Sub程序运行后,单击窗体,在标签中显示的内容是A、12B、13C、14D、1527.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是A、Private Sub List1_Click()Label1.Capti
13、on = List1.ListIndexEnd SubB、Private Sub List1_Click()Label1.Name= List1.ListIndexEnd SubC、Private Sub List1_Click()Label1.Name = List1.TextEnd SubD、Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub28、设a=5,b=4,c=3,d=2,下列表达式的值是3>2*b Or a=c And b<>c Or c>dA、1B、TrueC、FalseD、230、下列
14、操作不能打开代码窗口的是( )A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令 B、选中对象,双击鼠标左键C、按F7键D、按F4键第2部分1、VB语言的语法规定,多条语句放在同一行中,语句之间用()分隔。A、逗号 B、冒号 C、分号 D、单引号2、在VB中,执行“A=18MOD4”语句后,A的值为( )。 A、2B、4 C、6 D、8 3、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是( )。 A、TrueTrue B、True FalseC 、FalseTrue D 、FalseFalse 4、在VB中,执行 “DimA,B As String
15、” 语句后,A,B的数据结构为( )。 A、整型数 B、实型数 C、字符型 D、字节型 5、在VB中,执行 “A=123:B=Str$(A)”语句后,B的数据结构为( )。 A、整型数、 B、字节型 C、实型数 D、字符型6、在VB中,复写框(Check)的Value值有三种,分别是( )。A、-1,0,1 B、0,1,2 C、1,2,3 D、True,False,0 7、若要退出For循环,可使用的语句为( )。 A、Exit B、Exit Do C、Time D、Exit For8、利用VB设计程序的基本步骤可分四步: (1) 设计用户界;(2)( );(3)运行调试程序;(4)生成执行文
16、件。 A、编写代码 B、设计算法 C、信息反馈 D、系统集成 9、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是() A、Form.C aption“时钟” B、 Form.Caption=“时钟” C、Caption=“时钟” D、 Fopm.Caption( “时钟”) 10、保存文件时,窗体的所有数据存储格式为()。A 、 *PRG B 、 *FRMC、 *VBP D、 *EXE11、窗体初始化程序应写在( )事件中。A、 LoadB 、Unload C、 Activate D、GotFocus 12、某一VB工程含F1、F2两个窗体,执行“F1Sh
17、ow:F2Hide”语句后,F1、F2窗体显示的结果为( )。 A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示 F2窗体 13、VB的数据类型分为( ) A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型 C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型 14、VB中的变量如果没有显示声明其数据类型,则默认为( ) A、日期型 B、数据型 C、字符型 D、变体型 15、在VB中,通过改变表框( )属性的值 ,可以为列表框添加项目。 A、List B、(名称) C、Caption D、Text 16、在VB中,三个逻辑运算符NOT,AND,OR在运算
18、过程中,优先级从高到低的顺序是( )。A、AND->NOT->OR B、 NOT->AND->ORC、 OR->NOT->AND D、 NOT->OR->AND17、下面程序段运行时内层循环的循环总次数( )。FOR X=1 TO 2 FOR Y=0 TO X-1 NEXT YNEXT XA、1 B、2 C、3 D、418、正确的算术表达式是(
19、60; )。A、 -3/8+5INT24.6 B、 8 * 3 / 5 C、 (X+Y)*Z/30 D、 (X2+Y/3)*X319、若A=2, B=3, C=4, 则值为真的关系式是( )。A. 12/A+2=B2 B、3>2*B OR A=C AND B>C OR A>BC、 A>B AND B<=C OR 3*A > C D、 A*B > C+3 20、当Long类型数
20、据与Single类型运算时,运算结果的类型为( ) 。 A、 Integer B、 Long C、 Single D、 Double21、下面关于顺序文件的描述正确的是( )。A. 每条记录长度必须相同B. 可通过编程对文件中的某条记录方便的修改。C. 数据只能以ASCII码形式存放在文件中,所以可通过文本编辑软件显示。D. 文件的组织结构复杂。22、下列( )不属于VB的控件。A、窗体 B、数据 C、形状 D、直线23
21、、下面( )是合法的变量名。A、X_YZ B、123+ABC C、 INTEGER D、 X-Y24、下面的程序段,输入9后,输出结果是()。X=inputbox(“输入一个数”)Select case xCase 1 to 5Y=-1Case 5 to 10Y=0Case 10 to 15Y=1End select A、0 B、1 C、-1 D、225、下列说法中正确的是()。A、数组只具有数组名,而没有数组类型B、数组只具有数组类型,而没有数组名C、数组的类型和数组元素的类型不同D、数组和
22、变量一样,都有名称和类型这两种属性26、创建公用数组的方法是()。A、在模块中用Private语句声明 B、在模块中用Public语句声明C、在过程中用Private语句声明 D、在过程中用Public语句声明 不是B就是D27、Visual Basic 6.0中缺省的参数传递机制是()。A、传值 B、传地址 C、传值和传地址 D、从实参到形参28、已知A$=”12345678”,则表达式Val(left$(a$,4)+Mid$(a$,4,2)的值为( )。A、 12345 B、123445 C、 8
23、60; D、 629、下面正确的赋值语句是( ) A、x+y=30 B、y= *r*r C、y=x+30D、3y=x 30、要保留动态数组原有的内容,应当使用()语句。A、Redim Preserve B、 Redim C、Dim C、 Public不是A就是B二、填空题(每空2分,共20分)1、下面的程序是求100以内奇数和s的值(S=1+3+5+7.+99)。请在有()的地方填上适当的语句或表达式。(8分 )Private Sub Command1_Click()Dim s As SingleDim i As Singles=(0)For i=1 to 100 (step 2)S=( s
24、+ i)(next i )Print s End Sub2、在下列程序的()内写上适当的内容,使能输出如下图形。* * * * * * * * * * * * * * * *程序如下:Private Sub Command1_Click()For i=1 to (6 )For j=1 to ( i-6 )Print ( “*” )Next j(Print String(i, "*") )Next iEnd Sub3、写出下列程序的执行结果Private Sub Form_Click() Dim a(1 To 10) As Integer Dim b(1 To 10) As
25、Integer Dim c(1 To 10) As Integer For i = 1 To 10 a(i) = i Next i b(1) = 10 For j = 9 To 1 Step -1 b(10 - j + 1) = j Next j For k = 1 To 10 c(k) = a(k) + b(k) Next k For l = 1 To 10 Print c(l); If l = 5 Then Print End If Next lEnd Sub结果:11 11 11 11 1111 11 11 11 114、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Pri
26、vate Sub Form_Click()Text1.text="VB程序设计"End SubPrivate Sub Text1_Change()Picture1.Print"VB Programming"End Sub程序运行后,单击窗体,在文本框显示的内容是_ VB程序设计_,而在图片框显示的内容是_ VB Programming _。5、下列程序输出的值是多少.Private Sub Command1_Click() s = 0 For i = 9 To 42 Step 11 s = s + i Next i If i > 50 Then s
27、 = s + i Else s = s - i End If Print sEnd Sub结果是:_155_。6、设有如下程序:Private Sub Form_Click()Dim a As Integer,s As Integern=8s=0Do s=s+nn=n-1Loop While n>0Print sEnd Sub以上程序的功能是计算1到8的累加。程序运行后,单击窗体,输出结果为_36_。 7、设有如下程序:用 Array 函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。Option Base 1Private Sub Command1_Click()D
28、im arr1Dim Min As Integer,i As Integerarr1=Array(12,435,76,-24,78,54,866,43)Min=arr1(1)For i=2 To 8If arr1(i)<Min Thenmin=arr1(i)Next iPrint "最小值是:" minEnd Sub8、在名称为 Form1 的窗体上画一个文本框,其名称为 Text1,在属性窗口中把该文本框的 MultiLine 属性设置为 True,然后编写如下的事件过程:以下程序的功能是,把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件 smtext2.txt。Private Sub Form_Click()Open"d:testsmtext1.txt"For Input As *1Do While Not eof(1)Line Input *1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close *1Open "d:testsmtext2.txt"For Output
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 第11章 《功和机械能》 单元测试卷( A卷基础篇)2024-2025学年八年级物理下册同步单元AB卷(人教版)含答案
- 【+高+中语文】《五代史伶官传序》课件++统编版高中语文选择性必修中册
- 出售机械板车合同模板
- 托管课程合作合同模板
- 粮油进超市合同模板
- 室内土方回填合同模板
- 家具租赁商用合同模板
- 房租维修承揽合同模板
- 配送超市合同模板
- 后勤配送合同模板
- 浦东机场分区(PD4)地质灾害危险性评估报告(2020年度更新成果)
- 现代汉语-句法成分-课件
- 关键跨越(新手篇):从业务高手到优秀主管
- 研学旅行路线设计方案
- 中班《香喷喷的轮子》ppt-图文
- 中建八局建筑工程绿色施工技术及管理手册(420余页 图文并茂)
- 部编版小学道德与法治四年级上册第四单元《让生活多一些绿色》测试题及答案
- 《旅游职业礼仪与交往》课程标准
- 出库单模板电子版
- 2023上海高考真题生物(含解析)
- 国家自然科学基金申请讲座
评论
0/150
提交评论