vb的问题，我在程序中输入的代码如下，主要是那个index属性怎么弄的？
来自： 更新日期：早些时候
vb中index属性0，1，2，都是什么意思啊~
如果你已经建立了六个Option控件但Name属性不同，那么可以直接选中这六个Option控件，在属性窗口改Name属性为Option1，分别改Index属性为0、1、2、3、4、5即可。
将你要组成控件数组的所有Option控件 名称设置为 Option1 系统会自动设置其index属性
或者你自行修改 属性栏中的index
vb的问题，我在程序中输入的代码如下，主要是那个index属性怎么弄的？视频
相关评论：15318594569：在vb程序设计中做!!! 输入某班级n个学生的成绩到数组X中,求成绩的标准...
鬱哑凯yixiaopao - 江湖新秀 四级很搞笑。估计没学过VB 你如果要在INPUTBOX里输入的东西变成*号 保护隐私你可以 在模块中添加这些代码 Option Explicit Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, ...
15318594569：vb程序问题如何在一个文本框中输入两个不同的数字
鬱哑凯Print #1, Text1.Text Close #1 Open "C:\\Documents and Settings\\Administrator\\桌面\\新建 文本文档.txt" For Input As #1 Line Input #1, a Line Input #1, b Close #1 MsgBox a * b End Sub 感觉这样太麻烦了。text1.text属性药设置成多行，multline=true, text1.text中输入一个数...
15318594569：VB编程问题! 如何在文本框中输入号后直接按回车开始计算
鬱哑凯你按alt+那个字母，效果等同鼠标点击那个按钮。VB里也可以，不过只能用alt+ 一个字母的形式做快捷键啦。还是用例子说吧，你的command1要用alt+x来做快键，就在caption的属性里加 &x ，它就能出现一个带下划线的x。加 &Y 就是带下划线的Y。你可以再试试。这样设的好处是，代码都省了。
15318594569：VB 问题(为什么在Form 的 Load事件中输入以下代码,却不能执行?_百度知 ...
鬱哑凯不是不执行 只是被刷掉了 要么设置Me.AutoRedraw = True 要么先me.show显示窗体后再执行print Private Sub Form_Load()Me.AutoRedraw = True sample = "vwxyzq"x = (ScaleWidth - TextWidth(sample$))\/ 2 y = (ScaleHeight - TextHeight(sample$))\/ 2 CurrentX = x CurrentY = y Print ...
15318594569：如何在VB程序中的文本框内输入一段文字,请大家帮忙看看,谢谢
鬱哑凯你要的是在程序加载时候，TEXT中预先存在的文字 ，还是想通过程序使TEXT中出现一组文字？第一种：在VB中，编辑状态下，单击你所需的TEXT控件，将属性中的text后面的TEXT1更改为你想要输入的文字。第二种：text1.TEXT="要输入的文字"
15318594569：VB小程序, 当我在youku搜索栏输入要找的视频的时候,按enter或按搜索会...
鬱哑凯Dim a As String Private Sub Command1_Click() '剪切 a = Text1.SelText Text1.SelText = ""End Sub Private Sub Command2_Click() '粘贴 Text2.Text = Text2.Text & a End Sub
15318594569：急!!!关于vb
鬱哑凯我的vb程序,在装有vb机子上打开.exe文件时没有问题。但是在没有装vb的机子上.exe就打不开。怎么回事啊?怎么解决呢?重新生成了一个.exe也不管用郁闷谢谢大家,多多帮忙啊... 我的vb程序,在装有vb机子上打开.exe文件时没有问题。但是在没有装vb的机子上.exe就打不开。怎么回事啊?怎么解决呢?重新生成了一个...
15318594569：VB的排序问题
鬱哑凯试试我的办法：在窗体上建立一个text，和一个command1 然后在command1的单击事件写如下代码：dim a() as string,i%,b() as integer a=split(text1," ") '在text1里直接输入输入数，同时数之间要以空格（一个空格）隔开 for i=lbound(a) to ubound(a)b(i)=val(a(i)) 'b是一...
15318594569：用VB 怎样编写下面这个程序:从键盘上输入字符时,在窗体上显示出所键入...
鬱哑凯Private Sub Form_KeyPress(KeyAscii As Integer)Print "Ascii: " & KeyAscii & ", 字符:" & Chr(KeyAscii)End Sub
15318594569：VB问题:编一程序输入上网的时间并计算上网费用,计算的方法如下:
鬱哑凯dim x ,y as single select case x case is<10 y=30 case is<=50 y=2.5*x case else y=2*x end select if y>150 then y=150 label1="你这个月的上网费用是"+str(y)
Index的意思就是索引，说得通俗点就是编号或序号，VB中的序号通常是从0起算的。
你是怎么触发Change事件的，这里的代码没有触发该事件。只有在改变Combo1.Text的值时才会触发。比如在load时件中加一句 combo1.listindex=1就会触发它。
添加Option控件并命名为Option1，然后选中该控件复制、粘贴，VB会提示你是否建立控件数组，选择是，继续粘贴，直到总共有六个同名Option控件为止，Index属性自动从0到5。如果你已经建立了六个Option控件但Name属性不同，那么可以直接选中这六个Option控件，在属性窗口改Name属性为Option1，分别改Index属性为0、1、2、3、4、5即可。
将你要组成控件数组的所有Option控件 名称设置为 Option1 系统会自动设置其index属性
或者你自行修改 属性栏中的index
vb的问题，我在程序中输入的代码如下，主要是那个index属性怎么弄的？视频
相关评论：
鬱哑凯yixiaopao - 江湖新秀 四级很搞笑。估计没学过VB 你如果要在INPUTBOX里输入的东西变成*号 保护隐私你可以 在模块中添加这些代码 Option Explicit Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, ...
鬱哑凯Print #1, Text1.Text Close #1 Open "C:\\Documents and Settings\\Administrator\\桌面\\新建 文本文档.txt" For Input As #1 Line Input #1, a Line Input #1, b Close #1 MsgBox a * b End Sub 感觉这样太麻烦了。text1.text属性药设置成多行，multline=true, text1.text中输入一个数...
鬱哑凯你按alt+那个字母，效果等同鼠标点击那个按钮。VB里也可以，不过只能用alt+ 一个字母的形式做快捷键啦。还是用例子说吧，你的command1要用alt+x来做快键，就在caption的属性里加 &x ，它就能出现一个带下划线的x。加 &Y 就是带下划线的Y。你可以再试试。这样设的好处是，代码都省了。
鬱哑凯不是不执行 只是被刷掉了 要么设置Me.AutoRedraw = True 要么先me.show显示窗体后再执行print Private Sub Form_Load()Me.AutoRedraw = True sample = "vwxyzq"x = (ScaleWidth - TextWidth(sample$))\/ 2 y = (ScaleHeight - TextHeight(sample$))\/ 2 CurrentX = x CurrentY = y Print ...
鬱哑凯你要的是在程序加载时候，TEXT中预先存在的文字 ，还是想通过程序使TEXT中出现一组文字？第一种：在VB中，编辑状态下，单击你所需的TEXT控件，将属性中的text后面的TEXT1更改为你想要输入的文字。第二种：text1.TEXT="要输入的文字"
鬱哑凯Dim a As String Private Sub Command1_Click() '剪切 a = Text1.SelText Text1.SelText = ""End Sub Private Sub Command2_Click() '粘贴 Text2.Text = Text2.Text & a End Sub
鬱哑凯我的vb程序,在装有vb机子上打开.exe文件时没有问题。但是在没有装vb的机子上.exe就打不开。怎么回事啊?怎么解决呢?重新生成了一个.exe也不管用郁闷谢谢大家,多多帮忙啊... 我的vb程序,在装有vb机子上打开.exe文件时没有问题。但是在没有装vb的机子上.exe就打不开。怎么回事啊?怎么解决呢?重新生成了一个...
鬱哑凯试试我的办法：在窗体上建立一个text，和一个command1 然后在command1的单击事件写如下代码：dim a() as string,i%,b() as integer a=split(text1," ") '在text1里直接输入输入数，同时数之间要以空格（一个空格）隔开 for i=lbound(a) to ubound(a)b(i)=val(a(i)) 'b是一...
鬱哑凯Private Sub Form_KeyPress(KeyAscii As Integer)Print "Ascii: " & KeyAscii & ", 字符:" & Chr(KeyAscii)End Sub
鬱哑凯dim x ,y as single select case x case is<10 y=30 case is<=50 y=2.5*x case else y=2*x end select if y>150 then y=150 label1="你这个月的上网费用是"+str(y)
