解决方案 »
- NCT VideoStudio ActiveX DLL在Vista下安装RegSvr32出错
- 怎样编VB程序:才能实现excel某一单元格中,垂直显示连续字符!
- 编码转换的问题,如何将如下代码转换成中文?能转换吗?
- 谁有VB6.0中文版程序员指南的电子书啊,给我一份好吗?
- 查询替换
- VB程序到个别机器(98/95)上,运行出现ERROR 5007错误,请问怎么解决?
- ************Install Sheild7.0**************
- 秘技:如何用VB获得Windows各类系统目录,散分了,看过的人都有分
- ftp上传
- VB程序能否接受命令行参数(XXX.exe 7,"Bill Gates")?怎么在程序中接收这些参数?
- CC2530的板子做温度采集
- 我用rS485如何采集数据,是不是要发送命令才可以采集到数据啊,命令该如何写才可以采集到数据?
ReDim Preserve A(S) ''保留数据扩展数组,第一次S=0,然后要求输入字串,无字串则退出
A(S) = InputBox("请输入字符串,输入空串时结束", "输入") ''''求输入
S = S + 1 ''维数递加
Loop Until A(S - 1) = "" ''最后一维为空则退出S=S+1,为扩展数组做准备......