①U盘
②微博
③移动硬盘
④QQ空间
Private Sub Command1_Click( )
Dim x As String, k As String, j As Integer
x = "XiaoWei" ①
k = "语文" ②
j = 90 ③
Text1.Text = x + k +j ④
End Sub
![]()
图一

图二
根据.上述要求设计VB程序,功能如下:在窗体加载时,读取木块长度和厚度数据,并显示在列表框List1中,单击“排序”按钮实现木块排序,结果显示在列表框List2中,程序运行界面如图b所示。
Const n = 10
Dim cd(1 To n) As Single, hd(1 To n) As Single
Private Sub Form_ Load()
'通过数据库读取n根木块的长度数据存储到cd数组,厚度数据存储到hd数组,并将数据显示在列表框List1中,代码略
End Sub
Private Sub Com1_Click()
Dim L As Integer, R As Integer
Dim min As Integer
Dim i As Integer, j As Integer
Dim t1 As Single, t2 As Single
For i=1 To n-1
min=i
For j=i+1 To n
If
Then min= j
Next j
R=min
'实现区间内木块的整体翻转
Do While L<R
t1 = cd(L): cd(L) = cd(R): cd(R) = t1
t2 = hd(L): hd(L) = hd(R): hd(R) = t2
L=L+1
Loop
Next i
List2. AddItem"长度(cm)"+""+"厚度(cm)"
For i =1 To n
List2. AddItem Str(cd(i)) +"" + Str(hd(i))
Next i
End Sub
Private Function judge(t As Long)As Boolean
Dim s As String, s1 As String, i As Integer, j As Integer
s=Str(t): judge =False
For i =1 To Len(s)-1
s1 = Mid(s, i, 1)
For j =i+ 1 To Len(s)
If ① Then Exit Function
Next j
Next i
②
End Function
① ②
打开“考生文件夹FrontPage\352\C-1.HTM”进行以下操作后并保存!
===网页文件编辑素材存放在“考生文件夹FrontPage\352”文件夹下;样张图片存放在“考生文件夹FrontPage\352\样张”文件夹下===
⑴在①后面插入图片C-1.JPG,宽度为150像素,高度为100像素;
⑵将标题文字“江南风情”改为“鱼米之乡”;
⑶将back.jpg图片设为背景;
⑷将1.mid设为背景音乐,重复播放

Private Sub Command1Click( )
Dim a As Single, b As Single,s As Single
a = Val(Text1.Text)
b =
Label4.caption=str(s)
End Sub