vb的操作题(有答案)

 时间:2012-09-07 00:04:07 贡献者:微微一笑吧00

导读:1.(1)在考生文件夹中有工程文件sj126.vbp,其中的窗体如图所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中"查找最大值"(或"查找最小值")单选按钮,再单击"查找"按钮,则找出数组中

vb的操作题(有答案)
vb的操作题(有答案)

1.(1)在考生文件夹中有工程文件sj126.vbp,其中的窗体如图所示。

程序刚运行时,会生成一个有10个元素的整型数组。

若选中"查找最大值"(或"查找最小值")单选按钮,再单击"查找"按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。

请去掉程序中的注释符,把程序中的?改为正确的内容。

ElseIf a(i) < y Then

再画二个命令按钮,名称分别为C1、C2,标题分别为"隐藏"、"显示"(如图所示)。

请编写适当的事件过程,使得在运行时,如果单击"隐藏"按钮,则文本框消失,而如果单击"显示"按钮,则文本框显示出来。

程序中不得使用任何变量。

*注意:

Private Sub Command1_Click()

能,但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

Print

命令按钮(名称为Command1,标题为“显示”)。

然后编写命令按钮的Click事件过程。

程序运行后,在两个文本框中分别输入姓名和年龄,然后单击命令按钮,则在窗体上显示两个文本框中的内容,如图所示。

要求程序中不得使用任何变量。

LargeChange 100

9.在考生文件夹下有工程文件wy54.vbp及窗体文件

Private Sub Command1_Click()

存盘时必须存放在考生文件夹下,工程文件名为sjt14.vbp,窗体文件名为sjt14.frm。

' MyFile2 = App.Path & "\" & “worker1.dat”

Text1.Text = Text1.Text + "爱心社"

Chk2和Chk3,标题分别为"操作系统"、"数据库原理"、"概率论",字体大小均为14,其中"概率论"被禁用。

For j = 1 To i - 1

Dim Finish As Integer, i As Integer

存盘。

*注意存盘时必须存放在考生文件夹下,工程文件名为sj20.vbp,窗体文件名为sj20.frm。

List1.AddItem Text1.Text

If a(j) < a(j + 1) Then

存盘时必须存放在考生文件夹下,工程文件名为sj19.vbp,窗体文件

要求:

命令。

程序运行后,如果双击列表框中的某一项,则把该项添加到列表框中。

程序的运行情况如图所示。

为Sj5.frm。

36. 在名称为Form1的窗体上画一个文本框,其名称为T1,宽度和高度分别为1400为400;再画两个命令按钮,其名称分别为C1和C2,标题分别为"显示"和"扩大",编写适当的事件过程。

程序运行后,如果单击C1命令按钮,则在文本框中显示"等级考试",如图所示;如果单击C2命令按钮,则使文本框在高、宽方向上各增加一倍,文本框中的字体大小扩大到原来的2倍。

pos = 0

Private Function Average(a() As Integer) As Single Dim Start As Integer, Finish As Integer

的内容,使其正确运行,但不能修改程序中的其他部分。

List1.RemoveItem i

5)单击"清除"按钮将所有文本框清空。

窗体文件名为sjt6.frm。

息。

例如,如果选中"体育"和"音乐"复选框,则单击"显示"命令按钮后,在窗体上显示"我的爱好是体育音乐"(如图所示);而如果选中"体育"、"音乐"和"美术"复选框,则单击"显示"按钮后,在窗体上显示"我的爱好是体育音乐美术"。

Text1.Text = "报名参加" + Text1.Text

 
 

微信关注公众号,送福利!