VB6.0课后题及常见操作题代码

第四章1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。

通过inputbox 函数输入数据，在窗体上显示和及平均值。

Dim a as singleFor i=1 to 4a=inputbox（“请输入一个数：”，“数据输入”）sum=sum+an=n+1avg=sum/nnext iprint “和是：”,sumprint “平均值是：”，avg2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。

Dim a as variantFontsize=20a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；aa=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；aa=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；aa=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；aa=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a3．a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dim a as single，b as single，c as singlea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print “结果是：”;y4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。

Dim a as long，d as integer ，h as integer，s as integera=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600print d；“日”；h；“时”；s；“秒”5、自由落体位移公式为：s=gt2/2+v0t其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。

设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。

Dim v as single，t as single，s as singleg=9.81v= inputbox（“请输入初始速度：”，“数据输入”）v=val（v）t=inputbox（“请输入经历的时间：”，“数据输入”）t=val（t）s=g*t*t/2+v*tprint “位移量是：”;s6．编程计算并输出S的值:s=2+4+6+8+…+100dim i,s as integers=0for i=2 to 100 step 2s=s+inextprint s7、给定三角形的3条边长，计算三角形的面积。

编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。

当输入-1时结束程序。

Dim a as single；b as single；c as singleStart:a = inputbox(“请输入第一条边长-1结束：”,”数据输入”)a=val（a）if a=-1 thenendend ifb=inputbox（“请输入第二条边长”，“数据输入”）b=val（b）c=inputbox（“请输入第三条边长”，“数据输入”）c=val（c）if a+b<=c or a+c<=b or b+c<=a thenmsgbox（“您输入的三条边长不能构成三角形，请重新输入！”）goto startelsel=（a+b+c）/2s=sqr（l*（l-a）*（l-b）*（l-c））end ifprint “三角形的面积为：”；s8、税务部门征收所得税，规定如下：（1）收入在200元以内，免征（2）收入在200-400元内，超过200元的部分纳税3%（3）收入超过400元的部分，纳税4%（4）当收入达5000元或超过时，将4%税金改为5%编写程序实现上述操作。

Dim x as single，y as singlex=inputbox（“请输入收入！”，“数据输入”）x=val（x）if x<=200 theny=0elseif x>200 and x<400 theny=(x-200)*0.03elseif x>=400 and x<5000 theny=(x-400)*0.04+200*0.03elseif x>=5000 theny=(x-400)*0.05+200*0.03end ifprint “需要纳税的金额为：”;y9、假定有一下每周工作安排：星期一、三：讲计算机课星期二、四：讲程序设计课星期五：进修英语星期六：政治学习星期日：休息试编写一个程序，对上述工作日程进行检索。

程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。

在输入时用0-6分别代表星期日到星期六，如果输入0-6之外的数，则程序结束运行。

Dim x as integerx=inputbox（“请输入一个整数进行检索：”，“数据输入”）select case xcase 0y=“休息”case 1y=“讲计算机课”case 2y=“讲程序设计课”case 3y=“将计算机课”case 4y=“将程序设计课”case 5y=“进修英语”case 6y=“政治学习”case elseendend selectprint y10。

vb数字金字塔1 121 12321一直到9Private Sub Form_Click()Dim a(1 To 9) As IntegerFor j = 1 To 9a(j) = jNext jFor i = 1 To 9Print Tab(30 - i * 3);For j = 1 To 2 * i - 1If j > i ThenPrint a(2 * i - j);ElsePrint a(j);End IfNext jNext iEnd Sub11．勾股定理中三个数的关系是a*a+b*b=c*c。

编写程序，输出30以内满足上述关系的整数组合。

例如3，4，5就是一个满足要求的整数组合Private Sub Command1_Click()Dim Max As Integer, I As Integer, J As Integer, KMax = 30For I = 3 To Max - 2For J = I + 1 To Max - 1K = Sqr(I ^ 2 + J ^ 2)If K = Int(K) And K <= Max Then Print I, J, KNextNextEnd Sub12．如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。

例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，从键盘上输入整数M和N，求出M和N之间的所有的完全数form load()'int i,j,m,n,summ =inputbox("输入最小正整数")n =inputbox ("输入最大正整数")for j=m to nsum=0for i=1 to jif (j mod i=0) and (i <>j ) then sum=sum inextif j=sum then print sum & " 是完全数"nextprint "查找完毕"beepend sub13．从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号和考试成绩，并根据成绩按下面的规定输出对该学生的评语：成绩 80～100 60～79 50～59 40～49 0～39评语 very good good fair poor fail(所需控件：三个标签,两个文本框，一个命令按扭)Private Sub Command1_Click()Dim s$, a$, mark!s = Text1.Textmark = Val(Text2.Text)Select Case markCase Is < 40a = "fail"Case Is < 50a = "poor"Case Is < 60a = "fair"Case Is < 80a = "good"Case 80 To 100a = "very good"End SelectPrint "学号：" & s & vbCrLf & "成绩评定为" & aEnd Sub14．一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。

如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两位正整数都找出来Private Sub Command1_Click()Dim a As StringDim i As Longa = InputBox("输入一个两位的正整数:")If Val(a) <= 0 Or Val(a) >= 100 ThenMsgBox "输入不合法"Exit SubEnd IfFor i = 1 To 99If Val(a) + i = Val(getDuiTiao(a)) + getDuiTiao(CStr (i)) ThenDebug.Print iEnd IfNextEnd SubPrivate Function getDuiTiao(ByVal vStr As String) As StringDim strTmp As StringstrTmp = Right(CStr(vStr), 1) & Left(CStr(vStr), 1)getDuiTiao = strTmpEnd Function|14、编写程序，打印出“杨辉三角”图形。

For i=1 to 9Print tab（30-i*3）;For j = 1 to iPrint j;Next jFor j= i-1 to 1 step -1Print j;Next jPrintNext i第五章1.从键盘上输入20个整数，并放入一个一维数组中，然后将其前10个元素与后10个元素对换，即：第1个元素与第20个元素互换，第2个元素与第19个元素互换……第10个元素与第11个元素互换。