题目

小张同学在学习了选修教材《算法与程序设计》后，准备小试牛刀一下，就编了“判断一个数能否被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=jEnd Sub （1） 修改语句“Dim图中甲位于华北平原，乙位于长江中下游平原。1. 甲、乙两地耕作制度不同，造成这种差异的主要自然因素是（ ）A.海拔 B.热量C.水分 D.土壤2. 甲、乙两地共有的地理现象是（ ）A.广泛种植水稻 B.雨热同期C.冬季河流结冰 D.水运发达3. 目前甲、乙两地可持续发展所面临的问题分别是（ ）A.旱涝盐碱危害、水土流失严重B.多风沙危害、水资源短缺C.生态破坏严重、多旱涝灾害D.水资源短缺、酸雨危害较严重