kexr8=s+1/(1+k*4) Print s=": Format(s, ## 00") 2.程序代码如下: Private Sub Form Load Dim i As Integer, a As Integer, b As Integer, c As Integer a= Int(i/ 100) b=Int((i-100*a)/10) i-100 10*b If a a a+ b*b*b+ c*=c=i then End if End sub 3.在窗体上建立一个文本框Text1(初始值)、一个列表框List1(显示结果)和一个命令按钮 Comd 1(“查找”)。 Private Sub Comd1 Click “查找” Dim n As Integer n= Val(TextI Text) List. Clear: k=0 Do While k 99 (n List. Additem n End if 4.在窗体上建立一个列表框Lt1和一个“显示表项”命令按钮 Command I。程序代码如下: Private Sub Command1 click 显示表项"按钮单击事件 Fontsize = I For i =0 To list. ListCount -1 逐项判断 If Listl Selected(i)Then 真时为选中 Print Listl List(i) (1)KeyPress (2)Combol List(k) (3)Combol AddItem 6.程序代码如下: Private Sub Form Loado Dim a As single, xno As Single, xnl As Single a=Val( InputBox("请输入一个正数")) xnI =a xnl =(xn0+ a/ xn0)/2 Loop While Abs(xn0-xn1)>=0.00001 Print a;"的平方根为";xnl End sub 第6章《编程及上机调试》 程序代码如下 Private Sub Form load Dim a(6, 6)As Integer5 s = s + 1 / (1 + k * 4) Next k Print "s="; Format(s, "##.00") End Sub 2. 程序代码如下： Private Sub Form_Load() Dim i As Integer, a As Integer, b As Integer, c As Integer Show For i = 100 To 999 a = Int(i / 100) b = Int((i - 100 * a) / 10) c = i - 100 * a - 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i End Sub 3. 在窗体上建立一个文本框 Text1(初始值)、一个列表框 List1(显示结果)和一个命令按钮 Comd1(“查找”)。 Private Sub Comd1_Click() '“查找” Dim n As Integer n = Val(Text1.Text) List1.Clear:k = 0 Do While k <= 99 If Not (n Mod 7 = 0) Then List1.AddItem n k = k + 1 End If n = n + 1 Loop End Sub 4．在窗体上建立一个列表框 List1 和一个“显示表项”命令按钮 Command1。程序代码如下： Private Sub Command1_click() '"显示表项"按钮单击事件 FontSize = 12 Cls For i = 0 To List1.ListCount - 1 '逐项判断 If List1.Selected(i) Then '真时为选中 Print List1.List(i) End If Next i End Sub 5．(1) KeyPress (2) Combo1.List(k) (3) Combo1.AddItem 6．程序代码如下： Private Sub Form_Load() Show Dim a As Single, xn0 As Single, xn1 As Single a = Val(InputBox("请输入一个正数")) xn1 = a Do xn0 = xn1 xn1 = (xn0 + a / xn0) / 2 Loop While Abs(xn0 - xn1) >= 0.00001 Print a; "的平方根为"; xn1 End Sub 第 6 章《编程及上机调试》 1. 程序代码如下： Private Sub Form_Load() Dim a(6, 6) As Integer