UC知道请教几个VB问题
来源：百度知道 编辑：UC知道 时间：2024/06/29 23:00:14
有几个VB题不知道该如何设计
1.在窗体上打印出所有的水仙花数。所谓的水仙花数，是指一个三位正整数 ，其各位数字的立方和等于该数本身。
2.给定源字符串a和目标字符串b，找出源字符串在目字符串中出现的次数。
3.设计程序，显示为100以内为6的倍数的数字，（要求每行显示3个数字），并求出这些数的和。
请高手们详细解答，谢谢！
1.在窗体上打印出所有的水仙花数。所谓的水仙花数，是指一个三位正整数 ，其各位数字的立方和等于该数本身。
2.给定源字符串a和目标字符串b，找出源字符串在目字符串中出现的次数。
3.设计程序，显示为100以内为6的倍数的数字，（要求每行显示3个数字），并求出这些数的和。
请高手们详细解答，谢谢！
Private Sub Form_Click()
Dim q As Integer
Dim b As Integer
Dim s As Integer
Dim n As Integer
For n = 100 To 999
q = n \ 100
'求出百位数字
b = (n - q * 100) \ 10
'求出十位数字
s = n Mod 10
'求出个位数字
If ((q ^ 3 + b ^ 3 + s ^ 3) = n) Then
Print n
End If
Next
End Sub
================
Private Sub Command1_Click()
Dim a As String, b As String, s1 As String
b = "asdfadesaddw3e"
a = "a"
s1 = Replace(b, a, "")
MsgBox (Len(b) - Len(s1)) / Len(a)
End Sub
=====================
Private Sub Command1_Click()
For i = 1 To 100
If i Mod 6 = 0 Then
Print i;
sum = sum + i
X = X + 1
If X Mod 3 = 0 Then Print
End If
Next
End Sub