计算机会考sos

来源：百度知道 编辑：UC知道 时间：2024/06/27 14:31:37
三：完成程序：_____(下划线里面的是填空)
1、求任意两个数中的最小值：
Private Sub Command_Click ( )
Dim A As Single , B As Single , MIN As Single
A =____________ ‘从文本框Text1接收第1个数
B = Val (Text2 . Text ) 本框Text2接收第2个数
IF A < B THEN
____________
ELSE
____________
END IF
Text3 . Text =____________ ‘用文本框Text3输出最终结果
End Sub
2、按照从小到大的顺序输出100以内能被6整除的正整数
Private Sub Form_Click ( )
Dim I As Integer
Print “ 按照从大到小的顺序输出100以内能被6整除的正整数 “
For I =____________ To____________tep____________
IF ____________ THEN Print I
Next I
End Sub

3、设窗体坐标系左上角坐标（0，0）右下角坐标（800，600），图像框Image1加载了小球图片。编程实现小球每2秒钟横坐标向左移动10，宽度、高度各增加20。
Private Sub Form_Load ( )
Image1 . ________ = LoadPicture (“d : \ pic \ ball .

1、求任意两个数中的最小值：
Private Sub Command_Click ( )
Dim A As Single , B As Single , MIN As Single
A = Val (Text1.Text) ‘从文本框Text1接收第1个数
B = Val (Text2.Text ) 本框Text2接收第2个数
IF A < B THEN
MIN=A
ELSE
MIN=B
END IF
Text3 . Text =MIN ‘用文本框Text3输出最终结果
End Sub
2、按照从小到大的顺序输出100以内能被6整除的正整数
Private Sub Form_Click ( )
Dim I As Integer
Print “ 按照从大到小的顺序输出100以内能被6整除的正整数 “
For I = 100 To 0 step -1
IF Int(I / 6) = (I / 6) THEN Print I
Next I
End Sub

3、设窗体坐标系左上角坐标（0，0）右下角坐标（800，600），图像框Image1加载了小球图片。编程实现小球每2秒钟横坐标向左移动10，宽度、高度各增加20。
Private Sub Form_Load ( )
Image1 . Picture = LoadPicture (“d : \ pic \ ball .gif “)
I mage1 . Left = 800
I mage1 . Top = 300
timer1 . Interval = 2000
End Sub

Private Sub Timer1_ Timer ( )
I mage1 . Left =I mage1 . Left - 10
I mage1 . Top = Image1 . Top
I mage1 . Height = I mage1 . H