visualbasic程序设计教程-第四版-刘炳文编著-清华大学

visualbasic程序设计教程-第四版-刘炳文编著-清华大学（通用1篇）

篇1：visualbasic程序设计教程-第四版-刘炳文编著-清华大学

Visual Basic 程序设计教程 部分习题参考

第四版刘炳文编著清华大学出版社 第五章

5.4、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。Dim a as single For i=1 to 4

a=inputbox（“请输入一个数：”，“数据输入”）

sum=sum+a

n=n+1

avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 5.5、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。Dim a as variant Fontsize=20 a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；a a=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；a a=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；a a=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；a a=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a 5.7．设a=5，b=2.5，c=7.8，编程序计算：

y=（πab）/（a+bc）程序：

Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c）print “结果是：”;y 5.8、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。Dim a as long，d as integer，h as integer，s as integer a=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600 print d；“日”；h；“时”；s；“秒”

5.9、自由落体位移公式为：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 single g=9.81 v= inputbox（“请输入初始速度：”，“数据输入”）v=val（v）t=inputbox（“请输入经历的时间：”，“数据输入”）t=val（t）s=g*t*t/2+v*t print “位移量是：”;s 第七章

7.1．编程计算并输出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.2、我国现有人口为13亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。Private Sub Form_click()Dim p As Double Dim r As Single Dim n As Integer p = 130000000 r = 0.01 n = 0 Do While p <= 200000000 p = p *(1 + r)n = n + 1 Loop Print n;“年后”;“中国人口增加到”;p End Sub 7.3、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。

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（“请输入第二条边长”，“数据输入”）b=val（b）c=inputbox（“请输入第三条边长”，“数据输入”）c=val（c）

if a+b<=c or a+c<=b or b+c<=a then

msgbox（“您输入的三条边长不能构成三角形，请重新输入！”）

goto start else

l=（a+b+c）/2

s=sqr（l*（l-a）*（l-b）*（l-c））end if print “三角形的面积为：”；s 7.5、编写程序，打印如下所示的“数字金字塔”

1 2 1

…… 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 Private Sub Form_Click()Dim a(1 To 5)As Integer For j = 1 To 5 a(j)= j Next j For i = 1 To 5 Print Tab(301 If j > i Then Print a(2 * i2

For J = I + 1 To Maxi)* 2);a(i, 3i

If w(j, 1)> w(j + 1, 1)Then

a1 = w(j, 0)

a2 = w(j, 1)

w(j, 0)= w(j + 1, 0)

w(j, 1)= w(j + 1, 1)

w(j + 1, 0)= a1

w(j + 1, 1)= a2

End If

Next j Next i For i = 0 To 9 Print w(i, 0)Next Print “名次” & “

运动员” & “

成绩” For i = 0 To 9

Print “ ” & i + 1 & “

” & Format(w(i, 0), “000”)& “

” & w(i, 1)Next End Sub Private Sub Form_Load()For i = 0 To 9

w(i, 0)= InputBox(“请输入第” & i + 1 & “运动员的编号”)

w(i, 1)= InputBox(“请输入第” & i + 1 & “运动员的成绩”)Next Command1.Caption = “名次排列” End Sub 8.10．VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0 Private Sub Form_Click()

Dim a(1 To 10, 1 To 10)As Integer

For i = 1 To 10

For j = 1 To 10

a(i, j)= 0

If i = j Then a(i, j)= 1

If i + j = 11 Then a(i, j)= 1

Print a(i, j);“ ”;

Next j

Print

Next i End Sub 8.12.杨辉三角形每一行是(x+y)的n次方的展开式的各项系数。例如第一行系数是1；第二行1，1；第三行1，2，1„„请编写程序输出n=10的杨辉三角形 Option Base 1 Private Sub Command1_Click()Dim a()As Double m = InputBox(“请输入行数 ”, “输入”, 0)ReDim a(m, m)As Double For i = 1 To m a(i, 1)= 1 For j = 1 To m

a(j, j)= 1

If j >= 2 And j <= i1, j1, j)

End If Next j Next i For i = 1 To m For j = 1 To m

If i >= j Then Print Tab(j * 4);Str(a(i, j));

End If Next j Print Next i End Sub