1、图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:第3章4. 设计一个程序,在文本框中输入一个3位整数,单击按钮后,在标签上输出该数的百位数、十位数和个位数,运行界面如图3-3所示。最后将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在D:图3-3 程序运行界面5.设计一个程序,实现简单计算的功能,运行界面如图3-7所示。最后将工程文件、窗体文件分别以lx3-3.vbp、lx3-3.frm为文件名保存在D:图3-7 程序运行界面提示:clear按钮的代码: text1.text= 是双引号,空字符串的意思6.
2、设计一个程序(程序运行界面自定),使用inputbox函数输入某品牌电脑的单价和购买的数量,计算并用msgbox函数输出需付款金额。最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm为文件名保存在D:&为长整行 %为整形7.rnd函数产生一个0,1)的单精度(!)随机数。设计一个程序(程序运行界面自定),用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。最后将工程文件、窗体文件分别以lx3-5.vbp、lx3-5.frm为文件名保存在D:63页第4章一、顺序结构8.运行时界面如下:“计算”按钮和“结束”按钮的click事件代码如下:最后将工程文件和窗体文件分别以
3、ceshi3-3-1.vbp和ceshi3-3-1.frm文件名保存,并保存在D:9.最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm文件名保存,并保存在D:10.最后将工程文件和窗体文件分别以ceshi3-5.vbp和ceshi3-5.frm文件名保存,并保存在D:11.编制程序,在一个文本框中输入一串字符(长度大于2),单击“处理”按钮时,则取出该字符串的头、尾部各一个字符,合并后显示在第二个文本框中。如输入“ABCDEFG”,则输出“AG”。最后将工程文件和窗体文件分别以ceshi3-6.vbp和ceshi3-6.frm文件名保存,并保存在D:二、选择结构
4、12请参考如图4-8所示程序的运行结果,新建一个工程,完成“健康称”程序的设计。具体要求如下:(1)窗体的标题为“健康称”,固定边框。(2)窗体的左边有两个标签,Label1的标题为“身高”、Label2的标题为“体重”;它们的旁边分别有两个文本框,Text1用于输入身高、Text2用于输入体重;在文本框的右边有两个标签,Label3的标题为“cm”,Label4的标题为“kg”。(3)将两个文本框文字对齐方式均设置为右对齐,最多接受3个字符。(4)两个文本框均不接受非数字键。(5)单击“健康状况”按钮(Command1),根据计算公式将相应的提示信息显示在标签Label5中。计算公式为:标准
5、体重=身高-105;体重高于标准体重*1.1为偏胖,提示“偏胖,注意节食”;体重低于标准体重*0.9为偏瘦,提示“偏瘦,增加营养”;其他为正常,提示“正常,继续保持”。最后将工程文件、窗体文件分别以lx4-1.vbp、lx4-1.frm为文件名保存在D:图4-8 实验题目1运行界面13.编写模拟袖珍计算器的程序,运行界面如图4-9所示。要求如下:输入两个操作数和一个四则运算操作符,根据操作符决定所做的运算。输入的数据进行合法检验,当输入出错时,调用MsgBox()提示。Trim是去掉俩边空格最后将工程文件、窗体文件分别以lx4-2.vbp、lx4-2.frm为文件名保存在D:图4-9 实验题目
6、2运行界面三、循环结构14.输入任意一个整数N,求1到N之间所有偶数和;(可参考课本p89页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:15.输入任意一个整数N,计算N阶乘;5!=5*4*3*2*1(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:16.输入任意一个整数N,输出1+1/2+1/3+1/N的计算结果;(可参考课本p93页)最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:17.
7、输入任意一个整数N,输出N以内3的倍数之和(即3+6+9);(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:18.输入任意一个整数N,输出12232N2的计算结果;(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:19.输入任意一个整数N,输出N以内的所有5的倍数的积;最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:20.输入任意一个整数N,输出的计算结果;最后将工程文件、
8、窗体文件分别以XH4-7.vbp、XH4-7.frm为文件名保存在D:21.输入任意一个整数N,输出1!+2!+n!的累加和;(可参考课本p90页和课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-8.vbp、XH4-8.frm为文件名保存在D:22.编程求出50之内的全部素数;(可参考课本p98页)。最后将工程文件、窗体文件分别以XH4-9.vbp、XH4-9.frm为文件名保存在D:23.编写程序打印如下九九乘法表(使用双重循环实现)。(可参考课本p97页)最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在D:11=1
9、 21=2 22=4 91=1 92=18 99=8124.编一程序,显示所有的水仙花数,如下图。所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。例如,153=13+53+33。最后将工程文件、窗体文件分别以XH4-11.vbp、XH4-11.frm为文件名保存在D:25.我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题:鸡翁一,值钱五;鸡母一,值钱三;鸡雏三,值钱一。百元买百鸡,问鸡翁、鸡母、鸡雏各几何?意思是:用100元钱买100只鸡,公鸡5元一只,母鸡3元一只,小鸡1元3只;100只鸡中必须包括鸡翁、鸡母和鸡雏。自行设计界面并在图形框中输出百鸡百元的几
10、种解。最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在D:按题意列出方程组,并己知鸡翁不能超过19只,鸡母不能超过32只。第5章26.编写程序,将随机产生的两位数的一维数组A(10 )中的元素向后移动一个位置,最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别以lx6-2.vbp、lx6-2.frm为文件名保存在D:27.输入某小组5个同学的成绩,计算总分和平均分(取小数后一位)。本例利用InputBox函数来输入成绩,输入完毕后经过计算,再采用Print直接在窗体上输出结果。最后将工程文件、窗体文件分别以SZ5-1.vbp、SZ5-1.fr
11、m为文件名保存在D:28.输入10名学生的成绩,求出最高分和最低分功能要求:通过Array函数输入10个分数;单击“查找”按钮(Command2)后,开始查找最高分和最低分,找到后显示在标签Label1上。最后将工程文件、窗体文件分别以SZ5-2.vbp、SZ5-2.frm为文件名保存在D:29. 建立一个文本框控件数组Text1和一个文本框Text2,在控件数组Text1中输入一组数后,把累加值存放在Text2。最后将工程文件、窗体文件分别以SZ5-4.vbp、SZ5-4.frm为文件名保存在D:30. 按下图设计窗体,其中一组(共3个)单选按钮构成控件数组,要求当单击某个单选按钮时,能够改
12、变文本框中文字的大小。最后将工程文件、窗体文件分别以SZ5-5.vbp、SZ5-5.frm为文件名保存在D:第7章31.在窗体上放置三个复选框,标题依次为“旅游”、“体育”、“音乐”,另有一个命令按钮,标题为“兴趣”。程序运行后,选中复选框,再点击命令按钮,则在窗体上显示相应的的信息。运行界面如图10-12所示。最后将窗体文件、工程文件分别以LX10-1.frm、LX10-1.vbp为文件名保存在D:图10-12复选框运行界面32.设置如图10-13所示界面所示的程序,要求程序运行时选中组合框中的某一项,将弹出如下对话框加以说明。最后将窗体文件、工程文件分别以LX10-2.frm、LX10-2
13、.vbp为文件名保存在D:图10-13组合框运行界面33.在窗体上画一个名称为HS1的水平滚动条(min=0,max=100)和三个名称分别为C1,C2,C3,标题分别为“左端”,“居中”,“右端”的命令按钮。编程是的程序运行后,单击C1,则滚动框位于滚动条的最左端;单击C2,则滚动框位于滚动条的中间处;单击C3,则滚动框位于滚动条的最右端,运行界面如图10-14所示。最后将窗体文件、工程文件分别以LX10-3.frm、LX10-3.vbp为文件名保存在D:图10-14滚动条运行界面34.列表框举例。窗体上添加二个列表框、二个命令按钮,设置完属性后的界面如图10-16 所示。要求:(1)选中列
14、表框中的某一条目,单击命令按钮,将其移动到另一列表框中。 (2)双击列表框中的某一条目,直接将其移动到另一列表框中。完成运行界面所达到的要求,最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:图10-16 题目6的设计界面(其中右图为题目6的运行结果)35.text1中, 最后将窗体文件、工程文件分别以SL10-10.frm、SL10-10.vbp为文件名保存在D:36.。最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D: 参考答案1Private Sub Command1_Click()Label1.ForeCo
15、lor = vbRedEnd SubPrivate Sub Command2_Click()4Dim n%, a%, b%, c%n = Val(Text1.Text)a = n 100b = (n - a * 100) 10c = n Mod 10百位数: & a & ,十位数: b &,个位数 c5+Text3.Text = Val(Text1.Text) + Val(Text2.Text)-Text3.Text = Val(Text1.Text) - Val(Text2.Text)Private Sub Command3_Click()*Text3.Text = Val(Text1.Te
16、xt) * Val(Text2.Text)Private Sub Command4_Click()/Text3.Text = Val(Text1.Text) / Val(Text2.Text)Private Sub Command5_Click()Text3.Text = Private Sub Command6_Click()6Private Sub Form_Load()Dim dj&, shL%, je&dj = Val(InputBox(输入某品牌电脑的单价;)shL = Val(InputBox(输入某品牌电脑的的购买的数量;je = dj * shLMsgBox 需付款金额; je
17、7Private Sub Form_Click()Dim zh%Randomizezh = Int(90 * Rnd) + 10两位的随机整数是: zh8Dim hh%, mm%, ss%, totals!Dim outstr$hh = Val(Text1)mm = Val(Text2)ss = Val(Text3)totals = hh * 3600 + mm * 60 + ssoutstr = hh &小时 mm &分 ss &秒outstr = outstr & vbCrLf &总计: totals &MsgBox outstr, , 输出结果9Dim r!, k!, s!r = Val
18、(InputBox(请输入圆的半径, 计算圆的周长和面积k = 2 * 3.14159 * rs = 3.14159 * r * rText1.Text = kText2.Text = smsgbox 计算已完成!, , end10Dim x%, a%Dim b%, c%x = 36a = Int(x / 10)b = x Mod 10c = b * 10 + aPrint 处理后的数:;11Dim x As String, y As String x = Text1.Texty = Left(x, 1) + Right(x, 1) Text2.Text = y12Dim s%, t%Dim
19、b%, shuchu$s = Val(Text1.Text)t = Val(Text2.Text)b = s - 105If t b * 1.1 Thenshuchu = 偏胖,注意节食ElseIf t b * 0.9 Then偏瘦,增加营养Else正常,继续保持End IfLabel1.Caption = shuchuPrivate Sub Text1_Change()If IsNumeric(Text1) = False Then Text1 = Private Sub Text2_Change()If IsNumeric(Text2) = False Then Text12 = 13Di
20、m x!, y!x = Val(Text1)y = Val(Text2)Select Case Trim(Text3)Case Text4 = x + yText4 = x - yText4 = x * yText4 = x / yIf y = 0 Then除数不能为0Text4 = Text2.SetFocusEnd Select Dim i, N, s As Integer s = 0 N = val(Text1.Text) For i = 1 To N If i Mod 2 = 0 Then s=s+i End If Next i Text2.Text = s End Sub s = 1 s=s*i Next EX文件夹下Dim i,s,N As IntegerN = Val(Text1.Text)s = 0For i = 1 To ns = s + 1/ i Next i If i / 3 = Int(i / 3) Then Next s = 1For i = 1 To N s = s *(i * i) If i / 5 = Int(i / 5) Th
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1