8. Static Private Sub cmdSum_Click() Dim Sum as integer Sum=2*Sum+1 End Sub
问：第三次单击命令按钮cmdSum后，Sum的值为： 7。
9．声明单精度常量g(重力加速度)代表9．8可写成：const g=9.8。
10．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:\\windows\\notepad.exe,可在程序代码窗口必要的地方添加语句：shell(“c:\\windows\\notepad.exe”)。
五、 程序填空题（每小题9分，共18分）1.从计算机输入三个数,找出中间数 Private Sub FindMidNum( )
X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER) IF（ X IF （Y>=Z）THEN PRINT Y ELSEIF （ X>=Z ） THEN PRINT Z ELSE PRINT X ENDIF End Sub 2. 打印以下杨辉三角形 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 Dim Q() As Integer N = InputBox(\ReDim Q(N, N) For I = 1 To N For J = 1 To N Q(I, J) = （ 0 ） Next J Next I For K = 0 To （ N – 1 ） Q(K + 1, 1) = 1 Print 1; For I = 1 To K Q(K + 1, I + 1) = （ Q(K, I + 1) ） + Q(K, I) Print （ Q(K + 1, I + 1) ） Next I Print Next K 二、填空 2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是_ IIF(int(x) mod 2=0,int(x)+2,int(x)+1)。 3． a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是:__ a1=a3 xor a2=a3。若a1和a2之中没有一个与a3的值相等，则相应的表达式是：__ a1<>a3 and a2<>a3___。 4．设init的初值为10，则由下列循环语句控制的循环次数是__6__。 Do While init>=5 init=init-1 Loop 5.在Visual Basic 中，变量从它的作用范围来看，可分为 _全局变量___、_模块级变量_____和___过程级变量__ 三种。 6．语句Picture1.Circle(800,1000),500的含义是 _以圆心为（800，1000）半径为500的圆_。 7．声明定长为10个字符变量Sstr的语句为：_ Dim Sstr as String*10_。 三、程序阅读题，阅读下列程序书写结构。 程序1 Private Static Sub Command1_Click() Dim x As Integer, s As Integer x = Val(InputBox(\请输入一个正整数＝\If x < 5 Then s = s * x Else s = s + x End If Text1.Text = \End Sub 程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。 结果：（ s=5 s=10 s=40 ） b) 程序2 Private Sub Form_Click() Form1.Cls w = 3 For k = 2 To 6 Step 2 Form1.Print \ w = w + 1 Next k Form1.Print \End Sub 写出程序运行时单击窗体后，Form１上输出结果。 结果为：（ w=3 k=2 W=4 k=4 W=5 k=6 W=6 k=8 ） c) 程序3 Rem 在窗体的通用声明区声明两个模块级变量a和y Dim a As Integer, y As Integer Private Sub Form_Load() Open \Close #1 End Sub Private Sub Command1_Click() Open \ Call aa(5) y = y + a Print #1, \End Sub Sub aa(i As Integer) x = 1 Do Until x > i a = a + x x = x + 3 Loop End Sub 写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果为：（ y=5 a=5 y y=15 a=10 y y=30 a=15 ） 五、 程序填空题（每小题9分，共18分） a) 程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表， 如图１所示。单击“开始“命令按钮，秒表开始计时 ，单击“结束“命令按钮， 秒表结束计时，并在标签框显示运行时间，如“运行了０小时２分１０秒“。 （假设对象的属性都在程序代码中设定）。 Dim x As Long Dim h As Integer, m As Integer, s As Integer Private Sub Form_Load() Form1.Caption = \动态秒表（小时：分：秒）\Command1.Caption = \开始[&S]\Command2.Caption = \结束[&E]\Label1.Alignment = 2 '居中对齐 Label1.Caption = \timer1.Interval =__1000______ Timer1.Enabled = False x = 0 End Sub Private Sub Command1_Click() _ timer1.enabled=True ___ End Sub Private Sub Command2_Click() Timer1.Enabled = False x=_0___ Label1.Caption = \运行了\小时\分\秒\End Sub Private Sub Timer1_Timer() x = x + 1 h=_x\\3600______ m = (x Mod 3600) \\ 60 s=_(x mod 3600) mod 60__ Label1.Caption = Str(h) + \End Sub b) 程序说明: 已知自然对数的底数e的级数表示如下: e=1+1/1!+1/2!+1/3!+......+1/n!+..... 本程序利用函数过程fact()求e，其中绝对值小于1E-8的项被忽略。 程序代码如下: Private Function fact(m As Integer) As Single ' 求Ｍ！的函数 Dim x As Single, i As Integer x = 1 for i=1 to m : x=_x*i__ :Next i