vb 将数组元素倒序,并输出
从键盘上输入十个整数,并放入一个一维数组中,然后将其前五个元素对换,即:第一个元素与第十个元素互换,第二个元素与第九个元素互换……第五个元素与第六个元素互换。分别输出数组...
从键盘上输入十个整数,并放入一个一维数组中,然后将其前五个元素对换,即:第一个元素与第十个元素互换,第二个元素与第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和换后各元素的值。
请问二楼,这是个什么界面? 展开
请问二楼,这是个什么界面? 展开
3个回答
展开全部
'楼上的程序在输入奇数个整数时可能会出错
'给分万能的,想输入多少数据都可以,程序以调试可用
Dim i As Integer, n As Integer
If TextBox0.Text = "" Then
MsgBox("请输入您想输入数字的个数")
Exit Sub
End If
n = CInt(TextBox0.Text)
Dim ar(n) As Integer
For i = 0 To n - 1
MsgBox("请输入第" & Str(i + 1) & "个数字")
ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Next
Dim str1 As String, str2 As String
For i = 0 To n - 1
If str1 = "" Then
str1 = ar(i)
Else
str1 = str1 & " " & ar(i)
End If
Next
For i = 0 To n - 1
If str2 = "" Then
str2 = ar(n - 1 - i)
Else
str2 = str2 & " " & ar(n - 1 - i)
End If
Next
TextBox1.Text = str1
TextBox2.Text = str2
'给分万能的,想输入多少数据都可以,程序以调试可用
Dim i As Integer, n As Integer
If TextBox0.Text = "" Then
MsgBox("请输入您想输入数字的个数")
Exit Sub
End If
n = CInt(TextBox0.Text)
Dim ar(n) As Integer
For i = 0 To n - 1
MsgBox("请输入第" & Str(i + 1) & "个数字")
ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Next
Dim str1 As String, str2 As String
For i = 0 To n - 1
If str1 = "" Then
str1 = ar(i)
Else
str1 = str1 & " " & ar(i)
End If
Next
For i = 0 To n - 1
If str2 = "" Then
str2 = ar(n - 1 - i)
Else
str2 = str2 & " " & ar(n - 1 - i)
End If
Next
TextBox1.Text = str1
TextBox2.Text = str2
展开全部
Private Sub Form_Load()
Dim arr(9) As Integer
Dim i, j, intTemp As Integer
For i = 0 To UBound(arr) '给数组赋值,从0至9共10个整数
arr(i) = i
debug.print cstr(arr(i))
Next
j = UBound(arr)
For i = 0 To CInt(UBound(arr) / 2)
'交换法
intTemp = arr(i)
arr(i) = arr(j)
arr(j) = intTemp
j = j - 1
Next
For i = 0 To UBound(arr)
debug.print cstr(arr(i))
Next
End Sub
Dim arr(9) As Integer
Dim i, j, intTemp As Integer
For i = 0 To UBound(arr) '给数组赋值,从0至9共10个整数
arr(i) = i
debug.print cstr(arr(i))
Next
j = UBound(arr)
For i = 0 To CInt(UBound(arr) / 2)
'交换法
intTemp = arr(i)
arr(i) = arr(j)
arr(j) = intTemp
j = j - 1
Next
For i = 0 To UBound(arr)
debug.print cstr(arr(i))
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给你个简单的
Private Sub Command2_Click()
Dim a(0 To 9) As Integer, i As Integer, j As Integer, s As Integer
For i = 0 To 9
a(i) = InputBox("输入数字")
Next i
for i=0 to 9
text1.text=text1.text &" "& a(i)
next i
For i = 0 To 5
TEMP = a(i)
a(i) = a(10 - i - 1)
a(10 - i - 1) = TEMP
Next i
for i=0 to 9
text2.text=text2.text &" "& a(i)
next i
End Sub
Private Sub Command2_Click()
Dim a(0 To 9) As Integer, i As Integer, j As Integer, s As Integer
For i = 0 To 9
a(i) = InputBox("输入数字")
Next i
for i=0 to 9
text1.text=text1.text &" "& a(i)
next i
For i = 0 To 5
TEMP = a(i)
a(i) = a(10 - i - 1)
a(10 - i - 1) = TEMP
Next i
for i=0 to 9
text2.text=text2.text &" "& a(i)
next i
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询