vb6.0框架下，有a1="xxx" a2="xxxx"........ a100="xxxxx" 现在想用msgbox显示里面的内容
vb6.0的程序
a1="xxx"
a2="xxxx"........
a100="xxxxx"
一个变量命名为b(b里为随机的1-100的数字),需要用msgbox显示a1-a100里面的内容，其中a1-a100选取的数字以b为准，请问这种问题该怎么处理，高手们帮帮忙，谢谢了
我尝试过这样做:
msgbox "a" & b
但是输出的数值是"a100"（这里假设变量b中的数字为100）,并不是我想要的a100中的"xxxxx"
Dim a(100) as String
a(0)="xxx"
a(1)="xxxx"
.....
a(99)="xxxxxx"
需要的时候就可以 msgbox a(b) 其中0≤b≤99
如果坚持那样，似乎在VB有点麻烦，其他编程语言可以用eval解决。
具体参考 http://zhidao.baidu.com/question/94872081.html
Private Sub Command1_Click()
a100 = "xxxxx"
b = "a"
c = "100"
MsgBox CallByName(Me, b & c, VbGet)
End Sub
更多VB代码可参阅我的博客：http://hi.baidu.com/zgmg/blog/item/63629751c4906406377abe46.html
...="xxxx"... a100="xxxxx" 现在想用msgbox显示里面的内容
a(0)="xxx"a(1)="xxxx"...a(99)="xxxxxx"需要的时候就可以 msgbox a(b) 其中0≤b≤99 如果坚持那样，似乎在VB有点麻烦，其他编程语言可以用eval解决。具体参考 http:\/\/zhidao.baidu.com\/question\/94872081.html
vb6.0:想编个vb程序用来识别并标记出一份Excel表格里面的重复项,怎么...
Sub 查找重复行()Dim a As Integer Dim i As Integer Dim str As String a = Range("a65536").End(xlUp).Row '计算数据行数 Cells(1, 255).FormulaArray = "=SUM(IF($A$1:$A$" & a & "=A1,IF($B$1:$B$" & a & "=B1 ,1,0)))" '在辅助列上写入多条件统计公式 ...
VB6.0 MsgBox函数使用方法
兄弟，VB6.0代码脱离不了事件。也就是说，你的代码光秃秃一片，不放在某个事件里面是不行的。这样修改就可以了。Private Sub Form_Load()MsgBox "你好"End Sub
vb6.0中如何使用sql语句(急,只要告诉我把代码放在哪就行)
首先的逻辑思维就不正确。比如我用mshflexgrid1显示你的数据 就可以这样写 set mshflexgrid.datasource=Adodc1.RecordSource 现在已经很少人用adodc控件了 一般用 adodb组件 我现在告诉你一种方法 你在vb的工程中 工程-引用 添加micfosoft activex data objects 2.5 library然后在你想要显示数据的某个过...
...里面没有匹配的就会提示错误,怎么写可以用MSGBOX提示?
Excel VB参考手册中有如下示例：示例 本示例在工作表的单元格区域 A1:A500 中查找包含值 2 的所有单元格，并将这些单元格的值更改为 5。With Worksheets(1).Range("a1:a500")Set c = .Find(2, lookin:=xlValues)If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set ...
如何用vb6.0编写记事本
If KeyCode = vbKeySpace Then RichTextBox1.SelFontName = CommonDialog1.FontName End If End Sub 至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感? 当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。 第二章 美化程序界面...
VBS 怎么判断4个数中,有三个一样,或是有两个一样,或是各不相同?
a1=14 a2=12.23 a3="Hello" 而不用像C语言那样麻烦: 或者是VB的正规声明(VB可以声明也可以不用)那样: int a1; Dim a1 as integer float a2; Dim a2 as Double char* a3; Dim a3 as strnig a1=14; a1=14 a2=12.23; a2=12.23 a3="Hello"; a3="Hello" 嗯……扯远了…… 变量有什么用呢?
用vb,如何快速获得excel中 一列数据的最大值。
Sub TT()Dim ZX ZX = Sheet1.Application.Min(Range("A1:A100"))Cells(2, 2) = ZX MsgBox "A1:A100最小值是" & ZX End Sub 差不多的可以用APPLICATION 来实现 可以把单元格B2赋值A1:a100最小 也可以MSGbox显示出来 但是主要是你的区域 固定区域好写 区域变动的难点 ...
vb 复制文件的问题
现在没装VB,猜一下.FileCopy 旧文件,新文件 你的好像错了...label1="更新中"newfilename=XXXXXXXXXXXXXXXXXXXX oldfilename=XXXXXXXXXXXXXXXXXXXX MsgBox "更新完毕请重新登录", vbOKCancel doevents '试试加这一句 FileCopy newfilename, oldfilename end ...
...字符串还是数字,并把判断的结果用msgbox弹出窗口显示。
Private Sub Command1_Click()If Text1 = "" Then MsgBox "无内容": Exit Sub If IsNumeric(Text1.Text) Then MsgBox "是数字" Else MsgBox "不是数字"End Sub
