全国计算机等级考试二级VB语言笔试试题及答案（6）
|
(3) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ [6] () Command1.Enabled=True End Sub (4) 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Form1. [7] Pmenu (5) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容，将程序补充完整。 Private Sub Form_Click() Dim x As Single,amax As Single,amin As Single x=InputBox(“Enter a score”) amax=x amin=x Do While [8] If x>amax Then Amax=x End If If [9]Then Amin=x End If x=InputBox(“Enter a score”) Loop Print”Max=”;amax,”Min=”;amin End Sub (6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load() Text1.Text=”计算机” End Sub Private Sub Text1_Change() Picture1.Print“等级考试” End Sub 程序运行后，在文本框中显示的内容是 [10] ，而在图片框中显示的内容是 [11] 。 (7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer)As Integer M=IIf(x>y,x,y) End Function Private Sub command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End Sub 程序运行后，单击命令按钮，输出结果为 [12] 。 (8) 为了改变计时器控件的时间间隔，应该修改该控件的 [13] 属性。 (9) 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。 Private Sub Form_load() List1.AddItem”北京” List1.AddItem”上海” List1.AddItem”湖北” End Sub Private Sub [14] () Label1.Caption= [15] End Sub 相关资料 |
