回 帖 发 新 帖 刷新版面

主题:问几个小问题,谢谢先

各位老师,我正在学习一本基础读物,有几个地方不明白,请教一下,对你们来说这问题可能显得很幼稚,但对于刚开学的人来说,真是迷惑啊~~

1、变量~~如果有一堆的变量,且类型相同,我怎么才能批量定义?即用很少的语句完成定义?比如说,a、b、c、d、e、f、g、h。。。。都是单精度
2、下拉列表框(组合框)combo在属性style=2条件下(即运行时只允许选择既有的选项,不准在文本框里填写别的东西),怎样在程序设计时在它的首行添上文字?比如“请选择”等。
3、同一个sub过程,是不是不允许出现两个End sub语句?比如说过程中间有选择结构,其中的某个条件满足,即退出本sub。。。
4、有若干个变量,比如a、b、c、d、e、f、g、h。。。怎样用最少的语句,把已经存在的文本框控件组text1(i)里的内容付给这些变量?不是用文件读取的方式

书上也没说明,所以我就不知道怎么回事了,在这里请教一下老师,谢谢!

不要不屑于回答啊^^^

回复列表 (共3个回复)

沙发

1.数组。但似乎满足不了你的要求。
2.添加第一项为"请选择",然后,combo1.ListIndex=0
3.Exit sub

板凳

dim a as double,b as double,……

3 楼

1.在变量名后面加上标识符号,就可以不要 As 语句了,例如,声明单精度变量:

dim a!,b!,c! '英文惊叹号是单精度的标识符号

4.声明一个下标与文本框控件数组相同的字符型数组变量,再用For循环赋值,例如:

假设text1控件数组的最大下标=9,那么:

dim A(9) as string, i as integer
for i=0 to 9:a(i)=text1(i):next '把文本框控件数组里的内容赋值给数组变量A

我来回复

您尚未登录,请登录后再回复。点此登录或注册