Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))VB的一个程序

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/28 10:46:50
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))VB的一个程序
xS]@+d ]c|4&_ kB@ M@(B0aUԠnѠRtiӁďgcsOo9N($o3SSt J%'M?ȤeFEEv!`+er e`s%h=1sTj/5;b_s?݃dwy[!~Mic?/q3^3jrnT{j^6$W^^5m<6\ݴc@56ݾkn,jv]cºKD%o6,Q- [YR 8m h!Swa|"pi 6U-  sDaur,CLb0IT#L<$"`IxO,|i 9TQ,ql 9Ey 뵝6kT~sF5AkOŒ;Dn^ᅽh7Sgn8#˙Da!KzO;

Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))VB的一个程序
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
VB的一个程序

Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))VB的一个程序
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
这就是个绕弯子的程序,没什么意义,考你的理解能力的.严格的说,这个程序可能有错误,Dim m(10)应该改成Dim m(1 to 10),否则m的下标范围是m(0 to 9),m(10)=11-k会出错误.不谈这个错误,说下程序的意思：
for的循环是给m(1)到m(10)赋值,成为：
m(1)=11-1=10
m(2)=11-2=9
m(3)=11-3=8
m(4)=7
m(5)=6
m(6)=5
m(7)=4
m(8)=3
m(9)=11-9=2
m(10)=11-10=1；
然后赋值x=5
最后m(2+m(x))=m(2+m(5))=m(2+6)=m(8)=3
明白了吗?下次拜托把程序贴到内容栏里,别贴题目上太累眼神了.

Command1.Caption是什么意思Private Sub Form_Load() Text1.Text = 0 Text2.Text = 0 Text3.Text = 0 Command1.Caption = 计算 End Sub其中的command1.caption 是什么意思啊 菜鸟请教高手 说详细点 Private Sub 与 Sub的区别 解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,n...解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,next k ,next j ,next i ,text1 .text =str(x 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程：Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,窗体上显示的是 A VB 请大家分析一下我写的代码 哪里错误static a,b,c as integera=3:b=4:c=5private sub command1 _click()msgbox a*2+bend sub为什么答案上写的是用 dim myval 而且使用的是 const myvla Debug.Print Private Sub Form_Click()和Private Sub Command1_Click()有什么区别?什么时候用Form?什么时候用Command Private Sub Form_click()得到一组随机变量,怎样用到Private Sub Command1_Click()中去啊 当条件为真时执行Then后面的语句或语句组,否则执行后续语句 这句话怎么理解?谢谢我是新手,拜托各位高手!Private Sub Command1_Click()If Command1.Caption = 清除 ThenStoreString = Text1.TextText1.Text = '清 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1）,然后编写如下两个事件过程：Private Sub Command1_Click()a = Text1.Text + Text2.Textb = Text1.Text Private Sub Command1_Click()Dim total As Integertotal = s(1) + s(2)Print totalEnd SubPrivate Function s(m As Integer) As IntegerStatic x As IntegerFor i = 1 To mx = x + 1Next is = xEnd Function单击Command1三次的结果 这个vb计算题我算出来和答案不一样,请高手给我看看哪里出错了在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 VB里的sub单词是什么意思,比如private sub……、end sub Dim a1(10),a2(10) For i=1to10 a1(i)=3*i a2(i)=a1(i)*3 Next i Text1.Text=Str(a2(i/2-0.1))Private Sub Command1-Click()Dim a1(10),a2(10) For i=1to10a1(i)=3*i a2(i)=a1(i)*3Next iText1.Text=Str(a2(i/2-0.1))End Sub程序运行后显示（B）A 36 B 45 C 54 英语翻译控制标签移动private sub timer1_timer()if label1.left VB里的“Private Sub Command1_Click()”是什么意思?那个横, Private Sub Form_Load() 的意思具体是什么啊,sub的意思是什么啊? 英语翻译Private Sub Combo1_Click()Text1.SetFocusOption1.Value = TrueText1.Locked = FalseEnd Sub Private Sub Text1_Click() If Text1.Text = 请输入 Then Text1.Text = End Sub这条语句的作用是什么Private Sub Text1_Click()If Text1.Text = 请输入 Then Text1.Text = End Sub