题目内容
（请给出正确答案）
提问人：网友kentan0829
发布时间：2022-01-07
[主观题]
程序功能是在TextBox1（长度≤20）、TextBox2（长度=1)为正...
程序功能是在TextBox1（长度≤20）、TextBox2(长度=1)为正确输入;将TextBox1中包含的TextBox2中输入的字符均删除，并显示删除相应信息和结果,操作结果见图。
Private Sub Button1_Click(…) Handles Button1.Click Dim s1$, s2$, ns$, i% s1 = TextBox1.Text s2 = TextBox2.Text If （Len(s1) ＞ 20 _____(1)_____） Then MsgBox("TextBox1长度超过20个或TextBox2长度不为1") Exit Sub End If ns = "" For i = 1 To _____(2)_____ If _____(3)_____ Then ns = ns & Mid(s1, i, 1) End If Next TextBox3.Text &= s1 If (_____(4)_____) Then TextBox3.Text &= " 中已删除 " & s2 & " 结果为：" & ns & vbCrLf Else TextBox3.Text &= " 中未找到 " & s2 & vbCrLf End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________ (4)： _________
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
抱歉！暂无答案，正在努力更新中……
Private Sub Button1_Click(…) Handles Button1.Click Dim a, b, c, d As Integer Dim c1, c2, c3, c4, c5 As Boolean CheckBox1.Checked = False CheckBox1.Checked = False CheckBox2.Checked = False CheckBox4.Checked = False For a = 0 To 1 For b = 0 To 1 For c = 0 To 1 For d = 0 To 1 c1 = _____(1)_____ ' A与B至少有一人参与作案 c2 = _____(2)_____ '如果A参与作案，则D也一定参与作案 c3 = c + d >= 1 ' C与D至少有一人参与作案 c4 = a + c <= 1 ' a与c至少有一人不是盗窃犯 c5="a=0" or _____(3)_____ 如果a参与作案，则b与c也一定参与作案 if (_____(4)_____) then a checkbox1.checked="True" b checkbox2.checked="True" c checkbox3.checked="True" d checkbox4.checked="True" end next sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： (3)： (4)：>
