『紧急求助』解一个vb问题，求结果。可以解读下吗？private sub command1_click(),a=array(1,2,3,4,5,6...

VB里的“Private Sub Command1_Click()”是什么意思？~

意思就是：当你用鼠标点击名为Command1的按钮时，就执行这一行下面的多行代码，直到遇到End Sub结束。
那个下划线（也就是“横”）左边的是控件名（Command1），右边的是事件（Click），括号里包含的是参数（空白就表示没有参数）。

扩展资料：常用的vb语言代码
abs（num）： 返回绝对值
sgn（num）： num〉0 1; num=0 0; num〈0 -1;判断数值正负
hex（num）： 返回十六进制值 直接表示：&Hxx 最大8位
oct（num）： 返回八进制值 直接表示：&Oxx 最大8位
sqr（num）： 返回平方根 num〉0
int（num）： 取整 int（99.8）=99; int（-99.2）=100
fix（num）： 取整 fix（99.8）=99; fix（-99.2）=99
round（num，n）： 四舍五入取小数位
mid（str，起始字符，［读取长度］）：截取字符串中间子字符串
left（str，nlen）：从左边起截取nlen长度子字符串
right（str，nlen）：从右边起截取nlen长度子字符串
InStr（［起始字符，］str，查找字符串［，比较方法］）：检测是否包含子字符串 可选参数需同时选 返回起始位置
InStrRev（str，查找字符串［，起始字符］［，比较方法］）：反向检测是否包含子字符串 返回起始位置 space（n）：构造n个空格的字符串
string（n，str）：构造由n个str第一个字符组成的字符串 StrReverse（str）：反转字符串
split（str，分割字符串［，次数］［，比较方法］）：以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选

根据你的代码，你的题意是当Combo1中选择了某项时，将此项加入到List1中，所以，应该是不需要循环的。用以下代码即可。
Private Sub Command1_Click()
If Combo1.ListIndex Then
List1.AddItem Combo1.List(Combo1.ListIndex)
End If
End Sub


另外Combo1是没有Selected(i)属性的，可以使用Combo1.ListIndex来表示当前选择的项索引；
因Combo1是控件名，所以Combo1(i)是用来表示控件数组的，Combo1(i)不能用来表示取得Combo1控件中的项，可以使用Combo1.List(i)得到。

单击按钮后输出结果：18。解析：a = Array(1, 2, 3, 4, 5, 6, 7) '给数组赋值，a(0)到a(6)的值别为1至7。for.....Next是循环从数组中取值并累加。s初始未赋值，默认为0。循环累加的结果是0+3+4+5+6＝18.

首先array是数组的意思后加（）给数组赋初值，所以a必须是变体。接着是循环，k从2到5，因为没有加option base 1,所以数组从0开始算即a（2）=3，所以从2到5即是3+4+5+6=18.能懂吧！好好学，vb不难。注意分析题目。

a = Array(1, 2, 3, 4, 5, 6, 7) '给数组赋值，a(0)到a(6)分的值别为1至7
For k = 2 To 5
s = s + a(k)
Next '循环给s赋值k=2时s=s+a(2)=0+3=3,k=3时s=s+a(3)=3+4=7,k=4时s=s+a(4)=7+5=12,k=5时

private sub command1_click(),
a=array(1,2,3,4,5,6,7)
A1=1，a2=2 ,a3=3,a4=4,a5=5,a6=6,a7=7

,for k=2 to 5
,s=s +a(k),
next
s=0+2
s=2+3
s=5+4
s=9+5

,print s
打印14
,end sub

---

衡东县15649598896： 「紧急求助」解VB程序,给出解析.private sub command1 - click(),for i =1 to 4 ,for j =1 to 3,x =3 ... - ？
梁溥复方： Private Sub command1_click() For i = 1 To 4 For j = 1 To 3 x = 3 '每次J循环X值重新赋值 取最后一次循环 I=4 J=3 For k = 1 To 2 x = x + 3 'K循环2次 结果为9

衡东县15649598896： 求解vb题目 写出程序运行结果并解释 - ？
梁溥复方： 1、运行结果:a= 4 b= 6 c= 6 a= 8 b= 6 c= 6 2、ByVal 和 Byref 代码中,定义了两个内部实现代码完全相同的 Sub 过程 p1 和 p2,区别在于这两个过程的参数定义:p1 采用了默认传递(即 Byref 地址传递方式),p2 采用了 ByVal 值传递.ByVal...

衡东县15649598896： [紧急求助]求VB程序运行结果和解析,dim x as integer ,dim i as integer ,x =100 ,fori =1 to 100 st... - ？
梁溥复方： Dim x As Integer '定义变量x Dim i As Integer '定义循环变量i x = 100 '变量x赋值为100 For i = 1 To 100 Step 5 '循环变量i从1到100,每循环一次加步长5 x = x - i / 6 Next i Print x '输出变量x的值

衡东县15649598896： [紧急求助]求一个vb问题private sub command1 - click(),for i =1 to 2 ,for j =1 to i ,print string ... - ？
梁溥复方： string 函数只能用字符,所以你的 string(i,＂hello＂)=string(i,＂h＂) 别的应该没问题吧

衡东县15649598896： 一道VB的题目,紧急求助.？
梁溥复方： for循环结束后k=0 那么k=k+7=0+7=7 所以a(k-a(k))=a(7-a(7)) a(7)=20-2*7=20-14=6 因此a(7-a(7))=a(7-6)=a(1)=20-2*1=18

衡东县15649598896： 求解VB题目 ,急求 - ？
梁溥复方： 1. private sub form1_click () dim a (1 to 80) as integer for i = 1 to 80 a(i)=int ( rnd*1000) '产生1000以内的随机数 if i mod 10= 0 then ' 是否换行输出 print a(i) ;＂ ＂; print else print a(i); ＂ ＂; end if next i end sub

衡东县15649598896： vb题目求运行结果.... - ？
梁溥复方： 当 i = 1 时,k = 2,a =2当 i = 2 时,k = 5,a =7当 i = 3 时,k = 9,a =16 这些都是基于第一次点击控件后得到的结果.

衡东县15649598896： 一道vb题求解？
梁溥复方： 这道题里选C,也可以用'+'拼接如 print Text1.Text + Text2.Text 若Text1.Text=35 Text2.Text=43那么结果就是78,和用val()函数得到的结果是相同的

衡东县15649598896： 紧急求助!!!!!VB求和:S=2/3=4/9+6/27+8/81+..... 保留小数点后三位 - ？
梁溥复方： dim i as integerdim S as longS=0for i=1 to n 'n为自己定义的一个较大的数 S=S+i*2/...

衡东县15649598896： [vb紧急求助]求解题方法:dim x as integer dim i as integer x =100 for i =1 to100 step 5 ,x =x - ... - ？
梁溥复方： Dim x As Integer Dim i As Integer x = 100 For i = 1 To 100 Step 5 x = x - i / 6 Next i Print x 因为x已经定义是整型Integer,所以在计算时,对小数点后1位四舍五入...1.5 => 21.49 => 1