求解3道VB题 谢谢了各位高手

来源：百度知道 编辑：UC知道 时间：2024/05/23 11:48:42
1.利用inputbox函数输入 圆的半径 分别球出 圆的周长 面积。 并要求在文本框中显示
2.用户在3个文本框中分别输入 英语，数学，计算机成绩，单击命令按钮后 ，显示平均成绩在
3。分别用tab函数和spc函数实现在窗体上输出下面的图形
*****
*****
*****
*****

第一题：dim r,l,s as single
const pi=3.1415926
r=inputbox(请输入圆的半径")
l=2*pi*r
s=pi*r*r
text1=("圆的周长是";l0+space(4)+("圆的面积是";s)
第二题：private sub command1_click()
label1="平均成绩是"&(val(text1)+val(text2)+val(text3))/3
第三题：第一种：print
print tab(3);"****"
print tab(3);"****"
print tab(3);"****"
print tab(3);"****"
第二种：print
print space(3)+"****"
print space(3)+"****"
print space(3)+"****"
print space(3)+"****"

1.Private Sub Command1_Click()
Dim r!, c!, s!
r = InputBox("请输入半径：")
c = 2 * 3.14159 * r
s = 3.14159 * r * r
Print "周长为： "; c, "面积为： "; s
End Sub

哈哈，这个基础啊，学校就考这个吧