09年6月正式会考vb操作题答案

1、完善程序题(1).打开“ VB429 ”文件夹中的文件:“”进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码实现，求1X 2+2 X 3+3 X 4+4 X 5+5 X 6 的值。-FoizkI (Cod0)-,|n X答案：Wf|C«auLdlF ClickPrivate Sub Comm andl _Cli ck QDim I Ae InlegerDim S As £ cbl e'删除埴入IE确的代码 s = <i>删隊<2>,萌入正确的代码For I = L Tfl <2> Sttp 1£ = s +

2、I * a + 1)Heit IPrint 1X £4£X3+34M X54EX ； SInd Subfl I clickFrivi&te Sub Conim andl_CIi cl 0Dim 1 As Initegeir Dim S Ae Double'腳陰“y.垣入正确的代码S = 0，删陳炬儿埴AJE确的代玛76V I = 1 To 5 St4p 1 S = S + I * (X + L) 旺就IFrint X £+£ X3f3 X 4+4 X 5+5 X : SEnd Sub)V运行结果:fx ZfZ K3f3 X4+4 X 5+

3、5X6= 70区求和答案:(2)打开“VB435”文件夹中的文件:“”进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码实现，求1871098的值。“sdl1 - ForB.1 (Code)Ln'x,答案:kadir:(CoAe)L l|n,|xPrivate Sub Comm andl _C1 i ck ()Dim I As IntegierDim S Xe 1 OKibl e'删除£1»埴入正确的代码5=1.-删除<2九埴入IE确的代码For I = L0 Io 6 Stej -1S = S - CI - 1) 7 IHeit IPrin

4、t *1-5/10-0/9-7/0-/7-576 = SInd SubPrivte Sub CommandlClick 0 Dim I As IjitegerCini £ As Double删除<1，埴入正确曲代码S = <1>删除煖>，堵入正确的代码Fot I = 10<2> S<ep -1s = s -(X - i j y I mt IPrint *1-9/10-0/9-7/e-6/T-5/e ="： S End. Eiah& "二口1-3/10-8/9-T/S-6/T-57& =-3.354365DT

5、9365O0运行结果:执行(3)打开“VB426”文件夹中的文件:“”进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码实现，求1 X 2X 3X 4Xr J 口 IIX11答案IeI - For>l (Code)k Jn AlTL超1T1 J Cli ckT1X 10的值。曲!£；：% ：3 |Cli比IEndTri vate Sub Comm and J _Cli ck 0Dim 工 As IzfleerDim 3 Az Eouble咄際灯A埴入正确前犹码S = <1>For r = 1 仏 10 Step 1'删除<2I垢入正确的代码

6、S = <£>ffHft IPrint "IKEXJKQXX10="End SutPrivate Sub CQmmandl_CLi ct()Dim I As IntegerDim S As Double腳除ux垣入正确前代码S = 1For I = 1 To 10 Step 1'删陳<2，埴入正确的代码 S = S * Iir«tt Irnnt "1X2X3X4X":SEnd Sul运行结果: ForalIZEll 区I1X2X3X4XXin- 3620300Jil IIH4III HiM III卜i输岀iL

7、 !(4)打开“VB417”文件夹中的文件:“”进行以下操作后并保存!在 VB 代码窗口指定位置修改完善程序代码实现，111111 1 11 -2345678910的值。3匚 lick二旦凶匚二答案：jjB-Lnl.x,习 |ClLckfrivate Sut> CcminailJ _CIi ckODim I As IntegerDiin E As Double哪1除2 埴入正确的代码3 = <1>For I = 1 To ID Step 1'删隐埴入正福的代码£ = <2> _|Heit IPrint lH/E+l/34-l/44-iy5+-+l

8、/10= SInd Sut>二II2JFrivata Sub Co<niii«nil_Cli ck ()匚Dim I As Integer一Dim £ As删隐埴入正确的代码S = 0Fcr I = 1 To 10 Step 1'舰除0 A坦入正i的代码S = S + 1 / I_肛炷IFrint "1 +1 /2+1/3+ l/4f 175+-+L/ 1C=*'： 5End Sub I出 jJJ运行结果:(5)打开“VB432”文件夹中的文件:“”进行以下操作后并保存!在 VB 代码窗口指定位置修改完善程序代码实现，求67891023

9、45234567891110的值。F眉FLxkL CCodo)CoBBuilciickPrivate Sub C onun an JI _C1 i ck QDim I As IntegerEim S A.S Double '删除埴入正确的代码 S = L '删除2儿埴入正确的比码 For I = 1 To 空Step 1 £ = £ 4- CI + 1) / IUext IPrint "243/2-k4/34E/4+e/54-k 11/10 ="； S _u41Pi-Lira-te Sub CcfcDim I As IntegerDi m

10、 S As Doutle'删除1 埴入正确的代码S = 0'删除2，埴入正确的代码For I = 1 To 10 Sttp 1S = £ 4- Cf + n / I 恥t IPrint -2+3/£447:345/446/5+11/10 才：E _End Sut运行结果:n回凶2+372+473+6/5+11 /1C 二 12. 92S9632539633隶和界面设计题:新建一个VB工程，工程文件名称为： 工程”并添加一个窗体文件: 文件夹下的425文件夹下。 按下表的要求添加控件，并设置其属性,保存在操作后保存！下的VB对象护对象名卩S性名屮属性fl卩La

11、bel*LabelltCaption*'物品护Label*Labels*Caption*'数S屮TexlSoHTeKtl4TeKt4计算机#TMte18C ojiunandEut t miQCommandlCnpti 皿J輸人7新建一个VB工程，工程文件名称为：工程”并添加一个窗体文件:文件夹下的431文件夹下。 进行如下操作后并保存！按下表的要求添加控件，并设置其属性，操作后保存！保存在下的VB对象对象名宀e性值卩Label*LabelCaplion*Label2*Caption*成绩石Tex-tBo3c*Teh"信息技术4TeK13-t妙C DmiRandBut

12、t andConuTLacndl*Cap-tiori*J“”保存在 操作后保存！下的VB对象于对象名卩S性名屮属性值卩Label*Labe 11*Caption*'Label*Labels*Captig 屮单价屮TexlBoitT窗tZT 巳 xtP國»屮Twit吕ox卩Text24Tm好3976*'C ojiunandEut t gQCommandl*CnpticE輸人a新建一个VB工程，工程文件名称为： 工程”并添加一个窗体文件: 文件夹下的416文件夹下。 按下表的要求添加控件，并设置其属性,下的VB对象护对康名*属性名P属性fi 口Label*Cap-tioi

13、i*ea>Label*Labels*Cap tion*房号fT懿七IQ咲筈好信息胡中7exl0ox<Tex 12*Test*GO时C DJiunandBut t ondCojitmandlaCap-tion*輸入心新建一个VB工程，工程文件名称为： 工程”并添加一个窗体文件: 文件夹下的434文件夹下。 按下表的要求添加控件，并设置其属性,“”保存在 操作后保存！下的VB对象对象名厲性名属性值L ab e 1LabellC ap t i on姓名LabelLabel2Caption出生年份TeitBoxText 1Text张信TextBaxText2Text1992Coiranaa

14、dButtsnConwandlCaption输入新建一个VB工程，工程文件名称为："工程"，并添加一个窗体文件：""，保存在 文件夹下的428文件夹下。进行如下操作后并保存！按下表的要求添加控件，并设置其属性，操作后保存！编程题（1）打开Z:"VB427"文件夹中的文件：""进行以下操作后并保存! 在窗体""的"Command1_Click"事件中编写代码，使 之能够实现如下功能：在Text1输入整数a、Text2输入整数b，判断a和b的差是否等于5,若相等， 则在Text3

15、文本框中输出”相等”，否则在Text3文本 框中输出：”不等”。测试数据 在Text1文本框中输入 则Text3文本框中输出： 在Text1文本框中输入 则Text3文本框中输出：CG,. |. XCdbb uid.!亍 IClick12, Text2文本框中输入 4， 不等。13，Text2文本框中输入 8， 相等。（2）打开Z:"VB433"文件夹中的文件：在窗体""的"Command1_Click"事件中编写代码，使之 能够实现如下功能：在Text1输入整数a、Text2输入整数b，判断a和b的差是否比50小，若比50小， 则在

16、Text3文本框中输出”小于”，否则在Text3文本框 中输出："大于或等于”。测试数据在Text1文本框中输入 则Text3文本框中输出： 在Text1文本框中输入Tri va-te Sut C ommajiJl_C1 > ct QDim a As Integer, b kz Integer 4 = 7«U.Tfixt1)= Tejet2. TextIf - b = 5 ThenTfixtS. Text - 目等"TeactS, Text = 不等"End If""进行以下操作后并保存!CokB udlHl II IClick

17、12, Text2文本框中输入 40， 小于。61，Text2文本框中输入 3，则Text3文本框中输出：大于或等于。（3）打开Z:"VB424"文件夹中的文件： 在窗体""的"Command1_Click"事件中编写代码，使之能 够实现如下功能： 在Text1输入整数a、Text2输入整数 b,判断a和b的和能否被3整除，若能，则在Text3文 本框中输出"能”，否则在Text3文本框中输出：”不能”。 测试数据在Text1文本框中输入 12，Text2文本框中输入 5，则 Text3文本框中输出：不能。在Text1文本框

18、中输入 21，Text2文本框中输入 3，则 Text3文本框中输出：能。（4）打开 Z:"VB436"文件夹中的文件：""进行以下操作后并保存！在窗体""的"Command1 Click"事件中编写Frigate Sul c ommindl JCli ck 0 Dim u fts Integer* b Aw Integer a = T extl . Tei t b 二 T TeietIf i - b < 50r* t3. TextElseTz t3. TextEnd IfEitd Sut"&quo

19、t;进行以下操作后并保存!ICosBudlThan=”犬于或等于ICskB uidlH刁 I Cli ck0®Trivite Sul Corwnar.dl_ClickOJim Q Asb Asa = TeKtl.TeKt = T ext2. TeictIf Ca + b) Mod. 3 = C Then Tet3. Text = *龍*ElseTe:<t3'. Text = *不能* 讨IfEnd SubFo(Code)，-iln.lxFri vate Siib Comm auHl _nTi cTe QBim a ks Integer, b Ae Integera = Teictl. Tejilb 二 TeKt2. TejilIf44b>5Ani+5>lJukdb + 5>a TienT5Kt3 TftJtt = *能"£Is4Texts Tiltt 二"不能" End If End. Sub乎JjjV代码，使之能够实现如下功能：入边长a和b,判断三条边能否构成一个