dkfr.net
当前位置:首页 >> VB iF语句中怎么循环啊 >>

VB iF语句中怎么循环啊

定义n为全局变量或局部静态变量。 局部表态变量如下写: Private Sub Timer1_Timer() static n as intger ''''''''''''''''''''''''''''''' If Label4.FontSize < 100 Then Label4.FontSize = Label4.FontSize * 10 Else

If allfenlei(c) = "" Then Exit For '如果你是一句写完,就不需放end if...反之就要。。 If allfenlei(c) = "" Then Exit For End If

代码错了 for i=1 to 30 '正确 for j = 0 to (k-1) if a(j),math(i) then '格式为 if……then …… end if If math(i)

这样是无法完成的.因为无法通过编程限定b的范围, 不过你可以根据a的大小判断b的范围,也就是 If a > 0 Then '表示b在0到180之间 Msgbox "0

Private Sub Command1_Click() a = CInt(Text1.Text) b = CInt(Text2.Text) If b > a And b / a < 1.2 Then Label3.Caption = "警告,您的车速超过限速!" Else If b / a >= 1.2 And b / a < 1.5 Then Label3.Caption = "您的车速超过限速20%,...

用Exit For语句可以退出For循环。这个语句可以用在For ... Next和For Each ... Next循环中。 【例】检查整型数组a中的元素是否全部都大于100? Dim a(1 To 10) As IntegerDim i As IntegerDim b As Booleanb = TrueFor i = 1 To 10 If a(i)

Private Sub Text1_KeyPress(keyascii As Integer) Select Case Len(Text1.Text) Case 0 If keyascii < 49 Or keyascii > 57 Then keyascii = 0 Case 1 If keyascii < 48 Or keyascii > 57 Then If keyascii 8 Then keyascii = 0 End If End If ...

if并不能构成循环。 如非要用if来实现循环的话,那只有条件转移了。 以下是求1~100的和: Private Sub Command1_Click() s = 0 i = 1 cont: s = s + i i = i + 1 If i

两种: 1、for 循环变量=初值 to 终值 [step 步长] 知道循环的次数 语句块 [exit for] '配合着if then 使用,当符合某一条件是,跳出循环 语句块 next 循环变量 2、不知道循环的次数 (1) do while 条件语句 语句块 [exit do] '配合着if then 使...

For i = 1 To 1000 If i Mod 80 = 0 Then Print i Exit For End If Next i

网站首页 | 网站地图
All rights reserved Powered by www.dkfr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com