早教吧作业答案频道 -->其他-->
VB数组问题如下数组声明语句,则数组a包含元素的个数有。Dima(3,2to2,5)(A)120(B)75(C)60(D)13要解答过程,原理
题目详情
VB数组问题
如下数组声明语句,则数组a包含元素的个数有______。
Dim a(3, 2 to 2,5)
(A)120 (B)75
(C)60 (D)13
要解答过程,原理
如下数组声明语句,则数组a包含元素的个数有______。
Dim a(3, 2 to 2,5)
(A)120 (B)75
(C)60 (D)13
要解答过程,原理
▼优质解答
答案和解析
窗体上建立两个按钮,两个文本框
Private Sub Command1_Click()
Dim i As Integer, s As Integer, aver As Single
Dim myarray(1 To 10)
For i = 1 To 10
myarray(i) = i '数组赋值
s = s + myarray(i) '求和
Next i
aver = s / 10 '求平均值
Text1.Text = aver
End Sub
Private Sub Command2_Click()
Dim i As Integer, s As Integer, aver As Single, x As Integer
Dim DYarray() As Integer
x = InputBox("请输入一个值,它是元素个数", "元素个数")
ReDim DYarray(1 To x)
For i = 1 To x
DYarray(i) = InputBox("请输入第" & i & "个元素", "输入每个元素") '数组赋值
s = s + DYarray(i) '求和
aver = s / x '求平均值
Next i
Text2.Text = aver
End Sub
Private Sub Command1_Click()
Dim i As Integer, s As Integer, aver As Single
Dim myarray(1 To 10)
For i = 1 To 10
myarray(i) = i '数组赋值
s = s + myarray(i) '求和
Next i
aver = s / 10 '求平均值
Text1.Text = aver
End Sub
Private Sub Command2_Click()
Dim i As Integer, s As Integer, aver As Single, x As Integer
Dim DYarray() As Integer
x = InputBox("请输入一个值,它是元素个数", "元素个数")
ReDim DYarray(1 To x)
For i = 1 To x
DYarray(i) = InputBox("请输入第" & i & "个元素", "输入每个元素") '数组赋值
s = s + DYarray(i) '求和
aver = s / x '求平均值
Next i
Text2.Text = aver
End Sub
看了VB数组问题如下数组声明语句,...的网友还看了以下:
一位批发商从某服装制造公司购进60包型号为L的衬衫,由于包装工人疏忽,在包裹中混进了型号为M的衬衫 2020-04-09 …
一个四冲程热机的飞轮转速为1800r/min,它1s完成了( )A. 30个冲程,做了30次功B 2020-05-17 …
某商店在甲批发市场以每包m元的价格进了40包茶叶,又在乙批发市场以每包n元(m>n)的价格进了同样 2020-06-02 …
有两箱单价不同的两种糖果,甲箱中装有30包巧克力;乙箱中装有60包大白兔奶糖.当两种糖果交换相等包 2020-06-02 …
下列句子中没有语病的一句是[]A.程树榛汇总其近60年创作精华的十卷《程树榛文集》近日由百花文艺出 2020-06-10 …
1.一家商店以每包a元的价格买进了30包甲种茶叶,又以每包b元的价格买进了60包乙种茶叶,如果以每 2020-06-26 …
命题p:△ABC中,角A≠60°,命题q:sinA≠根号3/2我的做法咋错了:设A={角A≠60° 2020-07-09 …
一台四冲程内燃机飞轮转速为3600转/分钟,它1秒内完成了A.60个冲程,做了60次功B.120个 2020-07-13 …
一个四冲程热机的飞轮转速为1800r/min,它1s完成了()A.30个冲程,做了30次功B.60个 2020-12-05 …
一台单缸四冲程柴油机飞轮的转速是3600r/min,则柴油机每秒钟()A.完成60个循环,120个冲 2021-01-14 …