- 1、本文档共34页,其中可免费阅读20页,需付费13金币后方可阅读剩余内容。
- 2、本文档内容版权归属内容提供方,所产生的收益全部归内容提供方所有。如果您对本文有版权争议,可选择认领,认领后既往收益都归您。
- 3、本文档由用户上传,本站不保证质量和数量令人满意,可能有诸多瑕疵,付费之前,请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形,可联系本站下载客服投诉处理。
- 4、文档侵权举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB程序设计道编程题
集团标准化工作小组[Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]
1.输入3个数,输出最大的数
PrivateSubCommand11_Click()
Dimmax%
X1=Val(InputBox(input))
X2=Val(InputBox(input))
x3=Val(InputBox(input))
max=X1
Ifmax=X2Then
max=X2
EndIf
Ifmax=x3Then
max=x3
EndIf
MsgBox(3个数之中的最大数
max=max)
EndSub
PrivateS
文档评论(0)