2级vb等级考试答案.docx
- 文档编号:11344471
- 上传时间:2023-05-31
- 格式:DOCX
- 页数:31
- 大小:21.67KB
2级vb等级考试答案.docx
《2级vb等级考试答案.docx》由会员分享,可在线阅读,更多相关《2级vb等级考试答案.docx(31页珍藏版)》请在冰点文库上搜索。
2级vb等级考试答案
第四十九套
一
(1)画一个图片框控件,通过其属性窗口将名称设为Pic,在Picture属性中放入Tul-1.jpg文件。
单击窗体(即运行Click事件过程),在该PrivateSubForm_Click()事件过程中加入语句:
PrivateSubForm_Click()
Pic.Print"VB等级考试"
EndSub
一
(2)画一个命令按钮控件,通过其属性窗口将名称设为Command1,标题(Caption属性)“命令按钮”。
通过菜单编辑器建立一个主菜单,在菜单编辑器的标题处输入“控件”,名称处输入menu。
在“控件”菜单下有二个子菜单,在菜单编辑器的标题处分别输入“显示命令按钮”和“隐藏命令按钮”,名称处分别输入subMenu1和subMenu2。
选择“显示命令按钮”菜单(即运行Click事件过程),在该PrivateSubsubMenu1_Click()事件过程中加入语句:
PrivateSubsubMenu1_Click()
Command1.Visible=True
EndSub
选择“隐藏命令按钮”菜单(即运行Click事件过程),在该PrivateSubsubMenu2_Click()事件过程中加入语句:
PrivateSubsubMenu2_Click()
Command1.Visible=False
EndSub
二
(1)相应的窗体文件名为sjt31.frm和sjt32.frm。
在PrivateSubCommand1_Click()事件过程中
1)将语句
'z=z+?
改为
z=z+xn(t)
在PrivateFunctionxn(mAsInteger)AsLong函数中
1)将语句
'tmp=?
改为
tmp=1
2)将语句
'tmp=?
改为
tmp=tmp*i
3)将语句
'?
=tmp
改为
xn=tmp
二
(2)在PrivateSubForm_Load()事件过程中
1)将语句
'?
=Array("第一项","第二项","第三项","第四项")
改为
arr=Array("第一项","第二项","第三项","第四项")
在PrivateSubTimer1_Timer()事件过程中
1)将语句
'?
iAsInteger
改为
StaticiAsInteger
2)将语句
'Label1.Caption=?
改为
Label1.Caption=arr(i)
3)将语句
'i=?
改为
i=0
三在窗体的PrivateSubCommand2_Click()事件过程中
1)将语句
'j=?
改为
j=9
2)将语句
'?
=Text1(j)
改为
temp=Text1(j)
3)将语句
'While(i
)
改为
While(i 4)将语句 'IfText1(j)Mod2=? Then 改为 IfText1(j)Mod2=1Then 第四十八套 一 (1)画一个框架控件,通过其属性窗口将名称设为Frame1。 在框架内画二个单选按钮控件,通过其属性窗口将名称分别为Opt1和Opt2、标题(Caption属性)分别设为“字体”和“大小”。 激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“框架”。 一 (2)画一根直线控件,通过其属性窗口将名称设为Line4,点X1属性设为1600,点X2属性分别设为1600,点Y1属性设为300,点Y2属性设为1200,Visible属性设为False。 画二个命令按钮控件,通过其属性窗口将名称分别设为Cmd1和Cmd2,标题(Caption属性)分别设为“显示高”和“隐藏高”。 单击“显示高”按钮: PrivateSubCmd1_Click() Line4.Visible=True EndSub 单击“隐藏高”按钮: PrivateSubCmd2_Click() Line4.Visible=False EndSub 二 (1)将计时器的Enabled属性设为False,Interval属性设为1000。 在命令按钮的PrivateSubC1_Click(IndexAsInteger)事件过程中 1)将语句 'SelectCase? 改为 SelectCaseIndex 2)将语句 'Case? 改为 Case0 在计时器的PrivateSubTimer1_Timer()事件过程中 1)将语句 'Text1.Text=Text1.Text? 改为 Text1.Text=Text1.Text+1 二 (2)在PrivateSubCommand2_Click()事件过程中 1)将语句 'SelectCase? 改为 SelectCases 2)将语句 '? 改为 f=10 3)将语句 'f=10+? 改为 f=10+(s-4)*1.2 4)将语句 '? 改为 CaseElse 5)将语句 'f=10+? +(s-15)*1.8 改为 f=10+(15-4)*1.2+(s-15)*1.8 三需画二个标签控件,通过其属性窗口将名称分别设为Label1和Label2,标题(Caption属性)分别设为“出现次数最多的字母是”和“它出现的次数为”。 画二个文本框控件,通过其属性窗口将名称分别设为Text1和Text2,初始内容(Text属性)均设为空。 由于所提供的窗体程序不完整,需在“统计”命令按钮的Click事件过程中加入语句: PrivateSubCommand2_Click() '考生编写 Dima(26)AsInteger n=Len(s) Fori=1Ton c=UCase(Mid(s,i,1)) Ifc>="A"Andc<="Z"Then j=Asc(c)-Asc("A")+1 a(j)=a(j)+1 EndIf Nexti Max=a (1) t=Chr(Asc("A")) Fori=2To26 Ifa(i)>MaxThen Max=a(i) t=Chr(Asc("A")+i-1) EndIf Nexti Text1.Text=t Text2.Text=Max EndSub 第四十七套 一 (1)画一个标签控件,通过其属性窗口将名称设为Label1,标题(Caption属性)设为“计算机等级考试”,AutoSize属性设为True,边框(BorderStyle属性)设为1,点击Font属性,在弹出的“字体”对话框中,在字体大小下选择“三号”。 激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“标签”。 一 (2)画一个水平滚动条控件,通过其属性窗口将名称设为Hscroll1,最大值(Max属性)设为100,最小值(Min属性)设为1,TabIndex属性为0。 画一个文本框控件,通过其属性窗口将名称设为Text1,初始内容(Text属性)设为1。 改变滚动框位置(即运行Change事件过程),在该PrivateSubHScroll1_Change()事件过程中加入语句: PrivateSubHScroll1_Change() Text1.Text=HScroll1.Value EndSub 二 (1)画一个形状控件,通过其属性窗口将名称设为Shape1,FillStyle属性0,Top属性设为360,颜色(FillColo属性)设为红色(对应的值为: &H000000FF&或&HFF&)。 在PrivateSubForm_Load()事件过程中 1)将语句 'Timer1.Enabled=? 改为 Timer1.Enabled=True 在计时器的PrivateSubTimer1_Timer()事件过程中 1)将语句 'IfShape1.Top<=? Then 改为 IfShape1.Top<=Line1.Y1Then 2)将语句 'IfShape1.Top+? >=Line2.Y1Then 改为 IfShape1.Top+Shape1.Height>=Line2.Y1Then 二 (2)需在“计算”命令按钮的Click事件过程中加入语句: PrivateSubCommand2_Click() '考生编写 SelectCaseCombo1.ListIndex Case0 Text1=even() Case1 Text1=odd() Case2 Text1=all() EndSelect EndSub 三在窗体的PrivateSubForm_Click()事件过程中 1)将语句 'Dim? 改为 DimMat(M,N)AsInteger 2)将语句 'OpenApp.Path&"\"&"datain.txt"? As#1 改为 OpenApp.Path&"\"&"datain.txt"ForInputAs#1 3)将语句 '? 改为 Input#1,Mat%(i,j) 4)将语句 '? 改为 Mat%(i,4)=t 第四十六套 一 (1)画一个标签控件,通过其属性窗口将名称设为Label1,标题(Caption属性)设为“设置速度”,AutoSize属性设为True。 画一个水平滚动条控件,通过其属性窗口将名称设为HScroll1,最大值(Max属性)设为80,最小值(Min属性)设为1,最小移动(SmallChange属性)设为2,初始值(Value属性)设为30。 一 (2)画一个形状控件,通过其属性窗口将名称设为Shape1。 画一个目录列表框控件,通过其属性窗口将名称设为Dir1。 画二个命令按钮控件,通过其属性窗口将名称分别设为Command1和Command2,标题(Caption属性)分别设为“圆形”和“红色边框”。 单击“圆形”按钮(即运行Click事件过程),在该PrivateSubCommand1_Click()事件过程中加入语句: PrivateSubCommand1_Click() Shape1.Shape=3 EndSub 单击“红色边框”按钮(即运行Click事件过程),在该PrivateSubCommand2_Click()事件过程中加入语句: PrivateSubCommand2_Click() Shape1.BorderColor=&HFF& EndSub 二 (1)相应的窗体文件名为sjt31.frm和sjt32.frm。 由于sjt31.frm所提供的窗体程序不完整,单击子菜单命令,即运行PrivateSubmnuOper_Click(IndexAsInteger)事件过程 1)将语句 'SelectCase? 改为 SelectCaseIndex 2)将语句 'Timer1.Enabled=? 改为 Timer1.Enabled=True 在计时器的PrivateSubTimer1_Timer()事件过程中 1)将语句 'IfPicture1.Left+Picture1.Width>=? Then 改为 IfPicture1.Left+Picture1.Width>=WidthThen 2)将语句 'Picture1.Left=? 改为 Picture1.Left=0 二 (2)需画二个框架控件,通过其属性窗口将名称分别设为Frame1和Frame2。 在Frame1中画一个单选按钮数组控件,含有二个单选钮,通过其属性窗口将名称设为Option1,标题(Caption属性)分别设为“古典音乐”和“流行音乐”。 在Frame1中画二个单选按钮控件,通过其属性窗口将名称分别设为Option2和Option3,标题(Caption属性)分别设为“篮球”和“羽毛球”。 由于所提供的窗体程序不完整,在PrivateSubCommand1_Click()事件过程中 1)将语句 'If? =TrueThen 改为 IfOption1(0).Value=TrueThen 2)将语句 'If? =TrueThen 改为 IfOption2.Value=TrueThen 3)将语句 'Label2.Caption=? 改为 Label2.Caption=s 三需在“找矩阵元素最大值”命令按钮的Click事件过程中加入语句: PrivateSubCommand1_Click() '====考生编写程序开始==== Max=a(1,1) Fori=1To4 Forj=1To4 Ifa(i,j)>MaxThen Max=a(i,j) EndIf Nextj Nexti Label3.Caption=Max '====考生编写程序结束==== '不得修改以下部分 saveLabel3 EndSub 在“对角线元素之和”命令按钮的Click事件过程中加入语句: PrivateSubCommand2_Click() '====考生编写程序开始==== Sum=0 Fori=1To4 Sum=Sum+a(i,i) Nexti Label4.Caption=Sum '====考生编写程序结束==== '不得修改以下部分 saveLabel4 EndSub 第四十五套 一 (1)画一个框架控件,通过其属性窗口将名称设为Frame1,标题(Caption属性)设为“框架”,Enabled属性设为False。 在F1框架中画二个单选按钮控件,通过其属性窗口将名称分别设为Option1、Option2,标题(Caption属性)分别设为“第一项”、“第二项”,“第二项”的Value属性设为True。 一 (2)画一个驱动器列表框控件,通过其属性窗口将名称设为Drive1。 画一个目录列表框控件,通过其属性窗口将名称设为Dir1。 画一个文件列表框控件,通过其属性窗口将名称设为File1。 画一个标签控件,通过其属性窗口将名称设为Label1,标题(Caption属性)设为“文件名”。 画一个标签控件,通过其属性窗口将名称设为Label2,BorderStyle属性设为1。 激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“文件系统控件”。 当目录列表框的内容发生变化时(即运行Change事件过程),在该Change事件过程中加入语句: PrivateSubDir1_Change() Form1.File1.Path=Form1.Dir1 EndSub 当驱动器列表框的内容发生变化时(即运行Change事件过程),在该Change事件过程中加入语句: PrivateSubDrive1_Change() Dir1=Drive1 EndSub 单击文件列表框(即运行Click事件过程),在该Click事件过程中加入语句: PrivateSubFile1_Click() Label2=File1.FileName EndSub 二 (1)单击“添加”命令按钮,即运行PrivateSubCommand1_Click()事件过程,在该事件过程中 1)将语句 'Combo1.? 改为 Combo1.AddItemText1 键盘向文本框输入数字,即运行PrivateSubText1_KeyPress(KeyAsciiAsInteger)事件过程,在该事件过程中 1)将语句 'IfKeyAscii>57OrKeyAscii Then 改为 IfKeyAscii>57OrKeyAscii<48Then 2)将语句 'KeyAscii=? 改为 KeyAscii=0 二 (2)在“计算”按钮的PrivateSubCommand1_Click()事件过程中 1)将语句 'Fori=? Ton 改为 Fori=mTon 2)将语句 't=? 改为 t=f(i) 3)将语句 's=s+? 改为 s=s+t 在函数PrivateFunctionf(ByRefxAsInteger)AsLong中 1)将语句 't=? 改为 t=t*i 2)将语句 'f=? 改为 f=t 三单击“确定”按钮: PrivateSubCommand1_Click() n=0 Fori=1To60 Forj=1To60 Fork=1To60 x=k*k If(x=i*i+j*j)Andj>iThen Printi;j;k n=n+1 EndIf Nextk Nextj Nexti Label1.Caption=n saveLabel1 EndSub 第四十四套 一 (1)画一个列表框控件,通过其属性窗口将名称设为List1,向列表框中添加项目(List属性),添加的项目分别为“数学”、“语文”、“历史”、“地理”,每个项目为一行,宽(Width属性)设为1100,Style属性设为1。 一 (2)通过菜单编辑器建立一个主菜单,在菜单编辑器的标题处输入“文件”,名称处输入menu1,将“可见”单选按钮设为不选状态。 在“文件”菜单下有三个子菜单,在菜单编辑器的标题处分别输入“打开”、“关闭”、“保存”,名称处分别输入m1、m2、m3。 画一个命令按钮控件,通过其属性窗口将名称设为Command1,标题(Caption属性)设为“弹出菜单”。 单击“弹出菜单”按钮: PrivateSubCommand1_Click() Form1.PopupMenumenu1 '或PopupMenumenu1 EndSub 二 (1)在文本框输入字符,即运行PrivateSubText1_Change()事件过程,在该事件过程中 1)将语句 'ch=Right$(? ) 改为 ch=Right$(Text1,1) 2)将语句 'Label1.Caption=? 改为 Label1.Caption=Right$(Text1,1) 3)将语句 'Label2.Caption=? 改为 Label2.Caption=n 二 (2)在“开始”按钮的PrivateSubCommand1_Click()事件过程中 1)将语句 'Timer1.Enabled=? 改为 Timer1.Enabled=True 在计时器的PrivateSubTimer1_Timer()事件过程中 1)将语句 'Shape1.FillColor=? 改为 Shape1.FillColor=red_color 2)将语句 '? =Shape1.Left+50 改为 Shape1.Left=Shape1.Left+50 3)将语句 '? =Shape1.Top+50 改为 Shape1.Top=Shape1.Top+50 4)将语句 'Shape1.FillColor=? 改为 Shape1.FillColor=blue_color 三单击“修改内容”按钮: PrivateSubCommand2_Click() s="" str_len=Len(Text1) Fork=1Tostr_len ch=Mid$(Text1,k,1) Ifch="E"Orch="N"Orch="T"Then s=s&LCase(ch) ElseIfch="e"Orch="n"Orch="t"Then s=s&UCase(ch) Else s=s&ch EndIf Nextk Text1=s EndSub 在“打开文件”按钮的PrivateSubCommand1_Click()事件过程中 1)将语句 'CommonDialog1.FilterIndex=? 改为 CommonDialog1.FilterIndex=2 2)将语句 'Open? ForInputAs#1 改为 OpenCommonDialog1.FileNameForInputAs#1 3)将语句 'Text1.Text=? 改为 Text1.Text=s 在“打开文件”按钮的PrivateSubCommand3_Click()事件过程中 1)将语句 'CommonDialog1.Action=? 改为 CommonDialog1.Action=2 第四十三套 一 (1)画一个文本框控件,通过其属性窗口将名称设为Text1,多行文本(MultiLine属性)设为True,文本框滚动条(ScrollBars属性)设为1,文本内容(Text属性)设为空,高(Height属性)设为2000,宽(Width属性)设为1800,点击Font属性在弹出的字体对话框中将字体设为“斜体”。 激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“文本框”。 一 (2)画一个列表框控件,通过其属性窗口将名称设为List1,向列表框中添加项目(List属性),添加的项目分别为“数学”、“物理”、“化学”、“语文”,每个项目为一行。 启动窗体(即运行Load事件过程),在该Load事件过程中加入语句: PrivateSubForm_Load() List1.List(L
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 等级 考试 答案