VB求最大值函数

text1里面有一个三位数,我想产生一个command1的点击事件,在text2输出text1中的三位数的最大的那位。控件3个:text1、text2、command1例... text1里面有一个三位数,我想产生一个command1的点击事件,在text2输出text1中的三位数的最大的那位。
控件3个:text1、text2、command1
例如:text1中输入193,text2显示9
请试好了再来回答
展开
 我来答
Guoxin爱记录
推荐于2016-12-02 · TA获得超过549个赞
知道小有建树答主
回答量:361
采纳率:0%
帮助的人:369万
展开全部
双击command1,写下
dim a as string
dim amax as integer,temp as integer
a=trim(text1)'去除text1中的空格,将值赋给a
amax=0'设置amax的初值,因为是找最大值,所以取0
for i=1 to len(a)'循环,从1到a的长度
temp=val(mid(a,i,1))'从a中第i个位子取一个数
if temp>=amax then amax=temp'和最大值比较
next i
text2=amax
淦水传承文章P
2019-09-13 · TA获得超过3.2万个赞
知道大有可为答主
回答量:1.2万
采纳率:28%
帮助的人:905万
展开全部
function
maxfound(a()
as
long)
'long可修改为其它类型,以适应不同的要求

dim
nummax

nummax
=
a(1)

for
i
=
2
to
8

if
nummax
<
a(i)
then

nummax
=
a(i)

end
if

next
i

maxfound
=
nummax
end
function

函数条用格式:变量=maxfound(long型数组),则最大值别存储到变量中
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
296224229
2010-06-08 · TA获得超过273个赞
知道小有建树答主
回答量:214
采纳率:0%
帮助的人:0
展开全部
两个文本框,一个按钮
Option Base 1
Private Sub Command1_Click()
Dim max As Integer
If Text1.Text = "" Then
MsgBox "文本不能为空"
Exit Sub
End If
max = Mid(Text1, 1, 1)
For i = 2 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) > max Then
max = Mid(Text1.Text, i, 1)
End If
Next i
Text2.Text = max
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友4b27da5
2010-06-08 · 超过28用户采纳过TA的回答
知道答主
回答量:64
采纳率:0%
帮助的人:87万
展开全部
Option Explicit

Private Sub Command1_Click()
Dim l As Integer, max As Integer
Dim i As Integer, a As Integer
l = Len(Text1.Text)
If IsNumeric(Text1.Text) = False Then MsgBox "text1内不是数字"
max = Left(Text1.Text, 1)
For i = 2 To l
a = Mid(Text1.Text, i, 1)
If a > max Then max = a
Next
Text2.Text = max
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友aa1a393ac
2010-06-08 · TA获得超过220个赞
知道小有建树答主
回答量:421
采纳率:33%
帮助的人:370万
展开全部
Private Sub Command1_Click()
Dim i As Integer
For i = 9 To 0 Step -1
If InStr(1, Text1.Text, i) > 0 Then Text2.Text = i: Exit Sub
Next
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式