BB平台(日常测试)循环概要(20200919214743).docx

/9. /9. End If X ［未给 /9. /9. End If X ［未给 冋题 冋题1 得0分，满分20分 7. For j = 1 To n 其［未给 单击窗体，找出10~99之间所有的同构数，显示在窗体上。所谓同构数是指一 个数出现在它的平方数的右端，如 25在25的平方625的右端，则25为同构 数，窗体上显示“ 25是同构数”。 正确答案y1. Private Sub Form_Click()/2. Dim i As In teger/3. 正确答案 y1. Private Sub Form_Click() /2. Dim i As In teger /3. For i = 10 To 99 /4. If i = (i A 2) Mod 100 The n /5. Print i ” 是同构数 /6. End If /7. Next i /8. End Sub 问题2 所选答案 冷［未给定］ X-［未给定］ X-［未给定］ X-［未给定］ X-［未给定］ X-［未给定］ X-［未给定］ X-［未给定］ 得0分，满分20分 输入行数n(5 nW 15) 输入行数n(5 nW 15), 然后在窗体上打印如下图形。 正确答案 所选答案 /1. Private Sub Form_Click() X ［未给 定］ /2. Dim n As Integer,