2017年6月广西壮族自治区普通高中学业水平考试信息技术1

请将程序补充完整。РPrivate Sub Form_Click()Р Dim a As Integer,b As Integer,c As IntegerР Dim i As Long,j As Integer,s as LongР a=Val(InputBox(“输入a:”))Р b=Val(InputBox(“输入b:”))Р s=0:j=0Р If a>b ThenР c=aР ①Р b=cР End IfР For i=a to b Step 1РIf i ② 7=0 ThenР s=s+iР j=j+1РEnd IfР Next iР Print “能被7整除的数有”;j;“个,”; “它们的和是:”; ③РEnd SubР参考答案(陈锋)Р1Р2Р3Р4Р5Р6Р7Р8Р9Р10РCРDРCРAРBРAРDРCРBРDР11Р12Р13Р14Р15Р16Р17Р18Р19Р20РBРAРBРDРAРBРCРAРCРAР21Р22Р23Р24Р25Р26Р27Р28Р29Р30РCРBРAРCРAРBРDРCРAРDР31Р32Р33Р34Р35Р36Р37Р38Р39Р40РCРAРDРCРDРCРDРBРAРBР41Р42Р43Р44Р45Р46Р47Р48Р49Р50РAРDРDРCРDРCРAРBРDРCР51Р52Р53Р54Р55Р56Р57Р58Р59Р60РCРBРDРBРBРDРAРBРBРAР61Р62Р63Р64Р65Р Р Р Р Р РBCDРABDРBCРADРBDР Р Р Р Р Р66. ① E ② C ③ AР67.①=(B3+C3+D3+E3+F3)/5或=AVERAGE(B3:F3) ②复制③ G4:G8Р68. ① D ② A ③ EР69.① Shift ②删除③回车或EnterР70. ① a=b ② mod ③ s