若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如11、121均是回文数。请你编写程序，输出10至n之间的所有回文数。程序运行界面如图所示，在_刷题宝

题干

若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如 11、121 均是回文数。请你编写程序，输出 10 至 n 之间的所有回文数。程序运行界面如图所示，在文本框 Text1 中输入一个正整数 n，单击“查找”按钮 Command1，在列表框 List1 中显示 10 – n 之间的所有回文数，并且在标签 Label1 中输出查找到回文数的总数。

问题：实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim n as long , sum as long , i As Long Dim x as long , y as long
List1.Clear
n = Val(Text1.Text) sum = 0
For i = 10 To n

x = n ’（1）
y = 0
Do While x > 0

y = x Mod 10 ’（2）
x = x \ 10
Loop
If y = i Then
List1.additem Str(i)
sum = sum+1
End if Next i
Label1.caption = “共有”& Str(sum) & “个回文数” End Sub

上一题下一题 0.99难度填空题更新时间:2019-04-16 09:20:51

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

同类题1

小张的QQ密码忘记了,请你帮他找回密码。他只记得自己密码的一些零星信息:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图所示,单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。

(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用左图所示的“控件工具箱”中的______(填写相应编号),并在右图所示的“属性窗口”中,将______属性值设置为“可能的密码有:”。

(2)为实现上述功能,请在划线处填入合适的选项。
Private Sub Command1_Click( )
Dim x As Integer,s As Long,y As Integer,i As Integer
For i=0 To 9999
　s=590000+i
　If________①Then
　　x=s mod 10
　　y=(s Mod 100)\10
　　If_______②Then
　　　List1.AddItem______③
　　End If
　End If
Next i
End Sub
划线①、②、 ③的选项:

D．s Mod 12=0 and s Mod 38=0

同类题2

（加试题）一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To 1000
n = i
t = 0
k = 0
Do While n > 0
If n Mod 2 = 1 Then t = t + 1 Else k = k + 1
___________________
Loop
If ___________________Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub

同类题3

编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。
程序如下：
Private Sub Form_Click()
Dim i As Integer
Dim t As Integer
For i = 100 To 200
If __________ Then '不能够被3整除的条件
Print i
t=t+1
End If
Next i
End Sub
程序运行结束后t的值为_______________

同类题4

下列问题适合使用枚举算法解决的是（）

A．计算已知半径的圆面积	B．计程车计费
C．校园歌曲大赛的成绩排名	D．找出1000以内的所有素数

同类题5

（加试题）编写“素数查找”程序，实现如下功能：单击“生成”按钮，随机生成50个150至200（包括150和200）之间的正整数，显示在下方，每行显示10个，共5行。单击“筛选“按钮，从上面50个数中筛选出是素数的数，重复的只显示一次。程序运行界面如图所示。

请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Label3.Caption = ""
For i = 1 To 50
a(i) =___________________
If i Mod 10 = 0 Then
Label3.Caption = Label3.Caption + CStr(a(i)) + vbCrLf '换行
Else
Label3.Caption = Label3.Caption + CStr(a(i)) + " "
End If
Next i
End Sub
Private Sub Command2_Click()
Label4.Caption = ""
n = 0
For i = 1 To 50
For k = 2 To a(i) - 1
If __________ Then Exit For
Next k
If k = a(i) Then
n = n + 1
If n = 1 Then b(n) = a(i)
For j = 1 To n - 1
If b(j) = a(i) Then ___________: Exit For
If j = n - 1 Then b(n) = a(i)
Next j
End If
Next i
For j = 1 To n
Label4.Caption = Label4.Caption + ________+ " "
Next j

相关知识点