UC知道vb循环结构程序设计的问题求解（高分急求！）
来源：百度知道 编辑：UC知道 时间：2024/06/04 11:42:12
设计用循环结构处理数据的综合程序
设计要求：设计界面如图所示
1.通过输入框输入任意8个正整数，如果全是一位数，则输入这组数到标签（lblori)，并将其倒序（数据倒序不可以用字符串操作，只可用处理数字的方法）；否则用消息框提示“不全是一位数”。
数字倒序提示：以相反的顺序输入正整数X的各个位，使用的方法是重复以下操作：
Print x mod 10
x=x\10
2.倒序后的数据输出到标签（lblreorder)，然后两个数为一组，转换为ASCII码；随机产生一个两位数。
3.ASCII码是字母，字母按此随机数后移相应的位置，如果位移超出最后一个字母，则从第一个字母开始循环；如果ASCII码不是字母，则保持原值。
4.标签（lblchange）输出处理后的数据。
一共三个按钮：“输入数据” “数据倒序” “数据位移变换”
三个标签：“原数据” “倒序后的结果” “位移变换后的数据”
设计要求：设计界面如图所示
1.通过输入框输入任意8个正整数，如果全是一位数，则输入这组数到标签（lblori)，并将其倒序（数据倒序不可以用字符串操作，只可用处理数字的方法）；否则用消息框提示“不全是一位数”。
数字倒序提示：以相反的顺序输入正整数X的各个位，使用的方法是重复以下操作：
Print x mod 10
x=x\10
2.倒序后的数据输出到标签（lblreorder)，然后两个数为一组，转换为ASCII码；随机产生一个两位数。
3.ASCII码是字母，字母按此随机数后移相应的位置，如果位移超出最后一个字母，则从第一个字母开始循环；如果ASCII码不是字母，则保持原值。
4.标签（lblchange）输出处理后的数据。
一共三个按钮：“输入数据” “数据倒序” “数据位移变换”
三个标签：“原数据” “倒序后的结果” “位移变换后的数据”
dim yws as boolean '变量yws为布尔型，记录是否全一位数
yws=flase
for i=0 to 7
lblori(i)=val(text1(i).text) 'text1为输入框，lblori()为大小为8的数组
lblreorder(i))=val(text1(i).text)if len(text1(7-i).text)<>1 then
yws=true
end if
next i
if yws=true then msgbox "不全是一位数"
for i=0 to 6 step 2
twogroup(i/2)=lblreorder(i)*10+lblreorder(i)*1 '两个数为一组
twoascii(i/2)=chr(twogroup(i/2)) '转换为ASCII码
next i
后面没看懂...
网上搜