重庆市计算机等级二级VB历年真题A

--10-重庆市计算机等级二级VB历年真题A-1VisualBasic语言笔试试题(A)一、单项选择题〔每题120〕执行X=7And3: Y=7Or3后，比较结果：(A)X=Y (B)X>Y (C)X<Y (D)发生错误执行X=7Mod3: Y=7\3后，比较结果：(A)X=Y (B)X>Y (C)X<Y (D)发生错误以下常数或表达式中数值最大的为：(A)&H200-1 (B)&HFF+256 (C)512 (D)&H100+255以下表达式中数值最小的为：(A)–7/3 (B)Fix(-7/3) (C)-Int(7/3)(D)Int(-7/3)5．执行PrintInt(12.34567*1000)/1000后，显示的结果为：(A)12.000 (B)12.34 (C)12.345 (D)12.3456A$=“WindowsApplication“,中取出“Application“(A)Left$(A$,10) (B)Right(A$,10)(C)Mid$(A$,9,10) (D)Mid$(A$,9)如要将一个数值变量A中的数值在标签Label1上显示，正确的语句是：(A)Label1.Name=A (B)Label1.Tag=A(C)Label1.Caption=A (D)Label1.Top=A如要将一个字符串变量A中的字符串在标签Label1上显示，正确的语句是：(A)Label1.Name=A (B)Label1.Tag=A(C)Label1.Caption=A (D)Label1.Top=A如要读出文本框Text1上显示的字符串，正确的语句是：(A)X$=Text1.Name (B)X$=Text1.Tag(C)X$=Text1.Font (D)X$=Text1.Text键或右键，将能够区分鼠标的左、右键的大事是：(A)Click (B)DblClick (C)MouseDown (D)DragDrop命令按钮Command1外表可以显示在Picture属性中的图片，必需设置命令按钮的：(A)Command1.Apearance=Flat (B)Command1.Visible=True(C)Command1.Style=Graphical (D)Command1.Enable=True命令按钮Command1Picture,DownPictureDisabledPictureEnable=FalseDownPicture属性中的图形 (B)DisabledPicture属性中的图形(C)Picture属性中的图形 (D)Picture属性中的图形，但呈现为灰色将命令按钮Command1外表显示的图片复制到图片框Picture1中的语句是：(A)Picture1=Command1.Picture (D)Picture1.Picture=Command1.DownPicture(C)Picture1.Picture=Command1 (B)Picture1=Command1.DisablePicrure将到图片框Picture1Command1Command1=Picture1.Picture (B)Command1.DisablePicrure=Picture1(C)Command1.Picture=Picture1 在二个图片框中各有一组单项选择按钮OptionButton，其作用为：(A)两组单项选择按钮中只有一个能被选中(B)因有两组单项选择按钮，无一可被选中(C)两组单项选择按钮中各有一个能被选中两组单项选择按钮中各有一个以上的能被选中16．在二个图片框中各有一组复选框CheckBox，其作用为：两组复选框中只有一个能被选中 (B)因有两组复选框，无一可被选中(C)两组复选框中各有一个能被选中 (D)两组复选框中各有多个能被选中图片框的FillStyle属性为SolidLineFBackColor属性 (B)FillColor属性(C)ForeColor属性 (D)固定为黑色图片框的FillStyle属性为Line为：(A)BackColor属性 (B)FillColor属性(C)ForeColor属性 (D)固定为黑色定时器TimerTimer每秒触发一次 定的时间间隔触发一次(C)每毫秒触发一次 (D)每隔由Windows系统设定的时间间隔触发一次20．以挨次输出〔写文件〕模式翻开文件“Test.Dat“的语句是：(A)Open“Test.Dat“ForOutputAs#1(B)Open“Test.Dat“ForInputAs#2Open“Test.Dat“ForBinaryAs#3Open“Test.Dat“ForRandomAs#4Len=1614(A)7\2 (B)-7\2 (C)Int(7/2) (D)Int(-7/2) (E)Fix(-7/2)在VB中，呈现灰色的颜色表示法有：(A)&H808080 (B)&H80C080 (D)RGB(128,128,128) (E)RGB(128,255,128)整数A>B,产生一个大于等于B且小于A的随机整数的表达式为：(A)Int((A-B)*Rnd+1) (B)Int((A-B+1)*Rnd+B) (C)A+Int((A-B-1)*Rnd)(D)Int((A-B)*Rnd+B)`(E)B+Int((A-B)*Rnd)具有标题Caption标签Label (B)窗体Form (C)框架Frame(D)图片框PictureBox (E)命令按钮CommandButton在其外表可以显示图形的控件有：图象框Image (B)复选框CheckBox (C)单项选择按钮OptionButton(D)图片框PictureBox (E)命令按钮CommandButton控件的MousePoint属性上可将光标的外形设置为：Arrow (B)Cross (C)I-Beam (D)UpArrow 7．在键盘上按空格键，并马上松开，被触发的大事有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click 8．在控件上按下鼠标右键,并马上松开，被触发的大事有：(A)Click大事 (B)DbClick大事(C)MouseDown大事(D)MouseMove大事 (E)MouseUp大事一个控件数组中的控件必需符合的条件是：数组中的每个控件类型一样 (B)数组中的每个控件的名称一样(C)数组中的每个控件的大小都必需一样(D)数组中的每个控件的位置都必需一样(E)数组中的每个控件的索引〔Index〕属性一样(Project)中部件(Components)菜单项中有很多功能强大的外部控件：通用对话框CommonDialog (B)高级文本框RichTextBox(C)日历Calender (E)接收和发送E-Mail的控件MAPISession和MAPIMessages三、推断分析110(以下各小题的表达是否正确，如正确，请选择“?”；如错，请选择“?”。)1VBVariant已经声明，但未经赋值的数值变量的初值为0。已经声明，但未经赋值的字符串变量的初值为长度为1的空格。控件Frame具有容器功能，可将其他控件放置在Frame控件内。标签控件Label中的内容在运行时可以通过键盘直接修改。文本框控件TextBox中的内容在运行时可以通过键盘直接修改。命令按钮的外表可以显示文字或图形。False，Visible=True，则在运行时该控件可见，但不响应操作。9Visible=False，Enabled=True，则在运行时该控件不行见，但可响应操作。10.由于定时器Timer220Command11010-100PrivateSubCommand1_Click()Fork=1To_① A=Int( ② Print NextkEndSub

*Rnd)+ ③ 键自动画出到起点的连线，完成闭合，完毕绘制。PrivateSubForm_MouseDown(Button%,Shift%,X!,Y!)Tag=Y*10000+X ④ (X,Y)EndSubPrivateSubForm_MouseMove(Button%,Shift%,X!,Y!)If ⑤ =1ThenLine-(x,y)EndSubPrivateSubForm_MouseUp(Button%,Shift%,X!,Y!)X0=Tag ⑹ 10000:Y0=Tag ⑦ 10000Line(X,Y)-(X0,Y0)EndSub滚动条数组HScroll1(1)、HScroll1(2)、HScroll1(3)分别调整图片框Picture1重量。HScroll1_Change(⑧)R=Hscroll1(1).ValueG=Hscroll1(2).ValueB=Hscroll1(3).ValuePicture1.⑨=⑩(R,G,B)EndSub1．PrivateSubCommand1_ClickFlagEven=0N=Val(Text1.Text)Fork=1ToNA=Int(101*Rnd)IfA/2=Int(A/2)ThenFlagEven=FlagEven+1NextkLabel1.Caption=100*FlagEven/NEndSubText1Command1，则标签Label1中显示的结果：100Label1中显示的数越接近50Label1中显示的数越接近0Label1中显示的数越接近502．PrivateSubCommand1_ClickLabel1.Caption= X=“BASIC“Fork=1ToLen(X)Ifk=1ThenT=0ElseT=32Label1.Caption=Label1.Caption+Chr(Asc(Mid(X,k,1))+T)NextkEndSub窗体上显示的是：(A)Basic (B)BASIC (C)basic (D)basiCPrivateSubForm_ClickForX=50To250A=6.28*X/200: Y=100-100*Sin(A)IfX=50ThenPSet(X,Y)Line-(X,Y)NextXEndSub运行时，单击窗体，显示的图形是：(A) (B) (C) (D)PrivateSubCommand1_ClickDimH(65To90)W=UCase(Text1.Text): L=Len(W)Fork=1ToLA=Asc(Mid(W,k,1))IfA>=65AndA<=90ThenH(A)=H(A)+1NextkFork=65To69PrintH(k)NextkEndSub运行时，在文本框中输入“Activation:Theprocessofloadinganobjectinmemory.“，单击计算按钮Command1，窗体上显示的是：(A)1(B)4(C)4(D)321413334411154131020调整图片框Picture1Picture1VScroll1、VScroll2VScrol3分别调整图片框Picture1Command1统计文本中字符消灭频率。在文本框Text1Command1，分别统计字符串中从A到Z每个字符的个数〔不区分大小写〕，显示在窗体上。按完毕按钮Command2完毕程序。单项选择题〔每题1分，共20〕1.C. 2.C. 3.C. 4.D 5.C 6D 7.C 8.C 9.D 10.C11.C. 12.B 13.A 14.C 15.C. 16.D. 17.B 18.C 19.B 20 A题:(每题1分,共10分)1．ABCE 2．ACD 3．DE 4．ABCE 6．ABCDE 7．ABC 8．ACE 9．AB 10．ABCDE三.推断分析 10分)1．T2．T3．F4．T5．F6．T7．T8．T9．F10．F2201．①10②91 ③10 2．④Pset ⑤Button⑥Mod⑦\3．⑧Index⑨BackColor⑩RGB5201．B 2．A 3．A 4．B1020PrivateSubVScroll1_ChangeR=VScroll1.Value 3分G=VScroll2.ValueB=VScroll3.ValuePicture1.ForeColor=RGB(R,G,B)4EndSubPrivateSubVscroll2_Change1R=VScroll1.ValueG=VScroll2.ValueB=VScroll3.ValuePicture1.ForeColor=RGB(R,G,B)EndSubPrivateSubVscroll3_ChangeR=VScroll1.ValueG=VScroll2.ValueB=VScroll3.ValuePicture1.ForeColor=RGB(R,G,B)EndSubPrivateSubCommand1_Click1EndEndSubPrivateSubCommand1_Click1‘取字符串1L=Len(X)Fork=1ToLW=Mid(X,k,1) 2A=Asc(W)IfA>=65AndA<=90ThenH(A)=H(A)+1 3EndIfNextkFork=65To90 2PrintChr(k);“=>“;H(A)NextkEndSubPrivateSubCommand2_Click1EndEndSub重庆市计算机等级二级VB历年上机真题全国高等学校(重庆考区)非计算机专业计算机应用学问和力量2023年第一次等级考试100留意：考试结果存盘的文件名为：ExNNnnnn。4一．程序调试题(40以下程序的功能是将用户键盘输入的二进制整数转换成十进制数，并在窗体上输出。PrivateSubForm_ClickDimBAs Long,DAsBooleanBInputBox(D=BFori=1ToLen(D)D=D+Right(B,i,1)NextPrintDEndSubEx21nnnn.Frm，工程文件名为Ex21nnnn.Vbp提示：可以用Windows供给的计算器验证程序运算结果。二．编写程序(每题30在文本框Textl“yyyy-mm-dd”或“yy-mm-dd”Commandl，将其转换成“yyyymmddLabel1窗体文件名为Ex22nnnn.Frm，工程文件名为EX22nnnn.Vbp。编写程序，在窗体不同位置上屡次按下鼠标左键时，能够在这些单击点之间绘制出连续折线。鼠EX23nnnn.Frm，工程文件名为EX23nnnn.Vbp。重庆市计算机等级二级VB历年真题目1命令按钮Command1外表可以显示在Picture属性中的图片，必需设置命令按钮的：(A)Command1.Apearance=Flat (B)Command1.Visible=True(C)Command1.Style=Graphical (D)Command1.Enable=True命令按钮Command1的Picture,DownPicture和DisabledPicture属性都已装入图形，当命令按钮的Enable=False时，在命令按钮外表显示的图形为：(A)DownPicture属性中的图形 (B)DisabledPicture属性中的图形(C)Picture属性中的图形 (D)Picture属性中的图形，但呈现为灰色将命令按钮Command1外表显示的图片复制到图片框Picture1中的语句是：(A)Picture1=Command1.Picture (D)Picture1.Picture=Command1.DownPicture(C)Picture1.Picture=Command1 (B)Picture1=Command1.DisablePicrure将到图片框Picture1中的图片复制到命令按钮Command1外表显示的语句是：(A)Command1=Picture1.Picture (B)Command1.DisablePicrure=Picture1(C)Command1.Picture=Picture1 OptionButton，其作用为：(B)因有两组单项选择按钮，无一可被选中(C)两组单项选择按钮中各有一个能被选中(D)两组单项选择按钮中各有一个以上的能被选中CheckBox，其作用为：(A)两组复选框中只有一个能被选中(B)因有两组复选框，无一可被选中(C)两组复选框中各有一个能被选中(D)两组复选框中各有多个能被选中图片框的FillStyle属性为LineFBackColor属性 (B)FillColor属性(C)ForeColor属性(D)固定为黑色图片框的FillStyle属性为SolidLine为：BackColor属性 (B)FillColor属性(C)ForeColor属性(D)固定为黑色定时器Timer控件触发Timer大事触发过程的时间间隔为：每秒触发一次(B)每隔Interval(C)每毫秒触发一次(D)每隔由Windows以挨次输出〔写文件〕模式翻开文件“Test.Dat“的语句是：Open“Test.Dat“ForOutputAs#1(B)Open“Test.Dat“ForInputAs#2(C)Open“Test.Dat“ForBinaryAs#3(D)Open“Test.Dat“ForRandomAs#4Len=16执行X=7And3:Y=7Or3(A)X=Y (B)X>Y (C)X<Y (D)发生错误执行X=7Mod3:Y=7\3(A)X=Y (B)X>Y (C)X<Y (D)发生错误以下常数或表达式中数值最大的为：(A)&H200-1 (B) &HFF+256 (C)512 (D)&H100+255以下表达式中数值最小的为：(A)–7/3 (B)Fix(-7/3) (C)-Int(7/3)(D)Int(-7/3)15PrintInt(12.34567*1000)/1000后，显示的结果为：(A)12.000 (B)12.34 (C)12.345 (D)12.3456从A$=“WindowsApplication“,中取出“Application“子字符串所用到的函数是：(A)Left$(A$,10) (B)Right(A$,10)(C)Mid$(A$,9,10) (D)Mid$(A$,9)如要将一个数值变量A中的数值在标签Label1上显示，正确的语句是：(A)Label1.Name=A (B)Label1.Tag=A(C)Label1.Caption=A (D)Label1.Top=A如要将一个字符串变量A中的字符串在标签Label1上显示，正确的语句是：(A)Label1.Name=A (B)Label1.Tag=A(C)Label1.Caption=A (D)Label1.Top=A如要读出文本框Text1上显示的字符串，正确的语句是：(A)X$=Text1.Name (B)X$=Text1.Tag(C)X$Text1.Font (D)X$=Text1.Text20．按下鼠标左键或右键，将能够区分鼠标的左、右键的大事是：Click (B)DblClick (C)MouseDown (D)DragDrop二、多项选择题:(每题110控件的MousePoint属性上可将光标的外形设置为：Arrow (B) Cross (C)I-Beam (D)UpArrow 2．在键盘上按空格键，并马上松开，被触发的大事有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click 3．在控件上按下鼠标右键,并马上松开，被触发的大事有：(A)Click大事 (B)DbClick大事(C)MouseDown大事 (D)MouseMove大事(E)MouseUp大事一个控件数组中的控件必需符合的条件是：数组中的每个控件类型一样 (B)数组中的每个控件的名称一样(C)数组中的每个控件的大小都必需一样(D)数组中的每个控件的位置都必需一样(E)数组中的每个控件的索引〔Index〕属性一样VB(Project)中部件(Components)菜单项中有很多功能强大的外部控件：通用对话框CommonDialog (B)高级文本框RichTextBox(C)日历Calender (E)接收和发送E-Mail的控件MAPISession和MAPIMessages确定值小于4的表达式有：(A)7\2 (B)-7\2 (C)Int(7/2) (D)Int(-7/2) (E)Fix(-7/2)VB(A)&H808080 (B)&H80C080(C)QBColor(7)(D)RGB(128,128,128) (E)RGB(128,255,128)整数A>B,产生一个大于等于B且小于A的随机整数的表达式为：(A)Int((A-B)*Rnd+1) (B)Int((A-B+1)*Rnd+B) (C)A+Int((A-B-1)*Rnd)(D)Int((A-B)*Rnd+B)`(E)B+Int((A-B)*Rnd)具有标题Caption标签Label (B)窗体Form (C)框架Frame(D)图片框PictureBox (E)命令按钮CommandButton在其外表可以显示图形的控件有：图象框Image (B)复选框CheckBox (C)单项选择按钮OptionButton(D)图片框PictureBox (E)命令按钮CommandButton三、推断分析110(以下各小题的表达是否正确，如正确，请选择“?”；如错，请选择“?”。)1TextBox命令按钮的外表可以显示文字或图形。False，Visible=True，则在运行时该控件可见，但不响应操作。4Visible=False，Enabled=True，则在运行时该控件不行见，但可响应操作。5.由于定时器TimerVBVariant已经声明，但未经赋值的数值变量的初值为0。已经声明，但未经赋值的字符串变量的初值为长度为1的空格。控件Frame具有容器功能，可将其他控件放置在Frame控件内。标签控件Label2201．滚动条数组HScroll1(1)、HScroll1(2)、HScroll1(3)分别调整图片框Picture1重量。HScroll1_Change( ⑧ R=Hscroll1(1).ValueG=Hscroll1(2).ValueB=Hscroll1(3).ValuePicture1. ⑨ = ⑩ (R,G,B)EndSub键自动画出到起点的连线，完成闭合，完毕绘制。PrivateSubForm_MouseDown(Button%,Shift%,X!,Y!)Tag=Y*10000+X ④ (X,Y)EndSubPrivateSubForm_MouseMove(Button%,Shift%,X!,Y!)If ⑤ =1ThenLine-(x,y)EndSubPrivateSubForm_MouseUp(Button%,Shift%,X!,Y!)X0=Tag ⑹ 10000:Y0=Tag ⑦ 10000Line(X,Y)-(X0,Y0)EndSub3Command11010-100PrivateSubCommand1_Click()Fork=1To_① A=Int( ② Print NextkEndSub

*Rnd)+ ③ 1．PrivateSubForm_ClickForX=50To250A=6.28*X/200: Y=100-100*Sin(A)IfX=50ThenPSet(X,Y)Line-(X,Y)NextXEndSub运行时，单击窗体，显示的图形是：(A) (B) (C) (D)PrivateSubCommand1_ClickDimH(65To90)W=UCase(Text1.Text): L=Len(W)Fork=1ToLA=Asc(Mid(W,k,1))IfA>=65AndA<=90ThenH(A)=H(A)+1NextkFork=65To69PrintH(k)NextkEndSub“Activation:Theprocessofloadinganobjectinmemory.Command1，窗体上显示的是：(A)1(B)4(C)4(D)32141333441115413PrivateSubCommand1_ClickFlagEven=0N=Val(Text1.Text)Fork=1ToNA=Int(101*Rnd)IfA/2=Int(A/2)ThenFlagEven=FlagEven+1NextkLabel1.Caption=100*FlagEven/NEndSubText1Command1，则标签Label1中显示的结果：100Label1中显示的数越接近50Label1中显示的数越接近0Label1中显示的数越接近504．PrivateSubCommand1_ClickLabel1.Caption= X=“BASIC“Fork=1ToLen(X)Ifk