《09年6月正式会考vb操作题答案.docx》由会员分享，可在线阅读，更多相关《09年6月正式会考vb操作题答案.docx（12页珍藏版）》请在三一文库上搜索。
1、完善程序题(1).打开“ VB429 ”文件夹中的文件:“”进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码实现，求1X 2+2 X 3+3 X 4+4 X 5+5 X 6 的值。-FoizkI (Cod0)-,|n X答案：Wf|CauLdlF ClickPrivate Sub Comm andl _Cli ck QDim I Ae InlegerDim S As cbl e删除埴入IE确的代码 s = 删隊,萌入正确的代码For I = L Tfl Sttp 1 = s + I * a + 1)Heit IPrint 1X 4X3+34M X54EX ； SInd Subfl
2、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+5X6= 70区求和答案:(2)打开“VB435”文件夹中的文件:“”进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码实现，求1871098的值。“sdl1
3、- ForB.1 (Code)Lnx,答案: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 IPrint *1-5/10-0/9-7/0-/7-576 = SInd SubPrivte Sub CommandlClick 0 Dim I As IjitegerCini As Double删除1，埴入正确曲代码S = 删除煖
4、，堵入正确的代码Fot I = 10 Sl (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 = For r = 1 仏 10 Step 1删除2I垢入正确的代码 S = ffHft IPrint IKEXJKQXX10=;End SutPrivate Sub CQmmandl_CLi ct()Dim I As IntegerDim S As Double腳除ux垣入正确前代码S =
5、 1For I = 1 To 10 Step 1删陳 CcminailJ _CIi ckODim I As IntegerDiin E As Double哪1除2 埴入正确的代码3 = For I = 1 To ID Step 1删隐埴入正福的代码 = _|Heit IPrint lH/E+l/34-l/44-iy5+-+l/10= SInd Sut二II2JFrivata Sub CoLabel*Labels*Cap tion*房号fT懿七IQ咲筈好信息胡中7exl0ox ct QDim a As Integer, b kz Integer 4 = 7U.Tfixt1)= Tejet2. T
6、extIf - b = 5 ThenTfixtS. Text - 目等TeactS, Text = 不等End If进行以下操作后并保存!CokB udlHl II IClick12, Text2文本框中输入 40， 小于。61，Text2文本框中输入 3，则Text3文本框中输出：大于或等于。（3）打开Z:VB424文件夹中的文件： 在窗体的Command1_Click事件中编写代码，使之能 够实现如下功能： 在Text1输入整数a、Text2输入整数 b,判断a和b的和能否被3整除，若能，则在Text3文 本框中输出能”，否则在Text3文本框中输出：”不能”。 测试数据在Text1文本框
7、中输入 12，Text2文本框中输入 5，则 Text3文本框中输出：不能。在Text1文本框中输入 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进行以下操作后并保存!ICosB
8、udlThan=”犬于或等于ICskB uidlH刁 I Cli ck0Trivite Sul Corwnar.dl_ClickOJim Q Asb Asa = TeKtl.TeKt = T ext2. TeictIf Ca + b) Mod. 3 = C Then Tet3. Text = *龍*ElseTe:5Ani+5lJukdb + 5a TienT5Kt3 TftJtt = *能Is4Texts Tiltt 二不能 End If End. Sub乎JjjV代码，使之能够实现如下功能：入边长a和b,判断三条边能否构成一个三角形，如果是， 则在Text3文本框中输出”不能。在Textl文
9、本框中输入 3，Text2文本框中输入 4,则 在Textl文本框中输入 2，Text2文本框中输入 1，则已知三角形一条边 C的长度为5,在Textl、Text2分别输则在 Text3文本框中输出能”，否Text3文本框中输出：能。Text3文本框中输出：不能。（5）打开Z:VB430文件夹中的文件：进行以下操作后并保存! 在窗体的Command1_Click事件中编写代码，使之 能够实现如下功能：在Text1输入整数a、Text2输入整数b，如果b不等零，则在Text3文本框中输出a除 以b的值，否则在text3文本框中输出”除数为零”。测试数据在Text1文本框中输入Text3文本框中输出：在Text1文本框中输入12, Text2文本框中输入 4，则C（ UL无P ）1 IClick3。12，Text2文本框中输入 0，则 Text3文本框中输出：除数为零。ZIFria+e ut f orrimazidl jCli cL 0 Dim a As Integer, b As IntegET a = TeKtl.Tei-l b =If b = 0 ThenT!St3.Tsxt =除数対審 *ElatTwitd Twjtt = a / tEnd IfEnd Eub