题目

小张同学在学习了选修教材《算法与程序设计》后，准备小试牛刀一下，就编了“判断一个数能否被7整除”的小程序，其中有三处错误，请帮助他修改。 Private Sub Command1_ Click()     Dim i As Integer     Dim As String     i= Text1.Text     If i/7=0 Then                            '判断文本框中输入的数是否是7的倍数         j=i & “是7的倍数，能被7整除! ”         '是7的倍数,输出能被7整除!     Else         j=i&"不是7的倍数,不能被7整除!"        '不是7的倍数,就输出不是7的倍数,不能被7整除!!     EndIf     Label3. Caption=j End Sub （1） 修改语句“Dim As String”行中的错误； （2） 修改语句“If i/7=0 Then”行中的错误； （3） 修改语句“End”行中的错误。 答案： 改成“Dim j As String” 改成“If Text1. Text mod 7=0 Then” 改成“End If”

查看本题答案和解析