求编写程序,使用InputBox函数输入两个电阻的值,求它们并联和串联的电阻值,使用MsgBox消息框输出结果,要

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/10 11:47:55

求编写程序,使用InputBox函数输入两个电阻的值,求它们并联和串联的电阻值,使用MsgBox消息框输出结果,要
要求保留三位小数

Sub Macro2()
Dim s1,s2 As String
Dim n5
Dim n1,n2,n3,n4 As Single
s1 = InputBox("请输入两电阻的阻值,之间用半角逗号“,”分隔","提示信息")
n1 = Val(s1)
n2 = Val(Mid(s1,InStr(s1,",") + 1))
If n1 > 0 And n2 > 0 Then
n3 = Round(n1 + n2,3) '串联电阻值
n4 = Round(n1 * n2 / (n1 + n2),3) '并联电阻值
n5 = MsgBox(n1 & "Ω和" & n2 & "Ω两个电阻的" & Chr(13) & "串联电阻值为：" & n3 & "Ω" & Chr(13) & "并联电阻值为：" & n4 & "Ω",,"计算结果")
Else
n5 = MsgBox("两电阻值输入有错,请重新输入!",,"错误提示")
End If
End Su

求编写程序,使用InputBox函数输入两个电阻的值,求它们并联和串联的电阻值,使用MsgBox消息框输出结果,要 1、使用输入框函数（inputbox）和消息框函数(msgbox)输入输出数据一、从键盘上输入两个数,编写程序,计算并输出这两个数的和及平均值.数由InputBox函数输入,结果在窗体知道两个电阻的串联和并联值,怎么求电阻值 InputBox函数输入两个整数a和b,然后用Rnd函数产生两个[a,b]区间上的随机整数,最后用MsgBox函数输出a 求教：我想设计一个2-5伏输入、1.8伏输出稳压器电路,用1N4678齐纳二极管,如何求串联电阻和并联电阻值使用VB 6.0 制作一个程序,求1!+2!+3!+……+n!要求输入任意的N,求1到N的阶乘.用Inputbox 和M 已知两个电阻的电阻值和功率,求串联和并联时可外加的最大电压值及他们分别消耗的功率编写两个函数,分别求两个正数的最大公约数和最小公倍数,在主函数中输入两个数,然后调用这两个函数计算并输出结果使用Matlab输入下面方程,求所编程序和其输出的图像. 编写程序,输入两个正整数m和n,输出它们的最小公倍数和最大公约数编写一个javascript程序,提示输入一个整数,判断这个整数的奇偶性,并使用警示对话框输出判断结果.