灵鹊做题网找出100到200的无暇素数
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/29 10:32:03
找出100到200的无暇素数
无暇素数是一个数的逆序数也是素数
大神们帮我把
无暇素数是一个数的逆序数也是素数
大神们帮我把
Text1.Text = ""
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 100 To 200
A = i \ 100
B = (i Mod 100) \ 10
C = i Mod 10
D = C * 100 + B * 10 + A
k = 0
If D > i Then
h = D
Else
h = i
End If
For j = 2 To (i \ 2)
If (i Mod j = 0) Then
k = k + 1
End If
Next j
If k = 0 Then
For j = 2 To (D \ 2)
If (D Mod j = 0) Then
k = k + 1
End If
Next j
If k = 0 Then Text1.Text = Text1.Text + CStr(i) + vbTab + CStr(D) + vbNewLine
End If
Next i
放个text和command就会显示了
再问： 怎么在窗体表示
再答： 放个text控件和一个command控件 问个问题，这个所谓的逆序数是指102和201这样的还是百度百科里面那个算法？
再问： 是102和201 在窗体上表示 用窗体的CLICK事件表示的 是作业 没办法
再答： 代码放在Form_Click()事件里，双击窗口进入代码窗口后上面的两个下拉框选择form和click……为什么一定要在窗口上直接显示？你们教了什么啊？实在不行就放个label装装样子，把代码里的Text1.Text都替换成Label1.Caption就可以了
再问： 作业啊 要按格式的
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 100 To 200
A = i \ 100
B = (i Mod 100) \ 10
C = i Mod 10
D = C * 100 + B * 10 + A
k = 0
If D > i Then
h = D
Else
h = i
End If
For j = 2 To (i \ 2)
If (i Mod j = 0) Then
k = k + 1
End If
Next j
If k = 0 Then
For j = 2 To (D \ 2)
If (D Mod j = 0) Then
k = k + 1
End If
Next j
If k = 0 Then Text1.Text = Text1.Text + CStr(i) + vbTab + CStr(D) + vbNewLine
End If
Next i
放个text和command就会显示了
再问： 怎么在窗体表示
再答： 放个text控件和一个command控件 问个问题，这个所谓的逆序数是指102和201这样的还是百度百科里面那个算法？
再问： 是102和201 在窗体上表示 用窗体的CLICK事件表示的 是作业 没办法
再答： 代码放在Form_Click()事件里，双击窗口进入代码窗口后上面的两个下拉框选择form和click……为什么一定要在窗口上直接显示？你们教了什么啊？实在不行就放个label装装样子，把代码里的Text1.Text都替换成Label1.Caption就可以了
再问： 作业啊 要按格式的