VB各种例题文本文档

Dim a as single；b as single；c as single
Start:
a = inputbox(“请输入第一条边长-1结束：”,”数据输入”)
a=val（a）
if a=-1 then
end
end if
b=inputbox（“请输入第二条边长”，“数据输入”）
End If
Next j
Next i
End Sub
11．勾股定理中三个数的关系是a*a+b*b=c*c。编写程序，输出30以内满足上述关系的整数组合。例如3，4，5就是一个满足要求的整数组合
Private Sub Command1_Click()
Dim Max As Integer, I As Integer, J As Integer, K
Exit Sub
End If
For i = 1 To 99
If Val(a) + i = Val(getDuiTiao(a)) + getDuiTiao(CStr(i)) Then
Debug.Print i
c=7.8
pi=3.14
y=（pi*a*b）/（a+b*c）
print “结果是：”;y
4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。
Dim a as long，d as integer ，h as integer，s as integer
a=inputbox（“请输入秒数：”，“数据输入”）
Max = 30
For I = 3 To Max - 2
For J = I + 1 To Max - 1
K = Sqr(I ^ 2 + J ^ 2)
If K = Int(K) And K <= Max Then Print I, J, K
d=int（a/86400）
h=int（（a-d*86400）/3600）
s=a-d*86400-h*3600
print 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函数then print sum & " 是完全数"
next
print "查找完毕"
beep
end sub
14．一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两位正整数都找出来
End If
Next
End Sub
Private Function getDuiTiao(ByVal vStr As String) As String
Dim strTmp As String
strTmp = Right(CStr(vStr), 1) & Left(CStr(vStr), 1)
Next
Next
End Sub
12．如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，从键盘上输入整数M和N，求出M和N之间的所有的完全数
form load()
Vb第四单元编程题答案
1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。
Dim a as single
For i=1 to 4
a=inputbox（“请输入一个数：”，“数据输入”）
sum=sum+a
6．编程计算并输出S的值:s=2+4+6+8+…+100
dim i,s as integer
s=0
for i=2 to 100 step 2
s=s+i
next
print s
7、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。
Option Base 1
Private Sub Form_Click()
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20)
Print "原来数组："
For i = 1 To 20
Print arr(i);
Private Sub Command1_Click()
Dim a As String
Dim i As Long
a = InputBox("输入一个两位的正整数:")
If Val(a) <= 0 Or Val(a) >= 100 Then
MsgBox "输入不合法"
Print arr(i);
Next i
End Sub
2．VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0
Private Sub Form_Click()
Dim a(1 To 10, 1 To 10) As Integer
For i = 1 To 10
'int i,j,m,n,sum
m =inputbox("输入最小正整数")
n =inputbox ("输入最大正整数")
for j=m to n
sum=0
for i=1 to j
if (j mod i=0) and (i <>j ) then sum=sum i
getDuiTiao = strTmp
End Function
14、编写程序，打印出“杨辉三角”图形。
For i=1 to 9
Print tab（30-i*3）;
For j = 1 to i
Print j;
Next j
For j= i-1 to 1 step -1
For j = 1 To 10
a(i, j) = 0
If i = j Then a(i, j) = 1
a=inputbox（“请输入姓名：”，“数据输入”）
print “姓名：”；a
a=inputbox（“请输入年龄：”，“数据输入”）
print “年龄：”；a
a=inputbox（“请输入通信地址：”，“数据输入”）
print “通信地址：”；a
a=inputbox（“请输入邮政编码：”，“数据输入”）
y=(x-400)*0.04+200*0.03
elseif x>=5000 then
y=(x-400)*0.05+200*0.03
end if
print “需要纳税的金额为：”;y
9、假定有一下每周工作安排：星期一、三：讲计算机课 星期二、四：讲程序设计课 星期五：进修英语 星期六：政治学习 星期日：休息 试编写一个程序，对上述工作日程进行检索。程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用0-6分别代表星期日到星期六，如果输入0-6之外的数，则程序结束运行。
Dim v as single，t as single，s as single
g=9.81
v= inputbox（“请输入初始速度：”，“数据输入”）
v=val（v）
t=inputbox（“请输入经历的时间：”，“数据输入”）
t=val（t）
s=g*t*t/2+v*t
print “位移量是：”;s
Dim x as integer
x=inputbox（“请输入一个整数进行检索：”，“数据输入”）
select case x
case 0
y=“休息”
case 1
y=“讲计算机课”
case 2
y=“讲程序设计课”
case 3
y=“将计算机课”
case 4
Next i
Print
For i = 1 To 10
For j = 11 To 20
t = arr(i)
arr(i) = arr(j)
arr(j) = t
Next j
Next i
Print "对换后数组："
For i = 1 To 20
s=sqr（l*（l-a）*（l-b）*（l-c））
end if
print “三角形的面积为：”；s
8、税务部门征收所得税，规定如下：（1）收入在200元以内，免征（2）收入在200-400元内，超过200元的部分纳税3%（3）收入超过400元的部分，纳税4%（4）当收入达5000元或超过时，将4%税金改为5%编写程序实现上述操作。
For j = 1 To 5
a(j) = j
Next j