www.ndwl.net > 一道VB求详解

一道VB求详解

B call s1就是跳到Private Sub s1() x=10+20=30 再跳到s2过程 S2里的X是局部变量,与上面的全程变量没关系。 所以X还是=30

Private Sub Command1_Click() Dim i As Integer, k As Integer For i = 1 To 200 If fsqr1(i) Then k = k + 1 List1.AddItem i End If Next i Text1.Text = kEnd SubPrivate Function fsqr1(x As Integer) As Boolean Dim flag As Boolean, m A...

S=S+X 每次内循环加一次外循环变量X,第一内循环只进行一次,X=1,加1,第二次内循环两次,这时x=2,所以加两次2,第三次内循环三次,X=3,所以加三次3.连起来就是1+2+2+3+3+3=14

第一题 Private Sub Form_Click() Me.Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Me.Label1.Caption = "你双击了窗体" End Sub 第二题 Private Sub Command1_Click() If Me.Command1.Caption = "清屏" Then Me.Cls M...

s = Trim(Text1.Text) Do While Len(s) > 0 m = InStr(s, Space(1)) ‘找空格 If m = 0 Then ’没有空格,那么整个一个单词,结束循环 word_s = s s = "" Else ‘找到空格 word_s = Left(s, m - 1) '取空格以左的内容,分离出一个单词 s = Mid(s, m...

Private Sub Command1_Click()If Text3.Text Label1.Caption Then '第1空 If Text3.Text #####[1]#####.Caption ThenMsgBox "验证码不正确,请重新输入!"Rem 输入验证码文本框要获得焦点Text3.SetFocus '第2空 Text3.#####[2]#####Text3.SelStar...

Private i As Integer Private Sub Command1_Click() If Picture1.Left < 0 Then Command3.Visible = True Else Picture1.Left = Picture1.Left - 100 End If End Sub Private Sub Command2_Click() Picture1.Left = Picture1.Left + 100 End Su...

DIM LTIME AS LONG private sub form_load() ltime=60 end sub private sub cmd1 _click() ltime = 0 '数据归0 ltime= 60 '可把60改为其他值 end sub private sub timer1_timer() ltime = ltime - 1 if ltime

赋值语句中,赋值号左边必须是一个变量,而不能是其它表达式。x+y不是一个变量,所以错了。 π不是一个合法的变量名。 3y不是一个合法的变量名。

单击窗体后,则在窗体上显示的结果是 10 Private Sub Form_Click() For i = 1 To 20 If fun1(i) Then '如果 i 是偶数 s = s + 1 '那么 s 加一 End If Next i Print s '最终结果:10,因为1~20之间有10个偶数 End Sub Private Function fun1(y) ...

网站地图

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021。
www.ndwl.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com