【正文】
= UCase$() End Sub Private Sub Command2_Click() = LCase$() End Sub 程序運行結(jié)果如圖 39 所示: 圖 38 程序運行結(jié)果 圖 39 程序運行結(jié)果 。 x 平方根為 。 Tab(15)。 ******** Tab(6)。 【 參考答案】 ( 1)用戶界面設(shè)計 ( 2)控件屬性設(shè)置(略) ( 3)程序代碼設(shè)計 (說明:存款按單利計算) Private Sub Command1_Click() a = p = t = a = a + a * p * t 圖 31 程序運行結(jié)果 = a End Sub 程序運行結(jié)果如圖 32 所示: 3. 4 試編寫打印下面三角形圖案的源程序。 【參考答案】 ( 1)用戶界面設(shè)計 ( 2)控件屬性設(shè)置(略) ( 3)程序代碼設(shè)計 Private Sub Command1_Click() Sum = * + * + * = Sum End Sub 程序運行結(jié)果如圖 31 所示 3. 3 小王有存款 A 元,年利率 P,存儲時間 T 年,試編程求本利合計。 * * * * * * * *