问答题X 纠错
Private Sub Form_Click()
Dim i As Integer,m As Integer,n As Integer
n=0
For i= 32 To 99
m=i*i
If(Mid(m,1,1)=Mid(m,2,1)And Mid(m,3,1)=Mid(m,4,1))Then
Print m;
(n=n+1)
End If
Next i
Print
MsgBox"共找出"&s&"个符合条件的四位数"
End Sub
你可能喜欢
问答题
输入任意长度的字符串,要求将字符顺序倒置,例如“ABCDEFG”变换为“GFEDCBA”。
问答题
下面程序段要输出结果如图所示,试将程序段填写完整。
问答题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming,然后编写如下事件过程。程序运行后,单击命令按狃,文件ff.txt中的内容是?
MVBP