更多"【说明】 已知窗体上有两个名为cmdGene和cmdSort的命令按"的相关试题:
[简答题]【说明】
已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。
【程序代码】
Dim intA(1 To 10)As integer
Private Sub cmdGene_Click( )
Dim intl As Integer
Randomize
For intl = 1 To 10
intA(intl) = (1)
Next intl
End Sub
Private Sub cmdSort_Click( )
Dim intl, intJ,intMin, intTemp As Integer
For intl = 1 To 9
intMin = intA(intl)
For intJ= (2) To 10
If intA(intJ) ＜ intMin Then
Temp = intA(intJ)
intA(intJ)= (3)
intMin = intTemp
End If
Next intJ
(4)
(5)
For intl = 1 To 10
Print Str(intA(intl))+" ";
Next intl
Next lntl
Print
End Sub
[填空题]在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。
Private Sub Form_Load（ ）
Forml．Caption =“字体变化示范”
cmdMax．Caption=“字体变大”
cmdMin．Caption=“字体变小”
End Sub
Private Sub cmdMax_Click（ ）
【 】
Forml．Print”字体由小变大”
End Sub
Private Sub cmdMin_Click（ ）
【 】
Forml．Print“字体由大变小”
End Sub
[填空题][说明] 已有一个工程文件，窗体上有两个图片框，名称为P1，P2。分别用来表示信号灯合汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器 Timer1 和Timer2，Timer1 用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运动时，信号灯不断变换，单击“开车”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动。下面是实现上述功能的程序，请填空。
Private Sub Timer41_ Timer（ ）
a=a+1
If (1) Then
a=1
End If
Select Case a
Case 1
P1. Picture = LoadPicture( “黄灯.ico” )
Case 2, 3
P1. Picture = LoadPicture( “红灯”.ico” )
Case4, 5, 6
P1. Picture = LeadPicture( “绿灯. ico” )
(2)
End Select
End Sub
Private Sub Timer2_Timer( )
If (3) And (P2. Left ＞ P1. Left And P2. Left ＜ P1. Left + P1. Width) Or P2. Left ＜ = 100 Then
Timer2. Enabled = False
Else
(4)
End If
End Sub
[单项选择]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
DimY As Integer
Private Sub Command1.Click（ ）
Dim X AS Integer
x=2
Text1. Text=p2(p1(X), Y)
Text2. Text=p1(x)
End Sub
Private Function p1(X As Integer)As Integer
x+x+y:y=x+y
p1=x+y
End Function
Private Function p2(X As Integer, Y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
A. 2 4
B. 2 4
C. 4 4
D. 10 10
[填空题]窗体上有两个图片框为Picture1和Picture2，当把Picture1拖到Picture2上时将Picture2中的图片改为Picture1中的图片，完成下列程序。
Private Sub Picture2______(Source As Control, X As Single, Y As Single, State As Integer)
Picture2.Picture=______
End Sub
[单项选择]窗体上有两个文本框Text1、Text2以及一个命令按钮Comanand1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text = p2(p1(x), y)
Text2.Text = p1(x)
End Sub
Private Function p1(x As Integer) As Integer
x=x+y:y=x+y
p1=x+y
End Function
Private Function p2(x As Integer, y As Integer) As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
A. 2 4
B. 2 4
C. 4 4
D. 10 10
[单项选择]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text=p2(p1(x),y)
Text2.Text=p1(x)
End Sub
Private Function p1(x As Integer)As Integer
x=x+y:y=x+y
p1=x+y
End Function
Private Function p2(x As Integer,y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
A. 2 4
B. 2 4
C. 4 4
D. 10 10
[单项选择]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text=p2(p1(x), y)
Text2.Text=pi(x)
End Sub
Private Function p1(x As Integer) As Integer
x=x+y:y=x+y
p1=x+y
End Function
Private Function p2(x As Integer, y As Integer) As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
A) 2 4
2 4
B) 2 4
4 8
C) 4 4
8 8
D) 10 10
58 58
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：
Type Person
name As String *8
major As String*20
End Type
当单击"保存"按钮时，将两个文本框中的内容写入一个随机文件C:///Testl.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是______。
A. Open "c: /Test1.dat" For Random As#1
B. Open "c: /Test1.dat" For Random As#1 Len=
C. Open "c:/Test1.dat" For Random As#1
D. Open "c:/Test1.dat" For Random As#1 Len=
