Next i For i =1 To n 删除零元素 If a(i)<>tHen k=k+1: b(k)= a(i): List2 AddItem b(k) End if Labell. Caption="数组中零元素个数:"+Str(n-k) End sub 4.在窗体 WinForm1中建立1个单选按钮组Opt1和1个命令按钮Cmdl,单选按钮组包含3个单选按 钮,其标题分别为“单选1”、“单选2”和“单选3”,下标分别为0、1和2。设置第一个单选按钮被选中。 程序代码如下 Dim n As Integer Private Sub Cmd1 Click n=n+1 If n=3 Then n=0 Optl(n). Value = True End Sub (2)t=n(i):n(i)=n(j):n(j)=t (2)s(i)<s(i-1) (4)h=h+1 第7章《编程及上机调试》 1.在窗体上建立四个文本框Text1和一个命令按钮 Command1(“检验”)。文本框Text1~Text3用于 输入,Text4用于输出结果 Private Sub Command1 Click Dim a As string, b As string, c As string a Trim(TextI Text) b=Trim(Text2 Text c= Trim(Text3 Text) f che(a) And che(b)And che(c)Then Text4 Text= Val(a)+ Val(b)+ Val(c) Text4.Text="存在非数字字符 End Sub Function che( x As String) As Boolean'若存在非数字字符,函数值为假 For k =1 To Len (x) s= Mid(x, k, 1) If s< 0 Or s>9 Then Next k End functio 2.在窗体上建立一个文本框控件数组Text1(0)~Text1(5)、一个文本框Text2和一个命令按钮 Command l(“比较”)。文本框控件数组用于输入6个数,Text2用于输出结果。 Private Sub Command1 Click Dim d(5)As Single, m As Single d(k)= Val(TextI(k). Text) Next k Call max(d(o), d(1), d(2), m) Call max(m, d (3), d(4), m) Call max(m, m, d(5), m)7 Next i k = 0 For i = 1 To n '删除零元素 If a(i) <> 0 Then k = k + 1 : b(k) = a(i) : List2.AddItem b(k) End If Next i Label1.Caption = "数组中零元素个数：" + Str(n - k) End Sub 4．在窗体 WinForm1 中建立 1 个单选按钮组 Opt1 和 1 个命令按钮 Cmd1，单选按钮组包含 3 个单选按 钮，其标题分别为“单选 1”、“单选 2”和“单选 3”，下标分别为 0、1 和 2。设置第一个单选按钮被选中。 程序代码如下： Dim n As Integer Private Sub Cmd1_Click() n = n + 1 If n = 3 Then n = 0 Opt1(n).Value = True End Sub 5． (1) s(i) < s(j) (2) t = n(i): n(i) = n(j): n(j) = t (2) s(i) <> s(i-1) (4) h = h + 1 第 7 章《编程及上机调试》 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(0)～Text1(5)、一个文本框 Text2 和一个命令按钮 Command1(“比较”)。文本框控件数组用于输入 6 个数，Text2 用于输出结果。 Private Sub Command1_Click() Dim d(5) As Single, m As Single For k = 0 To 5 d(k) = Val(Text1(k).Text) Next k Call max(d(0), d(1), d(2), m) Call max(m, d(3), d(4), m) Call max(m, m, d(5), m)