UC知道帮忙做一下vb的程序呗吧！俺是菜鸟~谢谢各位大侠！！
来源：百度知道 编辑：UC知道 时间：2024/09/24 09:27:09
题目要求
1 通过输入任意的8个正整数，如果全是一位数，则输入这组数到标签lblori,并将其倒叙（数据岛需不可以用字符串操作，只可以用处理数字的方法）；否则用消息框提示“不全是一位数”。
另： 给出的数字倒叙提示：
preint x mod 10
x=x\10
2 倒序后的数据输入到标签lblreorder，然后两个数为一组，转换为ASCII吗；随机产生一个两位数。
3 ASCII码是字母，字幕按此随机数后以相应的位置，如果位移超过最后一个字母，则从第一个字母开始循环；如果ASCII码不是字母，则保持原值。
4 标签lblchange输出处理后的数据。
谢谢各位大虾了！！
1 通过输入任意的8个正整数，如果全是一位数，则输入这组数到标签lblori,并将其倒叙（数据岛需不可以用字符串操作，只可以用处理数字的方法）；否则用消息框提示“不全是一位数”。
另： 给出的数字倒叙提示：
preint x mod 10
x=x\10
2 倒序后的数据输入到标签lblreorder，然后两个数为一组，转换为ASCII吗；随机产生一个两位数。
3 ASCII码是字母，字幕按此随机数后以相应的位置，如果位移超过最后一个字母，则从第一个字母开始循环；如果ASCII码不是字母，则保持原值。
4 标签lblchange输出处理后的数据。
谢谢各位大虾了！！
Private Sub Command1_Click()
Dim a(8) As Long, b(4)
For i = 1 To 8
a(i) = Val(InputBox("输入第" & i & "个正整数"))
If a(i) >= 10 Then xx = True
Next
If xx = True Then
MsgBox "不全是一位数"
Else
lblori.Caption = a(1) * 10000000 + a(2) * 1000000 + a(3) * 100000 + a(4) * 10000 + a(5) * 1000 + a(6) * 100 + a(7) * 10 + a(8)
lblreorder.Caption = a(8) * 10000000 + a(7) * 1000000 + a(6) * 100000 + a(5) * 10000 + a(4) * 1000 + a(3) * 100 + a(2) * 10 + a(1)
End If
For i = 1 To 8 Step 2
x = x + 1
b(x) = Asc(a(i) * 10 + a(i + 1)) 'asc码是第一个字符
Next
Print "随机产生一个两位数"; b(Int((Rnd * 4) + 1))
End Sub
后面看的不是很懂它的意思 数字的ASCII码怎么会是字母呢？2个数字的asc码相加？
加我百度hi 我写给你~