Visual Basic程序设计教程：第四章 Visual Basic的基本控制结构.pptVIP

* a=val(mid(cstr(i),1,1)) b=val(mid(cstr(i),2,1)) c=val(mid(cstr(i),3,1)) * 先板书演示计算过程，注意设进位标志单元D * /user_show/id_UMTU4ODUyNzk2.html * 例1：产生10个20~50随机整数，打印在窗体上，并指出最大值和最小值。 [分析]： 1. 要求得到10个随机数，用记数循环——FOR语句实现。 2. 产生随机整数的方法是 x = Int（（上界 -下界+1）*Rnd）+下界 必须和Randomize语句配合使用。 3. 要求出最大值和最小值，则每产生一个随机数，即与已知的最大数、最小数比较，若它大于已知的最大数，则它是新的最大数；若它小于已知的最小数，则它是新的最小数。 * Private Sub Form_Click() Dim i As Integer, x As Integer, Dim max As Integer, min As Integer For i = 1 To 10 x = Int(Rnd * 31) + 20 Print x; Next I Print Pr