问答题

完成下列问题：
考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是：程序运行时，向文本框控件数组Text1(有5个文本框)中任意输入5个数，单击名称为Command1的命令按钮，则找出其中最小数并显示在标签lblResult中。
窗体文件中已经给出了全部控件，但程序不完整，其中函数FindMin返回两个数中的较小数。
要求：在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click()
Dim x As Integer, k As Integer
x=Val(Text1(1).Text)
For k=2 To (1)
x=FindMin(Val(Text1(k).Text), (2) )
Next
lblResult Caption= (3)
End Sub
Public Function FindMin(x As Integer, y As Integer)
If x (4) y Then
FindMin=y
Else
FindMin=x
End If
End Function

【参考答案】

[操作步骤]
第1步：打开工程sjt3.vbp。
第2步：修改源程序。
第3步：调试、运行......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时间间隔为0.5s，窗体如图2所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行．计时器即变为可用，且每隔0.5s形状控件向下移动100。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

问答题

在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时，当向文本框Text2中输入密码时，若“显示密码”复选框没有被选中，则文本框Text3中同时显示“#”(如图3所示)；若“显示密码”复选框被选中，再重新输入密码时，则在Text3中同时显示的是密码字符本身。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Private Sub Text2_Change() If (1) =1 Then Text3.PasswordChar= (2) Else Text3.PasswordChar= (3) End If Text3.Text= (4) End Sub

相关试题