UC知道VB问题请教（三条
来源：百度知道 编辑：UC知道 时间：2024/05/27 15:26:54
T代表Text，C代表Command
①已经有一个Funtion(p as integer)过程判定p是水仙花数了。
单击C1，在T1输出1到10000里面水仙花的最小值，T2则输出
最大值，那时考试我没做出来。实在很难想。
②T1和T2，C1。程序运行后，在T1和T2输入字符串，单击C1判定T1（T2）是否T2（T1）的子串。如果不是，则显示 “两者没关系”。
举个例子。T1：一百天了吗？
T2：一百天
则输出T2是T1的子串，反之亦然。
T1：一百天了吗？
T2：已经一百天了
因为T2有“已经”，则输出“两者没关系”。
③单击，则在窗体上列出所有控件的名称，比如T1是Text的，则输出Text1
举的例子
窗体上有Option1，T1，C2，C1。
单击C1则在窗体上输出列表。Option1，Text1，Command2
注意T1是输出Text1,C2是输出Command2。！！！
【提问之前】
在你提问之前，首先得检查你有没有做到：
1. 仔细思索，检讨一下自己是哪里做得不对，尝试着自己找答案；
2. 在网上运用搜索引擎寻求答案；
3. 在论坛上查找，翻翻以前的旧帖子；
4. 用论坛的搜索功能搜索你所想查找的关键词（不要告诉我你不会用）。
a.当你提出问题的时候，首先要说明在此之前你干了些什么。这将有助于建立你给所有人的第一印象：你不是一个妄图不劳而获的乞讨者，不愿浪费别人的时间。
b.周全的思考。准备好你的问题，草率的发问只能得到草率的回答，或者根本得不到任何答案。越表现出在寻求帮助前为解决问题付出的努力，你越能得到实质性的帮助。
另一方面，表明你愿意在找答案的过程中做点什么，是一个非常好的开端。别只想着把字打出来，就可以什么都不管地等待答案。 “大侠救命”、“高手帮我”、 “帮我看看这段代码有什么错误”、“请把确切的过程贴出来”（老天！！别以为谁都有和你一样多的时间）。你必须显得
①已经有一个Funtion(p as integer)过程判定p是水仙花数了。
单击C1，在T1输出1到10000里面水仙花的最小值，T2则输出
最大值，那时考试我没做出来。实在很难想。
②T1和T2，C1。程序运行后，在T1和T2输入字符串，单击C1判定T1（T2）是否T2（T1）的子串。如果不是，则显示 “两者没关系”。
举个例子。T1：一百天了吗？
T2：一百天
则输出T2是T1的子串，反之亦然。
T1：一百天了吗？
T2：已经一百天了
因为T2有“已经”，则输出“两者没关系”。
③单击，则在窗体上列出所有控件的名称，比如T1是Text的，则输出Text1
举的例子
窗体上有Option1，T1，C2，C1。
单击C1则在窗体上输出列表。Option1，Text1，Command2
注意T1是输出Text1,C2是输出Command2。！！！
【提问之前】
在你提问之前，首先得检查你有没有做到：
1. 仔细思索，检讨一下自己是哪里做得不对，尝试着自己找答案；
2. 在网上运用搜索引擎寻求答案；
3. 在论坛上查找，翻翻以前的旧帖子；
4. 用论坛的搜索功能搜索你所想查找的关键词（不要告诉我你不会用）。
a.当你提出问题的时候，首先要说明在此之前你干了些什么。这将有助于建立你给所有人的第一印象：你不是一个妄图不劳而获的乞讨者，不愿浪费别人的时间。
b.周全的思考。准备好你的问题，草率的发问只能得到草率的回答，或者根本得不到任何答案。越表现出在寻求帮助前为解决问题付出的努力，你越能得到实质性的帮助。
另一方面，表明你愿意在找答案的过程中做点什么，是一个非常好的开端。别只想着把字打出来，就可以什么都不管地等待答案。 “大侠救命”、“高手帮我”、 “帮我看看这段代码有什么错误”、“请把确切的过程贴出来”（老天！！别以为谁都有和你一样多的时间）。你必须显得
第1个题:因为不知道你的水仙花Funtion,所以就自己写了一个,应该是差不多的,C1的代码应该比较好理解, 先将T1和T2置空,
如果T1为空时,找到的水仙花数放入T1,所以T1就是最小的水仙花数
然后如果找到的水仙花数比T2大,就放入T2,所以T2就是最大的了
代码如下:
Private Sub c1_Click()
Dim i%
t1 = "": t2 = ""
For i = 1 To 10000
If sxh(i) = True And t1 = "" Then t1 = i
If sxh(i) = True And i > Val(t2) Then t2 = i
Next
End Sub
Function sxh(p As Integer) As Boolean
If p < 100 Or p > 999 Then
sxh = False
Exit Function
End If
If p = (p \ 100) ^ 3 + (p \ 10 Mod 10) ^ 3 + (p Mod 10) ^ 3 Then
sxh = True
Else
sxh = False
End If
End Function
====================================
问题2: 应该使用instr函数,就是从一个字串中找另一字串,找到返回找到的位置,找不到返回0. 你只要判断返回值是否大于0,就知道是不是子串关系了:
代码如下:
Private Sub Command1_Click()
't1 = "一百天了吗？": t2 = "已经一百天"
If InStr(t1, t2) > 0 Then
Print "T2是T1的子串!!"
Else
Prin