UC知道求解几道vb题~
来源：百度知道 编辑：UC知道 时间：2024/05/01 18:14:29
内容1：练习使用Print方法和Format函数
单击窗体时，用Inputbox函数输入一个正实数，用Print方法在一行上显示出它的原值、平方和平方根、立方和立方根，每个数保留3位小数，其间有间隔。例如，设x=2.5，（运行结果原值为2.500，平方6.250，平方根1.581，立方15.625，立方根1.357）
内容2：练习使用Select Case多分支结构来解决问题
编写一袖珍四则运算器，界面如下图所示。
要求：输入两个操作数和一个运算符，根据运算符决定所作的运算。
内容3：练习使用循环结构来解决问题
编程：单击窗体时计算并显示出0～999之间所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。如153=13+53+33。
单击窗体时，用Inputbox函数输入一个正实数，用Print方法在一行上显示出它的原值、平方和平方根、立方和立方根，每个数保留3位小数，其间有间隔。例如，设x=2.5，（运行结果原值为2.500，平方6.250，平方根1.581，立方15.625，立方根1.357）
内容2：练习使用Select Case多分支结构来解决问题
编写一袖珍四则运算器，界面如下图所示。
要求：输入两个操作数和一个运算符，根据运算符决定所作的运算。
内容3：练习使用循环结构来解决问题
编程：单击窗体时计算并显示出0～999之间所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。如153=13+53+33。
第1题
Private Sub Form_Click()
Dim N As Single
N = InputBox("请输入一个正实数")
Print "原值=" & N
Print "平方=" & N ^ 2
Print "平方根=" & Format(Sqr(N), "###.###")
Print "立方=" & N ^ 3
Print "立方根=" & Format(N ^ (1 / 3), "###.###")
End Sub
第2题
因为没有看到你的图，所以只能做个简单的四则运算
Private Sub Form_Click()
Dim A, B As Double
Dim YSF As String
A = InputBox("请输入A的值")
B = InputBox("请输入B的值")
YSF = InputBox("请输入四则运算符")
Select Case YSF
Case "+"
Print A & "+"; B & "=" & A + B
Case "-"
Print A & "-"; B & "=" & A - B
Case "*"
Print A & "*"; B & "=" & A * B
Case "/"
If B = 0 Then MsgBox "除数不能为0": End
Print A & "/"; B & "=" & A / B
Ca