VB 程序 谁会？

来源：百度知道 编辑：UC知道 时间：2024/06/21 12:26:37
1.请编程完成 1-2+3-4+5-6…… +99-100=？

2.有4*4的二位数组a, 元素都为30-70 的随机整数 ( Int(Rnd*41+30) ) , 现要求将该数组按列的次序把各元素放入一维数组 b 中 ，并将两个数组输出

怎么做？

'第1题
Private Sub Command1_Click()
Dim s%
Cls
For i = 1 To 100
s = s - i * (-1) ^ i
Next
Print s
End Sub

'第2题
Private Sub Command2_Click()
Dim a(1 To 4, 1 To 4) As Integer, b(1 To 16) As Integer
Cls
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 41 + 30)
Print a(i, j),
Next j
Print
Next i

Print

n = 1
For i = 1 To 4
For j = 1 To 4
b(n) = a(j, i)
Print b(n);
n = n + 1
Next j
Next i

End Sub

Private Sub Form_Click()
Dim i%, s1%, s2%
For i = 1 To 100 Step 2
s1 = s1 + i
Next i
For i = o To 100 Step 2
s2 = s2 + i
Next i
s = s1 - s2
Print s
End Sub

Private Sub Form_Click()
Dim i%, s%, j%
For i = 1 To 100 Step 1
If i Mod 2 <> 0 Then
j = i
Else
j= -i
End If
s = s + j
Next i
Print s
End Sub