题目
vb 如何计算a+2b+3c+4d+5e的值以及显示计算式?(上述字母的值都已知)
用循环的方式
用循环的方式
提问时间:2020-11-10
答案
Dim s(1 To 5), z As Integer
Dim sStr, zStr As String
Dim i As Integer
sStr = "abcde"
For i = 1 To 5
s(i) = InputBox("请输入" & Mid(sStr, i, 1) & "的值:")
If i > 1 Then
zStr = zStr & "+" & s(i) & "*" & i
Else
zStr = s(i)
End If
z = z + s(i) * i
Next i
MsgBox "a+2b+3c+4d+5e=" & zStr & "=" & z
Dim sStr, zStr As String
Dim i As Integer
sStr = "abcde"
For i = 1 To 5
s(i) = InputBox("请输入" & Mid(sStr, i, 1) & "的值:")
If i > 1 Then
zStr = zStr & "+" & s(i) & "*" & i
Else
zStr = s(i)
End If
z = z + s(i) * i
Next i
MsgBox "a+2b+3c+4d+5e=" & zStr & "=" & z
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1为什么向有水的u型管中通入气体,体积增大,压强也增大?
- 2一列火车,先以每小时65千米的速度行3小时,又以每小时80千米的速度行了2小时,平均每小时行多少千米?
- 3void main(){int a=13,b=21,m=0;switch(a%3){case0:m++;break;case1:m++;switch(b%2){default:m++;case0:m+
- 4有大小两箱苹果共60个,从大箱拿出4分之1放入小箱,大小两箱苹果个数的比是3比2,大小两箱苹果原来有几个
- 5英国在资本主义发展过程中的作用
- 6n元非齐次线性方程组Ax=b与其对应的其次线性方程组Ax=0满足( )
- 7列方程一场篮球比赛,姚明得了32分,其中投中了4个三分球,其余全是两分球,请问他投中了几个两分球?
- 8平均数的大小与一组数据中的什么均有关系;还有中位数和众数
- 9温暖那一片雪花
- 10They were ever so stuck up翻译