题目
[问答题]完成下列问题:
考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是:程序运行时,向文本框控件数组Text1(有5个文本框)中任意输入5个数,单击名称为Command1的命令按钮,则找出其中最小数并显示在标签lblResult中。
窗体文件中已经给出了全部控件,但程序不完整,其中函数FindMin返回两个数中的较小数。
要求:在程序中的横线处填写正确的内容,使其能正确运行,但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
PrivateSubCommand1_Click()
DimxAsInteger,kAsInteger
x=Val(Text1(1).Text)
Fork=2To(1)
x=FindMin(Val(Text1(k).Text),(2))
Next
lblResultCaption=(3)
EndSub
PublicFunctionFindMin(xAsInteger,yAsInteger)
Ifx(4)yThen
FindMin=y
Else
FindMin=x
EndIf
EndFunction
提示:未搜索到的试题可在搜索页快速提交,您可在会员中心"提交的题"快速查看答案。
答案
查看答案
搜题