vb,不能赋值变量值到该表达式PrivateSubCommand1Click()DimiAsInteger,jAsInteger,mAsInteger,sAsString,tAsStringFori=1To10000Forj=1ToLen(CStr(i))\2IfMid(CStr(i),j,1)Mid(CStr(i),Len(CStr(i)-j+1),1)ThenExitForN
Private Sub Command1_Click()
Dim i As Integer,j As Integer,m As Integer,s As String,t As String
For i = 1 To 10000
For j = 1 To Len(CStr(i)) \ 2
If Mid(CStr(i),j,1) Mid(CStr(i),Len(CStr(i) - j + 1),1) Then Exit For
Next j
If j > Len(CStr(i)) \ 2 Then s = i ^ 2
For m = 1 To Len(CStr(s)) \ 2
If Mid(CStr(s),m,1) Mid(CStr(s),Len(CStr(s) - m + 1),1) Then Exit For
Next m
If m > Len(CStr(s)) \ 2 Then b = i & "^" & "2" & "=" & s
List1.AddItem b
Next i
End Sub
貌似是
If Mid(CStr(i),j,1) Mid(CStr(i),Len(CStr(i) - j + 1),1) Then Exit For
If Mid(CStr(s),m,1) Mid(CStr(s),Len(CStr(s) - m + 1),1) Then Exit For
哪里错了?
改为
If Mid(CStr(i), j, 1) <> Mid(CStr(i), Len(CStr(i)) - j + 1, 1) Then Exit For
If Mid(CStr(s), m, 1) <> Mid(CStr(s), Len(CStr(s)) - m + 1, 1) Then Exit For
另外你的代码有逻辑错误,改为:
Private Sub Command1_Click()Dim i As Integer, j As Integer, m As Integer, s As String, b As String
For i = 1 To 10000
For j = 1 To Len(CStr(i)) \ 2
If Mid(CStr(i), j, 1) <> Mid(CStr(i), Len(CStr(i)) - j + 1, 1) Then Exit For
Next j
If j > Len(CStr(i)) \ 2 Then
s = i ^ 2
For m = 1 To Len(s) \ 2
If Mid(s, m, 1) <> Mid(s, Len(s) - m + 1, 1) Then Exit For
Next m
If m > Len(s) \ 2 Then
b = i & "^2=" & s
List1.AddItem b
End If
End If
Next i
End Sub
另外我再友情提供一个更简单的代码给你:
Dim i As Integer
For i = 1 To 10000
If CStr(i) = StrReverse(i) And CStr(i ^ 2) = StrReverse(i ^ 2) Then
List1.AddItem i & "^2=" & i ^ 2
End If
Next i
End Sub
我们用aij表示矩阵Amxn的第i行第j列元素,1≤i≤m,1≤j≤n(i、j、m、n∈N*)矩阵 2020-05-13 …
(2008•崇明县二模)对于自然数i∈N*,设ai,k=i-3(k-1)(k=1,2,3,…),如 2020-05-17 …
inti,j,k,l,m,n;floatx,y,z,w;i=8;j=5;k=-5;x=5;l=i% 2020-06-05 …
谁能帮我看下这个程序问题出在哪?function[variancebsbkbnsigma]=tra 2020-06-21 …
这个程序要求是输出m个数中任取n个数的所有组合,我要抓狂了==#include;#includei 2020-06-28 …
选出下列加粗各项中注音有误的一项:A.联袂mèi愤懑mèn荒谬miùB.阴霾mái嫩芽nèn糯米n 2020-07-01 …
下列各项中字音不正确的一项是:()A.参(Cān)见人参(shēn)参(Cēn)差B.山脉(mài 2020-07-02 …
设f(i,k)=i•2(k-1)(i∈N*,k∈N*),如f(2,3)=2×2(3-1)=8.对于正 2020-11-01 …
1.A给下列加点的字注音或根据拼音写汉字。(8分)系()百索子腌()车胤()络()子门méi()xi 2020-11-10 …
1.A给下列加点的字注音或根据拼音写汉字。(8分)系()百索子腌()车胤()络()子门méi()xi 2020-11-10 …