UC知道VB上机练习题
来源：百度知道 编辑：UC知道 时间：2024/05/05 15:46:53
上机练习题
1． 输入圆的半径,求圆的周长和面积。
2． 输入三角形的三条边，求三角形的面积。
3． 交换两个变量a和b的值。
4． 输入三个数，输出其中最大的数。
5． 一个笼子里有鸡和兔共35只，脚94只，鸡和兔各有几只？
6． 编程求100以内能被3带队的所有整数。
7． 输入长方体的长、宽、高，求长方体的体积和表面积。
8． 从键盘上输入一个三位整数，然后将它反向输出。
9． 编写程序求平面中两点间的距离。
10． 编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。
11． 输入一个数n，判断它是否为素数。
12． 已知S=1+2+3+……+N，编写程序，找出一个最大整数N，使得S<30000。
13． 编写程序，输出如下图形：
*******
*****
***
*
1． 输入圆的半径,求圆的周长和面积。
2． 输入三角形的三条边，求三角形的面积。
3． 交换两个变量a和b的值。
4． 输入三个数，输出其中最大的数。
5． 一个笼子里有鸡和兔共35只，脚94只，鸡和兔各有几只？
6． 编程求100以内能被3带队的所有整数。
7． 输入长方体的长、宽、高，求长方体的体积和表面积。
8． 从键盘上输入一个三位整数，然后将它反向输出。
9． 编写程序求平面中两点间的距离。
10． 编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。
11． 输入一个数n，判断它是否为素数。
12． 已知S=1+2+3+……+N，编写程序，找出一个最大整数N，使得S<30000。
13． 编写程序，输出如下图形：
*******
*****
***
*
1、
Private Sub Command1_Click()
Do
r = Val(InputBox("请输入圆的半径(>0):"))
Loop Until r > 0
Print "圆半径为："; r
Print "圆的周长是："; 2 * 3.1415926 * r
Print "圆的面积为："; r * r * 3.1415926
End Sub
2、
Private Sub Command1_Click()
Dim 边长(3) As Single
For i = 1 To 3 '输入三个边长，不得小于等于0
Do
边长(i) = Val(InputBox("请输入三角形的第" & i & "条边的边长(>0):"))
Loop Until 边长(i) > 0
Next i
For i = 1 To 2 '排序
For j = i + 1 To 3
If 边长(i) < 边长(j) Then
t = 边长(i)
边长(i) = 边长(j)
边长(j) = t
End If
Next j
Next i
If 边长(1) > 边长(2) + 边长(3) Then '两短边的和小于长边，不能构成三角形！
MsgBox "你输入的数据：" & 边长(1) & "、" & 边长(2) & "、" & 边长(3) & "不能构成三角形！"
Exit Sub
End If
Print "三角形三边为："; 边长(1); 边长(2); 边长(3)
s = (边长(1) + 边长(2) + 边长(3)) / 2
Print "三角形面积为：";