数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：5*5=256*6=3625*25=62576*76=5776……那么，5、_刷题宝

题干

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n))   'Trim()函数用于删除字符串前后的空格
t = (n * n)    Mod
If t = n Then
① _     List1.AddItem   Str(n)
②
End If
Next n

Label1.Caption = "自守个数为：" + Str(c)

End Sub
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。

上一题下一题 0.99难度填空题更新时间:2019-05-22 10:14:44

答案(点此获取答案解析）

同类题1

我们保存一个编写好的程序，工程文件是以（）作为扩展名的。

同类题2

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If ____ then
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch = ___
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为________。

同类题3

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。

请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s, As single
Dim Max , Min ,I As Integer
Dim a(5) As Integer
Max = 0
Min =    ①
s = 0
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If     ②   Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = ③
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
请分析任务，完成下列题目。
【小题1】在界面设计阶段，下列能清空文本框中内容的属性是

【小题2】在界面设计阶段，当双击窗体上的“计算”命令时，所打开的窗口是

A．代码窗口

B．属性窗口

C．工具箱窗口

D．工程资源管理器窗口

【小题3】下列控件在本程序窗体中用到的是

B．单选按钮

【小题4】为精确计算选手的最终得分，程序中变量s的数据类型应定义为

B．单精度型

【小题5】在Visual Basic 6.0中，下列是窗体文件默认扩展名的是

【小题6】程序中①所在位置表达式正确的是

【小题7】程序中②所在位置表达式正确的是

D．Max <> a(i)

【小题8】程序中③所在位置表达式正确的是

B．(s+Max+ Min)/5

C．(s - Max - Min) / 3

D．(s - Max - Min) / 5

【小题9】在设计程序界面时，要把Command1命令按钮上显示的文字“计算”字体设成“微软雅黑”，下列Command1控件的属性应设置的是

【小题10】变量s所表示的含义是

C．评委打分

D．最终得分

【小题11】当一个选分的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是

【小题12】程序中Command1控件响应的事件是

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题13】程序中数组a(5)包含的元素个数是

【小题14】程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是

【小题15】下图程序结构属于

A．顺序结构

B．分支结构

C．循环结构

D．混合结构

同类题4

小周定义了一个变量 rs 来存储超市里商品条形码，变量的数据类型应是（）

同类题5

要改变窗体的标题时，应当在属性窗口中改变的属性是（）。

相关知识点