以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0

题目

以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。

Private Sub Command1_Click( )

Dim k As Integer

Dim sum As Single, max As Single, min As Single

sum = Text1(0)

max = Text1(0)

min = ______

For k = ______ To 6

If max < Text1(k) Then

max = Text1(k)

End If

If min > Text1(k) Then

min = Text1(k)

End If

sum = sum + Text1(k)

Next k

Text2 = (______) / 5


相似考题
更多“以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的 ”相关问题
  • 第1题:

    在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:

    Private Sub Command1 Click()

    Text3=Text1+Text2

    End Sub

    Private Sub Forml Load()

    Text1=""

    Text2=""

    Text3=""

    End Sub

    打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。


    正确答案:57
    57 解析:本题考查对“+”的理解。在VBA中,“+”既可以用作数学运算符,也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接,然后在第3个文本框中显示,所以应该是57,在连接字符串方面,“+”和“&”是相同的功能,但“&”只能用来连接字符串,而不能进行数学运算。命令按钮 Command1的Click事件是:Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中,窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后,单击命令按钮来触发其Click事件,完成两个字符串的连接。

  • 第2题:

    在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个名为Option1的控件数组,程序运行后,如果单击某个单选按钮,则文本框中的字体根据所选择的单选按钮切换,如图1所示。请选择适合空白处的语句( )。

    A. Option Text

    B. Index Text

    C. Index Font

    D. Option Font


    正确答案:C
    c)    【解析】本题考查控件数组。Option1数组中每
    个元素的名字为Optionl,依靠不同的Index属性来区分不同的控件。变量a表示选择不同按钮后的不同字体,字体名属性为Font属性集的默认属性(FontName),这哩可以直接使用Font属性。

  • 第3题:

    在名为Form1的窗体上,绘制一个名为Text1的文本框。设置文本框属性,在文本框中显示“文本框”;再建立一个名为Cmd1,标题为Clear的命令按钮,如下图所示。编写适当的事件过程,使程序运行后,若单击Clear命令按钮,则清除文本框中所显示的信息。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise5.frm,工程文件名为exeeise5.vbp。


    正确答案:

  • 第4题:

    在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:

    打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。


    正确答案:12
    12 解析: 本题考查的是VBA编程基础、参数传递。由于VBA中,默认情况下,参数是按地址传递(ByRef),结果会返回。本题中z的值等于x+y,所以文本框中显示的内容为12。

  • 第5题:

    在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设 置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。


    正确答案:A
    A)    【解析】本题考查文本框的事件。文本框的Click 事件是单击文本框时触发的,Change事件是每次文本框中的文本发生改变时都要触发的事件。题目中要求当文本框的字符改变以后实现要求,因此应通过文本框的Change事件更改Commandl的Caption 属性。