《VisualBASIC程序设计》期末考试编程题复习及答案要点.docx

《《VisualBASIC程序设计》期末考试编程题复习及答案要点.docx》由会员分享，可在线阅读，更多相关《《VisualBASIC程序设计》期末考试编程题复习及答案要点.docx（35页珍藏版）》请在三一文库上搜索。

1、第2章1 .新建工程，在窗体上创建两个命令按钮Commandl、Command2, 一个标签 Labell,界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变"，文字颜色改为红色。“改变颜色”按钮代码：Labell.ForeColor = vbRedLabell.Caption ="颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体” “改变字体”按钮代码：Labell.FontName ="黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm

2、为文件名保存在D:EX文件夹下。2 .设计一个留言薄。新建一个工程，在窗体上创建 2个标签，2个文本框，1个命令按钮，属性设置如图 2-6所示，。要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。单击“清除”按钮则清除两个文本框中的内容。“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text =""Text2.Text ="". Fars I图2-6程序界面最后将工程文件、窗体文件分别以 lx2-4.vbp、lx2-4.frm为文件名保存在 D:EX文件夹下。3 .

3、设计一个程序，程序界面如图2-7所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB !”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结 束程序运行。“显示”按钮代码：Textl.Text ="欢迎使用 VB!"“清除”按钮代码：Textl.Text =""“退出”按钮代码： End图2-7程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:EX文件夹下。4 .设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图3-3所示。最后

4、将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在 D:EX文件夹下。回区- Fm I图3-3程序运行界面Private Sub Corm5dl Click 0Bit n%瞰.b羯岛ii - lal CTaxil. TextJa = n IDOb = (ji - a * 100) 10c = ii Mod 10Lale12. Captan ="百位数："也a a ",十位数& h &，个位数：“度 End Sub5 .设计一个程序，实现简单计算的功能，运行界面如图3-7所示。最后将工程文件、窗体文件分别以lx3-3.vb

5、p、lx3-3.frm为文件名保存在 D:EX文件夹下。图3-7程序运行界面Priuate Sub Command3_Cllck()呆”按钮的代码Labell.Caption =Text3.Text = Ual(Textl.Text) * Ual(Text2.Text) End SubPriuate Sub Command5_Click()clear”按钮的代而3Textl.Text =一Text2.Text =""Text3,Text = End Sub提示：clear按钮的代码：text1.text= 是双引号，空字符串的意思6 .设计一个程序（程序运行界面自定），使用

6、inputbox函数输入某品牌电脑的单价和购买的数量，计算并用msgbox函数输出需付款金额。最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm 为文件名保存在 D:EX文件夹下。Priuate Sub Form Click()Dim dj&r shl%fdj = SlUnputBo*(输入某品牌电脑的单价:)shl = Ual(InputBoxr输入某品牌电脑的购买的数量;“)je = dj * shlHsgBox ”需付款金额:"& jeEnd Sub|&为长整行 为整形7 . rnd函数产生一个0, 1）的单精度随机数。设计一个程序（程

7、序运行界面自定） 用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。最后将工程文件、窗体文件分别以lx3-5.vbp、lx3-5.frm为文件名保存在 D:EX文件夹下。63页Priuate Sub Form_Clicl<()Dim zh罂Randomizezh = Int(9O * Rnd) + 10MsgBox ”两位的随机整数是：“& zhEnd Sub第4章一、顺序结构8.例：输入数据输入时间（小时，分,秒），然后输出 总计多少秒.解：法一：使用文本框输入数据运行时界面如下: Example计就结束小时分：秒：“计算”按钮和“结束”按钮的 click事件代码

8、如下:Private Sub Comm and I Clkk()Dhn hh°c*t inin0».，。叫 oUh!Dim Outur $hhVal(Textl)mni«ValTeit2)ss*V»lfl«U)To(ils-hh*3600* inm*60* ssOulUr hh 出口小时 J nxn 4分"a ssOi»tstrOutstr A vbCrlJ' a"总计："0 Totals r杪Mskix Outstr* * “恰 11；结果”End SubIY i vate Sub Cdanan

9、d2 .Click。EndEnd Sub最后将工程文件和窗体文件分别以 ceshi3-3-1.vbp 和ceshi3-3-1.frm 文件名保 存，并保存在D:EX文件夹下。9.从输入框中输入圆的半径，计算圆的周长和面积(1)创建度用程序的用户界面和设置对象属性(2)编写程序代码Private S«b Commandl_Clkk()Dim r As Single, k As Singlef s As Single=请输入圆的半径"J廿算圆的周长和面积k = 2 *314159*r5 = X14159*t* r Textl.Text = k Text2.Teit = s如，廿

10、算已完成二，"计算圆的周长和面积” End SubPrivate Sub Commaiid2_Cbck()、EndEsdSab举文件名保存,最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm并保存在D:EX文件夹下。10.给定一个两位数（如36）,交换个位数和十位数的位置，把 处理后的数显示在窗体上编写的窗体单击事件过程代码如下士Prhate Swb EomJCJkkODim 工 As lateger, a As IntegerDim b As Integer, c As hteger x = 36俅十位教定个位教，生成新的兼a = iBtis /10)

11、b = s Mod 10c = b * 10 + aPriat h处理后的数二T,; cEd Sab运行程序后单击窗体，输出结果是,处理后的数163最后将工程文件和窗体文件分别以ceshi3-5.vbp 和ceshi3-5.frm 文件名保存,并保存在D:EX文件夹下。11.编制程序，在一个文本框中输入一用字符(长度大于2),单击“处理”按钮时，则取出该字符串的头、尾部各一个字符，合并后显示在第二个文本框中。如 输入“ABCDEG',则/U出“A G'。Private Sab Commandl_ClickODim x As String, y As StringTextl.Te

12、xt = xx - TextLTexty =1) + Ri&JUU, Ly = Textl.Texi End Sab最后将工程文件和窗体文件分别以ceshi3-6.vbp 和ceshi3-6.frm 文件名保存,并保存在D:EX文件夹下。二、选择结构12.请参考如图4-8所示程序的运行结果，新建一个工程，完成“健康称”程序的设计。具体要求如下：(1)窗体的标题为“健康称”，固定边框。(2)窗体的左边有两个标签，Label1的标题为“身高” 、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的

13、标题为"cm", Label4的标题为"kg"。(3)将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。(4)两个文本框均不接受非数字键。(5)单击“健康状况”按钮(Command9根据计算公式将相应的提示信息显示在标签 Label5 中。计算公式为：标准体重=身高-105 ;体重高于标准体重*1.1为偏胖，提示“偏胖，注意 节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正 常，继续保持”。Private Sut Ccmmaitdl_Click ()Din whenqa。As Integer, tizh?ng

14、As Integer fli m bi 工him青，shuchu$ shAiiCgu - Vsl (Teitll. Text) ti Ehong - Vai CText2. Text) bi a。工hun - shenggao - 1口5I£ ti rhongbi aorhun *1.1 Than Shuchu ="偏胖，注意节食"ElzIf ti rhong < biaozhim * 0. 9 Then shuchu ="偏瘦，憎加营养”Elseshuchu="正常，继续保持.End I£Lbel5, Cftptivn - w

15、huchuEni SubPrivate Sub Textl_Qlsngt ()If IsNumtric CTextl) = False Than Tsxtl End SubPrivate Sub Text2_Chanje ()If IsNum«ric CTeitS) = FsImw Then Text2 =" End Sub最后将工程文件、窗体文件分别以lx4-1.vbp、lx4-1.frm为文件名保存在 D:EX文件夹图4-8实验题目1运行界面13.编写模拟袖珍计算器的程序，运行界面如图4-9所示。要求如下：输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。输

16、入的数据进行合法检验，当输入出错时，调用 MsgBox()提示。Trim是去掉俩边空 格Opti on ExplicitPrivate Sub Ct)nifnsndl_ClickODim y!x = Vai (Text!)y = ValCTixtE)Seltet Case Trim (Text3)C&£* "+/Text4 = x + y LLa5e 一Text4 = x - yText4 = x * yCu« 7*If y = 0 TltaitIk或ok "除数不能为Ot wTtjct2. SetFocus TsxU =ElseTqk 七4 =

17、 X / yEnd IfEnd SelectEnd SubPrivate Sub Cqitriand2_Click() EndEnd Sub最后将工程文件、窗体文件分别以lx4-2.vbp、lx4-2.frm为文件名保存在D:EX文件夹下。图4-9实验题目2运行界面三、循环结构14 .输入任意一个整数 N,求1到N之间所有偶数和；（可参考课本p89页）利用文本框来实 现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:EX文件夹下。15 .输入任意一个整数 N,计算N阶乘；5! =5*4*3*2*1（可参考课本p90页）利用文本框来实现数据

18、的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在 D:EX文件夹下。16 .输入任意一个整数 N,输出1+1/2+1/3+ 1/N的计算结果；（可参考课本p93页） 利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在 D:EX文件夹下。17 .输入任意一个整数 N,输出N以内3的倍数之和（即3+6+9）；（可参考课本p93页） 利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在 D:EX文件夹下。18 .输入任意一个

19、整数 N,输出1 X 22X 32XX N2的计算结果；（可参考课本p90页）利用文 本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:EX文件夹下。19 .输入任意一个整数 N,输出N以内的所有5的倍数的积；（可参考课本p90页）利用文本 框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:EX文件夹下。20 .输入任意一个整数 N,输出l+l/22+l/32+l/42+.-.+l/n2的计算结果；（可参考课本p93页）利用文本框来实XH4-7.vbp、XH4-7.fr

20、m 为文件名现数据的输入和输出。最后将工程文件、窗体文件分别以 保存在D:EX文件夹下。p90页和课本 p93页）XH4-8.vbp、件 夹 下。21 .输入任意一个整数 N,输出1!+2!+n!的累加和；（可参考课本 利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以 XH4-8.frm 为 文 件 名 保 存 在 D:EX 文Private Sub Ccimmndl_Click () Dim i%f 璃谭，n%E = 0P - 1n =VaifTextl, Text)Fori=1Tonp =p*ie =s+pNextText2. Text = sEnd Sub22 .编程求出

21、50之内的全部素数；（可参考课本p98页）。最后将工程文件、窗体文件分别 以XH4-9.vbp、XH4-9.frm为文件名保存在 D:EX文件夹下。23 .编写程序打印如下九九乘法表（使用双重循环实现）。（可参考课本 p97页）最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在 D:EX文件夹下。1 X 1=1 2X1=2 2 X2=49X1=1 9 X2=189 x 9=8124 .编一程序，显示所有的水仙花数，如下图。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153=13+53+33。最后将工程文件、窗体文件分别以XH4-11.

22、vbp、XH4-11.frm 为文件名保存在 D:EX 文件夹下。Qpti cm Eplici tPrivate Sub CommndljClick0Dim i%,造 b备 c%For i = 100 To 999q = Int(i / 100)b = Tut (Ci - a * 100D / 10)c = i -a * 100 - b * 10工£i 二3 + b*3 1 ±*3 Then Print i, HextEnd, Sub25 .我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百元买百鸡，问

23、鸡翁、鸡母、鸡雏各几何？意思是：用100元钱买100只鸡，公鸡5元一只，母鸡3元一只，小鸡1元3只；100 只鸡中必须包括鸡翁、 鸡母和鸡雏。自行设计界面并在图形框中输出百鸡百元的几种解。最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在 D:EX文件夹下。提示：按题意列出方程组，并己知鸡翁不能超过19只，鸡母不能超过 32只。解1 撼:母鸡isii小鸡TS8134求解自鸡百元同题全解退出Dp t i on Expli ci tPrivity Sub Cmmuidl Click。Dim谒戏.n髯Ficturel.Frint Tib®):"

24、公鸡"；"b&3)母鸡"；T m CW); “小鸡"For i = 1 To 19F«r j = 1 To 32k = IOC - i - jIfi*5 + j*3 + k/ 3 = 100 Thenn - n + 1Ficturel.PriM Tab(l);"解"& n a "：> Tab图)： i; Tal>(13); j; Tab(19); k End I£N«xt jNext iEnd SubPr i vat e Sut C omm ind2_Cl i ck

25、0EndEnd &汕 第5章26 .编写程序，将随机产生的两位数的一维数组A(10 )中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别以lx6-2.vbp、lx6-2.frm为文件名保存在D:EX文件夹下。I原数期为:25皿数姐为：711>- -1»7 81 s8段6 48 94 99 69 46 24 32 33 43 44 94 39 53 2temp%?rivate Sul Form_Cli ck0 Dim a(i As Integer, Random】工白Far i = 1 To 10£i) = IntUOO

26、* BndIf i 1 Then Print w原数组对：”;Ft41d a(i); “ Hal iPrint ttmp - iQQ) For i 二 9 Toi Step -1 a(i + 1) = a Ci)Haxt i &(1) = temp For i = 1 T。 10If i = 1 Then Print "现数组为二”;Print a(i)： " *： iEnd Sub27 .输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用 Print直接在窗体上输出结果。最后将工程文件、窗

27、体文件分别以 SZ5-1.vbp、SZ5-1.frm 为文件名保存在 D:EX文件夹下。Fr i vat t Sub Form_ClLck()Di巾 d&) As Int6g«rDim i Ae Integer, total As Single, average As SingleFor i = I To 5'输入成绩dCi)二SlditputEwC话输入第"& i版"个学生的成技”输入成费”)Next itotal - 口For i二1 To 5'计篁总分total 二 total + d Ci)Next i&var&am

28、p;g：» = tot«l / 5Print "总分："；totalPrint ”平均分： FormatEnd Sub28 .输入10名学生的成绩，求出最高分和最低分Foh1neiixLabell:查找 I：:：:：:：:!：功能要求：通过 Array函数输入10个分数；单击 查找“按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签 Label1上。最后将工程文件、窗体文件分别以SZ5-2.vbp、SZ5-2.frm为文件名保存在 D:EX文件夹下。Option E&se 1Di面 A三 Vari皿tFrivatfi Sub F

29、”m_Lo虱0Lab.ll Cation = "单击“查找”按钮开始查找最高分和最低分. sere = Array(99f 96, Bl, T9, 90, 63, 85, 95. 93)End £nbPrivate 5ub coniniaiidl_click0Dim max As Integr/ min Ae Integer= score (1)，设定初值min = score Cl )For i = 2 To 10If e«c < score (ij Then'找最身分max = scwrt (i )End IfI£ min > s

30、ccre (i) Then'找最低分min - score (i )End IfNaxt iJChr (13)起换行作用Labell. Cvption ="最局分：" + Str Gnax+ _Chr 03) + “最他分："+ Str (pin)End Sub29 .建立一个文本本g控件数组 Textl和一个文本框 Text2,在控件数组 Textl中输入一组数 后，把累加值存放在 Text2。最后将工程文件、 窗体文件分别以 SZ5-4.vbp、SZ5-4.frm为文 件名保存在D:EX文件夹下。Private Sub CQinmandl _C1 i

31、ck C) e = 0 For i 二 D To 3s - s + Vsl CTeKtl (i ). Text) Hext i Tex t2. Tsjct 二 sEnd Sub30 .按下图设计窗体，其中一组(共3个)单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小。最后将工程文件、窗体文件分别以 SZ5-5.vbp、SZ5-5.frm为文件名保存在D:EX文件夹下。控件数组Private Sub Form Load。Option1 (). Value = True，选定第一个单选按钮Textl. FontSi re = 12'设定文本框中的字号End Sub

32、Private Sub Optianl ClicktTnidex As Integer) Select Cas«工nd羲，系统自动返回工mkMtCas« 0Ttxtl. FontSi zt - 12Cas 1T«ztl. FontSi ie = 20 匚awe2TutL FontSi ze - 2BEnd StlactEnd Sub第7章31 .在窗体上放置三个复选框，标题依次为“旅游”、“体育”、“音乐”，另有一个命令按钮，标题为“兴趣”。程序运行后，选中复选框，再点击命令按钮，则在窗体上显示相应的 的信息。运行界面如图10-12所示。最后将窗体文件、工程文件分

33、别以LX10-1.frm、LX10-1.vbp为文件名保存在 D:EX文件夹下。LX10-3.frm、LX10-3.vbp为文件名保存在D:EX文件夹下。图10-12复选框运行界面Option EitplicitDim afPrivate Sut andl_Click0If Clieckl Value = 1 Then 。白质唯游.End IfIf Checks Value 二 1 Then = 废"体育"End IfIf Check!, V4lue = 1 Then a = a 4 "音乐*End IfPrint “我的兴趣是.他aEnd. Sul32 .设置如

34、图10-13所示界面所示的程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。最后将窗体文件、工程文件分别以LX10-2.frm、LX102vbp为文件名保存在D:EX文件夹下。我的兴趣爱好是美术图10-13组合框运行界面U utiim 也必工©1七Private Sub Combol Click0Neok "我的兴趣爱好是"度。wboLText, , *兴趣爱好时 End SubPrivate Sub Form Load ()Comlol . Addltem 音乐”Cqnbol - Ad4I tn 一'美术"Comlol. Ad

35、-UtCambnl. Aldltem "旅游"C«bol.Ad£It« "上网"End Sub33 .在窗体上画一个名称为HS1的水平滚动条(min=0,max=100 )和三个名称分别为C1,C2,C3,标题分别为“左端”，“居中”，“右端”的命令按钮。编程是的程序运行后，单击C1,则滚动框位于滚动条的最左端；单击 C2,则滚动框位于滚动条的中间处；单击 C3,则 滚动框位于滚动条的最右端，运行界面如图10-14所示。最后将窗体文件、工程文件分别以 Fo ral图10-14滚动条运行界面Frivat Sub CljClic

36、k0HS1. Value = 0 EndFrivat Sub C2_Click0HS1. Value = 50End 53Frivat Sub C3_CLick0 HS1. Value = 100End Suh34 .列表框举例。窗体上添加二个列表框、二个命令按钮，设置完属性后的界面如图10-16所示。要求：35 )选中列表框中的某一条目，单击命令按钮，将其移动到另一列表框中。(2)双击列表框中的某一条目，直接将其移动到另一列表框中。完成运行界面所达到的要求，最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:EX文件夹下。图10-16题目6的设计界面(其

37、中右图为题目6的运行结果)Private Sul) Comtnyidl _C11 clc 0按钮的单击事件ListZ. Addltsn Listl. 7«ct Listl- R«nov«Item Li stl. Li stlndjexEnd 511bPrivate Sub Listl_BblClick C)List2. Addlttn Liitl. TaztList!. R«noveltem Li stl. Listlnd«jcEnd SubPrivate Sub Form_Lo 氧口Listl. Addlt&m "张三“Li

38、stl.kddlten "李四" Listl. Addlt«m "主五" Listl.AdJItern ”赵六” Li Etl. Addlt«m "孙七" Listl.Additem "江河" Listl. Addlltm 勾毛九“ End SubPrivate Sub CoHi(nand2_Cl i ck 0Listl. Addltem Li st2. TextLKtZ Remog工±em Li . ListindexEnd. Sub按钮的单击事件Frivate Sub Li st2

39、_BMClick 0Listl. Aldltem Li st2. TextList2, R&iftoveltefft Lis 12,Li stinderEnd Sub35.textl中，最后将窗体文件、工程文件分别以SL10-10.frm、SL10-10.vbp为文件名保存在D:EX文件夹下。异猛停止.筏报电子秒表例：模拟电子秒表单J产开始”按钮.计时开始单击“停止， 按钮,终止计时时间显示在文本框Option ExplicitDim ss常，hh网Private Sub Commandl_Click0 Timer 1. Enabled : TrueEnd SubPrivate Sub

40、 Coiwniid2_Click0 Iimer 1. Enabled = FalseEnd SubFrivite Suh Form_Lo&dOTimer 1. Enabled = FalseTewtl. Test = Form*七州，"00") + "：" + Format (mnij "00") + *： * + Fermat tss7 "g") End SubPrivate Sub T】merl_Timer (£5 = ss + 1If ss X 60 Then面m mm + 1ss 0If

41、mm X 60 Tlvefthh = hh + 1nwn = 0End IfEnd IfTaxtl. T«xt = Format Chh, "口口")"附："+ Forfint Gruij "Q。")+ "：" + Format Ce£> "口口") End Sub36.O最后将窗体文件、工程文件分别以 夹下。存左手碇虢三伸!Jnl xl嘉应学院欢迎功Frivat'fi Sul Timerl_Tirner 0I£ Labell FantSize <

42、; 50 ThenLabsll FontSixe = Lbell.FontSiie *1.2Els«Labtll. F ontSize = 10End IfEnd Sub参考答案Private Sub Command1_Click() Labell.ForeColor = vbRed Labell.Caption ="颜色已经改变 End SubPrivate Sub Command2_Click()Labell.FontName ="黑体"End Sub4Private Sub Command1_Click()Dim n%, a%, b%, c%n =

43、 Val(Text1.Text)a = n 100b = (n - a * 100) 10c = n Mod 10Label1.Caption = " 百位数 :" & a & ", 十位数 :" & b & ", 个位数 " & c End Sub5Private Sub Command1_Click()Label1.Caption = "+"Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub C

44、ommand2_Click()Label1.Caption = "-"Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Label1.Caption = "*"Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Label1.Caption = "/"Text3.Text = Val(Text1.Text) / Va

45、l(Text2.Text)End SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command6_Click()EndEnd SubPrivate Sub Form_Load()Dim dj&, shL%, je&dj = Val(InputBox(" 输入某品牌电脑的单价 ;")shL = Val(InputBox(" 输入某品牌电脑的的购买的数

46、量 ;")je = dj * shLMsgBox " 需付款金额;" & jeEnd Sub7Private Sub Form_Click()Dim zh%Randomizezh = Int(90 * Rnd) + 10MsgBox " 两位的随机整数是:" & zhEnd Sub8Private Sub Command1_Click()Dim hh%, mm%, ss%, totals!Dim outstr$hh = Val(Text1)mm = Val(Text2)ss = Val(Text3)totals = hh * 3

47、600 + mm * 60 + ssoutstr = hh & " 小时 " & mm & " 分 " & ss & " 秒"outstr = outstr & vbCrLf & " 总计 :" & totals & " 秒"MsgBox outstr, , " 输出结果 "End SubPrivate Sub Command2_Click()EndEnd Sub9Private Sub Command1

48、_Click()Dim r!, k!, s!r = Val(InputBox(" 请输入圆的半径", "计算圆的周长和面积")k = 2 * 3.14159 * rs = 3.14159 * r * rText1.Text = kText2.Text = smsgbox "计算已完成！ ", , "计算圆的周长和面积"End SubPrivate Sub Command2_Click()endEnd Sub10Dim x%, a%Dim b%, c% x = 36 a = Int(x / 10) b = x Mod 10 c = b * 10 + aPrint "处理后的数： " cEnd Sub11Private Sub Command1_Click()Dim x As String, y As Stringx = Text1.Texty = Left(x, 1) + Right(x, 1)Text2.Text = y12Private Sub Command1_Click()D