VB语言程序设计2008(第二章).pptVIP

第二章 VisualBasic 语言基础 常量、变量、运算符和表达式 赋值与注释语句和一句多行与一行多句 基本控制结构 常用内部函数 输入与输出 数组 算法举例 2. For循环 语法： For 循环控制变量=循环初值To循环终值[Step 步长] [循环体] [Exit For] Next 变量 For语句的执行步骤： Step 1：设置循环控制变量为循环初值 Step2：如果步长为正，判断循环控制变量是否大于循环终值，如果 步长为负，判断循环控制变量的值是否小于循环终值，如果是，退出 循环，否则，执行循环体。 Step3：循环控制变量=循环控制变量+步长 Step4：goto step2 注：步长可以为负，步长缺省时为1 For i = 1 To 5 Print this is the , i, execute Next i Print For i = 1 To 5 Step 2 Print this is the , i, execute Next i Print For i = 1 To 5 Print this is the , i, execute If i = 3 Then Exit For End If Next i Sum=0 For i = 1 To 100 sum=sum+i Next I Sum=0 For I=100 to 1 step –1 Sum=sum+I Next I 设计一个摇奖程序，随机生成一个N位的中奖号码。 Const N = 5 Private Sub cmdStart_Click() Dim i, j As Integer Dim a As Single Dim StrPrize As String For i = 1 To N j = Int(10 * Rnd) StrPrize = StrPrize j For a = 1 To 10000 Step 0.01 Next a Number.Text = StrPrize Number.Refresh Next i End Sub 3. 退出循环 语法： Exit For Exit Do 说明：Exit语句几乎总是出现在循环体内的嵌套的if语句 例： Dim I,sum as integer Sum=0 For I=1 to 10000 SUM=SUM+1 IF sum5000 then exit for Next i 内部函数：VB提供的函数 函数调用：函数名（参数1，参数2……） 2.4.1 算术函数 VB提供的进行算术运算的函数。 2.4常用内部函数 2.4.2 字符串函数 VB提供的进行字符串处理的函数。 2.4常用内部函数 例:s$ = 大连水产学院AbCd信息工程学院 Print LTrim(s) Print RTrim(s) Print Trim(s) Print Left(s, 5) Print Right(s, 6) Print Mid(s, 6, 4) Print Len(s) Print LCase(s) Print UCase(s) Print String(8, X) Print Len(Space(5)) 例:设计一个将输入的字符串反向显示的程序 Private Sub cmdStart_Click() Dim str, strReverse As String Dim I,n As Integer str = txtInput.Text: n = Len(str) For i = 1 To n strReverse = strReverse Right(str, 1) str = Left(str, Len(str) - 1) Next i txtOutput.Text = strReverse End Sub 例:译电文,为了保密,在电文传输过程中往往将电文加密,收电文时再转换回来。比如:按下列规律译：A变成E，B变成F，……， W变成A， X变成B， Y变成C， Z变成D。 Private Sub cmdStart_Click() Dim SourceStr, SecretStr As String Dim i As Integer SecretStr = Sourc