Private Sub Command1_ Click( )
Randomize
For i= 1 To 50
x =
List1.
Next i
End Sub
Private Sub Command2 _Click( )
For i= To 0 step -1
If Then
List2.AddItem
List1.
Next i
End Sub
| 文件名 | 宽度 | 高度. | 位深度 |
| 风景1. bmp | 1024像素 | 768像索 | 24 |
| 风景2. bmp | 1024 像素 | 768像素 | 16 |
| 风景3. bmp | 800像素 | 600 像素 | 16 |
| 风景4. bmp | 800像素 | 600像素 | 24 |
Private Sub Commandl_Click( )
Dim s As Integer, cz As Integer 'cz存储超重克数
Dim k As Integer
'依次从1~5号瓶中取出1、2、4、8、16粒药,并计算总重量,存储在变量s中,代码略
cz=s-310
Text1.Text= ①
k=0
Do While cz<>0
k=k+1
If ② Then List 1.Addltem"第"+Str(k)+"瓶"
cz=cz\2
Loop
End Sub
① ②
打开“考生文件夹FrontPage\371\13.htm”进行以下操作后并保存!
===网页文件编辑素材存放在“考生文件夹FrontPage\371”文件夹下;样张图片存放在“考生文件夹FrontPage\371\样张”文件夹下===
⑴设置网页背景音乐“抒情3.mid”,循环播放;
⑵在提示文字“插入表格处”插入1行2列的表格,边框粗细为2,颜色为灰度,并删除上述提示文字。在第一个单元格中插入“金陵热线.gif”动画,在第二个单元格中插入“常州信息.gif”;
⑶将第一个单元格中的“金陵热线.gif”动画超链接至http://www.jlonline.com。
s="ABAABABBAB"
x=0: pos=1
For i= 1 To Len(s)
If Mid(s, i,1)="A" Then x=x+1
If
Then
List1.AddItem Str(pos) + ":" + Str(i)
![]()
End If
Next i
上述程序段中方框处的可选语句为:
①i-pos=x ②i-x=x ③pos=i ④pos=i+1
则(1)(2)处的语句依次可为( )
下列说法正确的是( )
Private Sub Command1_Click()
Dim a(0 To 4) As Integer
Dim i As Integer
a(4) = Val(Text1.Text)
For i = 3 To 1 Step -1
a(i) = a(i + 1) / 2
Next i
Text2.Text = Str(a(i+2))
End Sub