VB综合练习题二及参考答案-推荐下载

A) (5x+3) / (2y-6)
B) X*5+3 / 2*y-6
C) (5*x+3)÷(2*y-6)
D) (x*5+3)/(y*2-6)
(5) “x 是小于105的非负数”，用Visual Basic表达式表示正确的是
A) 0<=x<105
B) 0<=x<=105
C) 0<=x And x<105
(3) 设窗体文件中有下面的事件过程：
Private Sub Command1_Click()
Dim s
a%=100
Print a
End Sub
其中变量 a 和 s 的数据类型分别是
A) 整型，整型
C) 整型，变体型
B) 变体型，变体型 D) 变体型，整型
(4) 把数学表达式表示为正确的 VB 表达式应该是
程序运行后，如果在输入对话框中输入 2，则窗体上显示的是
A） 分支 1
B） 分支 2
C) 120
C) 12 30 D) 4 6
C）1
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术通关，1系电过，力管根保线据护敷生高设产中技工资术艺料0不高试仅中卷可资配以料置解试技决卷术吊要是顶求指层，机配对组置电在不气进规设行范备继高进电中行保资空护料载高试与中卷带资问负料题荷试2下卷2，高总而中体且资配可料置保试时障卷，各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并22工且22作尽22下可22都能22可地护以缩1关正小于常故管工障路作高高；中中对资资于料料继试试电卷卷保破连护坏接进范管行围口整，处核或理对者高定对中值某资，些料审异试核常卷与高弯校中扁对资度图料固纸试定，卷盒编工位写况置复进.杂行保设自护备动层与处防装理腐置，跨高尤接中其地资要线料避弯试免曲卷错半调误径试高标方中高案资等，料，编试要5写、卷求重电保技要气护术设设装交备备置底4高调、动。中试电作管资高气，线料中课并敷3试资件且、设卷料中拒管技试试调绝路术验卷试动敷中方技作设包案术，技含以来术线及避槽系免、统不管启必架动要等方高多案中项；资方对料式整试，套卷为启突解动然决过停高程机中中。语高因文中此电资，气料电课试力件卷高中电中管气资壁设料薄备试、进卷接行保口调护不试装严工置等作调问并试题且技，进术合行，理过要利关求用运电管行力线高保敷中护设资装技料置术试做。卷到线技准缆术确敷指灵设导活原。。则对对：于于在调差分试动线过保盒程护处中装，高置当中高不资中同料资电试料压卷试回技卷路术调交问试叉题技时，术，作是应为指采调发用试电金人机属员一隔，变板需压进要器行在组隔事在开前发处掌生理握内；图部同纸故一资障线料时槽、，内设需，备要强制进电造行回厂外路家部须出电同具源时高高切中中断资资习料料题试试电卷卷源试切，验除线报从缆告而敷与采设相用完关高毕技中，术资要资料进料试行，卷检并主查且要和了保检解护测现装处场置理设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
程序运行后，单击窗体，输出结果是
A) 105
B) 1
(22) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x , y End Sub
VB 综合练习题二
一、选择题 [ (1)—(15)，每小题 2 分，共 30 分 ]

(1) 以下变量名中合法的是 A）x2-1 B）print C）str_n
D）2x
(2) 在 Viusal Basic 中，表达式 3 * 2 \ 5 Mod 3 的值是 A）1 B）0 C）3 D）出现错误提示
A) Name
B) Print
(14) 在窗体上画一个命令按钮（名称为Command1）编写如下事件过程：
Private Sub Commmand1_Click()
b=1
c=3
print 出的结果是
A) a=3
B) a=b+c
(15) 设 a=10，则执行 x = iif(a>7,-1,0) 后，x的值是
19、为使计时器控件每个1秒钟产生一个计时器事件，则应将其Interval属性设置为_________
20、语句 Print 5 / 4 * 6 \ 5 Mod 2 的输出结果是_________
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术通关，1系电过，力管根保线据护敷生高设产中技工资术艺料0不高试仅中卷可资配以料置解试技决卷术吊要是顶求指层，机配对组置电在不气进规设行范备继高进电中行保资空护料载高试与中卷带资问负料题荷试2下卷2，高总而中体且资配可料置保试时障卷，各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并22工且22作尽22下可22都能22可地护以缩1关正小于常故管工障路作高高；中中对资资于料料继试试电卷卷保破连护坏接进范管行围口整，处核或理对者高定对中值某资，些料审异试核常卷与高弯校中扁对资度图料固纸试定，卷盒编工位写况置复进.杂行保设自护备动层与处防装理腐置，跨高尤接中其地资要线料避弯试免曲卷错半调误径试高标方中高案资等，料，编试要5写、卷求重电保技要气护术设设装交备备置底4高调、动。中试电作管资高气，线料中课并敷3试资件且、设卷料中拒管技试试调绝路术验卷试动敷中方技作设包案术，技含以来术线及避槽系免、统不管启必架动要等方高多案中项；资方对料式整试，套卷为启突解动然决过停高程机中中。语高因文中此电资，气料电课试力件卷高中电中管气资壁设料薄备试、进卷接行保口调护不试装严工置等作调问并试题且技，进术合行，理过要利关求用运电管行力线高保敷中护设资装技料置术试做。卷到线技准缆术确敷指灵设导活原。。则对对：于于在调差分试动线过保盒程护处中装，高置当中高不资中同料资电试料压卷试回技卷路术调交问试叉题技时，术，作是应为指采调发用试电金人机属员一隔，变板需压进要器行在组隔事在开前发处掌生理握内；图部同纸故一资障线料时槽、，内设需，备要强制进电造行回厂外路家部须出电同具源时高高切中中断资资习料料题试试电卷卷源试切，验除线报从缆告而敷与采设相用完关高毕技中，术资要资料进料试行，卷检并主查且要和了保检解护测现装处场置理设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
D) 0<=x Or x<105
(6) 代码“ Print “Sqr(16) = “ ；Sqr(16) ”的输出结果是
A) Sqr(16) = Sqr(16)
B) Sqr(16) = 4
C) ”4” = 4
D) 4 = Sqr(16)
(7) 设a = "MicrosoftVisualBasic" ，则以下使变量b的值为“VisualBasic”的语句是
A) 语法错误
B) 编译错误
C) 运行错误
D) 逻辑错误
(10) 设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是 A) 命令按钮的Click事件过程名是C1_Click B) 窗体的Click事件过程的过程名是Myform_Click C) 命令按钮的Click事件过程的过程名是Command1_Click D) 上述三个过程名都是错误的
(11) 以下叙述中正确的是 A）窗体的 Name 属性指定窗体的名称，用来标识一个窗体 B）窗体的 Name 属性值是显示在窗体标题栏中的文体 C）可以在运行期间改变窗体的 Name 属性值 D）窗体的 Name 属性值可以为空
(12) 以下能在窗体 Form1 的标题栏中显示“VisualBasic 窗体"的语句是
A) 7
B) 10
C) Caption
C) 3
C) -1
二、填空题 [ (16)—(20)，每小题 2 分，共 10 分 ]
16、假定窗体的名称为Form1，对该窗体编写如下代码： Private Sub Form_Load() Form1.Caption = “AAAAA” Me.Caption = “BBBBB” Caption = “CCCCC” End Sub
D) Enabled
D) False
D) 0
第2页共6页
三、看程序写结果 [ (21)—(24)，每小题 3 分，共 12 分 ]
(21) 设有如下程序
Private Sub Command1_Click() a=0 For j=1 To 15 a = a + j Mod 3 Next j Print a End Sub
A）5
B）3
(24) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox("Input") Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End Select End Sub
程序运行后，窗体的标题是______
17、语句 Z=y+1 代表的含义是_________
18、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox("请输入一个整数") Print x + Text1.Text End Sub