我想让1、11、225、45、32等数字都和22一个数相乘,得出的数生成在一个表里(一行或一列),怎么能作到啊
參考答案:1、11、225、45、32等数字是可以在一个什么样的框内输入的?
[答]可以用InputBox()
private sub Form_load()
do
inputbox可以接受数值或字串
'数据的输入
dim a as integer
a=inputbox("输入一个数字,输入0结束")
if a=0 then exit do '如果输入0就退出循环
'计算及输入
'********加一个ListBox控件:List1
dim t as string,tt as string
a=a*22
t=str(a) '整型变字符串
tt=tt&" "&t '累加字串
list1.additem tt '加到listbox列表
loop
end sub