UC知道看不明白这个vb小程序,望行家解释一遍.
来源：百度知道 编辑：UC知道 时间：2024/05/31 16:31:19
程序是这样的:
dim x() as string
private sub text1_keypress(keyAscii as Integer)
dim s as string * 1
s = chr(keyAscii)
select case s
case "0" to "9",","
case else
keyAscii = 0
end select
end sub
private sub command1_click()
dim i as integer
x = split(text1,",")
___________________
picture1.print x(i)
next i
end sub
这原本是一个要求在横线上填空的练习题,可我连这个程序的意思也看不懂,更不知填什么空了.
有以下几问,望老师解答:
一、程序是什么意思？希望能逐句解释一遍。
二、这里应该填什么空？
三、如果要运行这个程序，窗体上应设置几个控件（和控件数组）？
dim x() as string
private sub text1_keypress(keyAscii as Integer)
dim s as string * 1
s = chr(keyAscii)
select case s
case "0" to "9",","
case else
keyAscii = 0
end select
end sub
private sub command1_click()
dim i as integer
x = split(text1,",")
___________________
picture1.print x(i)
next i
end sub
这原本是一个要求在横线上填空的练习题,可我连这个程序的意思也看不懂,更不知填什么空了.
有以下几问,望老师解答:
一、程序是什么意思？希望能逐句解释一遍。
二、这里应该填什么空？
三、如果要运行这个程序，窗体上应设置几个控件（和控件数组）？
空格处应填：For i = 0 To UBound(x)
程序需一个text控件，一个按钮，一个picturebox
第一段程序是要求输入数字，以逗号分隔
第二段用split函数把字符串转化为数组，然后输出在图形框上。
给点分吧