二、填空题 5.(1)n>=16(2)n16 Mid(ch, r+l, 1) 编程及上机调试 1.在窗体上建立四个文本框Text1和一个命令按钮 Command(“检验”)。文本框 TextI~Text3用于 输入,Text4用于输出结果 Private Sub Commandl Click Dim a As String, b As String, c As string c= Trim(Text3 Text) f che(a) And che(b) And che(c)Then Text4 Text Val(a)+ Val(b)+ Val(c) Text4.Text="存在非数字字符 Function che(x As String) As Boolean 若存在非数字字符,函数值为假 che true For k= I To Len (x) s= Mid(x, k, 1) If s<0 Ors>9 Then Exit For End If End function 2.在窗体上建立七个文本框Text1~Text7和一个命令按钮 Commandl(“比较”)。 Text1~Text6用于 输入,Text7用于输出结果 Private Sub Commandl Click o a= Val(Textl. Text): b= Val(Text2 Text):c= Val(Text3 Text) d= Val(Text4 Text): e= Val(Text5 Text): f= Val(Text6 Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) Text7 Text = m End sub y, 2, 标准模块文件 If x>y Then m-y If m< z Then End if End sub (1)s<> (2)Mid(s,p+1) 4.程序代码如 Private Sub Form Load O Dim As Single, n As Integer, y As Double x= Input Box(X= X的n次方”) n= InputBox("n=","求X的n次方") y Power(x, n)10 7. C 8. B 二、填空题 1. EF 2. 7; 1; 4 3. (1)10 (2)28 (3)6 (4) 6 4. Call Comd1_Click 5. (1) n>=16 (2) n\16 (3) Mid(ch, r+1, 1) 编程及上机调试 1. 在窗体上建立四个文本框 Text1 和一个命令按钮 Command1(“检验”)。文本框 Text1～Text3 用于 输入，Text4 用于输出结果。 Private Sub Command1_Click() Dim a As String, b As String, c As String a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If che(a) And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c) Else Text4.Text = "存在非数字字符" End If End Sub Function che(x As String) As Boolean '若存在非数字字符，函数值为假 che = True For k = 1 To Len(x) s = Mid(x, k, 1) If s < "0" Or s > "9" Then che = False Exit For End If Next k End Function 2．在窗体上建立七个文本框 Text1～Text7 和一个命令按钮 Command1(“比较”)。Text1～Text6 用于 输入，Text7 用于输出结果。 Private Sub Command1_Click() a = Val(Text1.Text):b = Val(Text2.Text):c = Val(Text3.Text) d = Val(Text4.Text):e = Val(Text5.Text):f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) Text7.Text = m End Sub Sub max(x, y, z, m) ‘标准模块文件 If x > y Then m = x Else m = y End If If m < z Then m = z End If End Sub 3. (1) s<>"" (2) Mid(s, p+1) (3) n 4. 程序代码如下： Private Sub Form_Load() Dim x As Single, n As Integer, y As Double x = InputBox("x=", "求 X 的 n 次方") n = InputBox("n=", "求 X 的 n 次方") y = Power(x, n) Show