第四套 试题三 修改该 VB 程序,使其具有下列功能。 图 3-1 图 3-2 打开 “试题三“文件夹中的工程文件“ test3.vbp ”,完成下列操作: 1. ( 6 分)判断文本框中输入的内容是否为数字,如果输入的不是数字,则通过消息框提示。同时根据文本框内容是否为空决定按钮是否可用,文本框空按钮不可用,文本框有内容则按钮可用。将 Test3.txt 中的代码复制到程序相应位置,并将 1和2填写完整,实现此功能。 2. ( 13分,复制1分,其余每空3分)单击按钮,在图片框中显示比文本框中的数大的15个素数,每行显示5个。 将代码中 3、4、5、6填写完整,实现该程序功能。 Private Sub Command1_Click() Picture1.Cls a = Val(Text1.Text) k = 0 Do a = '(1) f = 0 For j = 1 To a If a Mod j = 0 Then f = f + 1 Next j If Then '( 2) Picture1.Print Tab((k Mod 5) * 5); a; k = k + 1 If k Mod 5 = 0 Then '(3) End If If Then Exit Do '(4) Loop End Sub Private Sub Text1_Change() For i = 1 To Len(Text1.Text) x = '(5) If x < 48 Or x > 57 Then MsgBox " 请输入数字 ", , " 输入 " Text1.Text = "" Text1.SetFocus Exit For End If Next i If Then '(6) Command1.Enabled = True Else Command1.Enabled = False End If End Sub