vb程序填空题

oldsen = InputBox(\请输入英文句子：\ k = ----1----

'以空格作为单词的界定，空格后的字母转换为大写字母 lastchar = ----2---- For i = 1 To k

char = ----3----

If lastchar = \ char = UCase(char) End If

newsen = newsen & char lastchar = char Next i

Form1.Print \ Form1.Print \ End Sub

1、Len(oldsen) 2、\

3、Mid(oldsen, I, 1)

第2题：【程序说明】

以下程序可以将列表框中同时选中的多个列表项删除，顺序从最后一项开始往前删除，请将程序补充完整。 Private Sub cmdDel_Click() Dim i As Integer i = List1.ListCount - 1 While i >=----1----

If List1.Selected(i) = True Then ----2---- End If ----3---- Wend End Sub

1、0

2、List1.RemoveItem I 3、i = i - 1

第3题：【程序说明】

自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\\Windows目录下有1.jpg、2.jpg、??、8.jpg这样8张图片需显示） Dim i As Integer

Private Sub Form_Load()

i = 1

Picture1.Picture = ----1---- Picture1.AutoSize = True End Sub

Private Sub Timer1_Timer() If i <= 7 Then i =i+1 Else

i = 1 End If ----2---- End Sub Sub pic()

Dim fn As String

fn = \ Picture1.Picture = ----3---- End Sub

1、LoadPicture(\ 2、Call pic或pic 3、LoadPicture(fn) 第4题：【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项，m11为其子菜单（共３项，均同名，索引值依次为0，1，2）。鼠标右击窗体后显示弹出式菜单。 Private Sub Form_Load() Timer1.Enabled = False '锁定定时器（时间间隔已设置为1秒） End Sub

Private Sub m11_Click(Index As Integer) Select Case Index

Case 0 : Timer1.Enabled =----1---- Case 1

Timer1.Enabled = False : Text1.Text= \日期：\ Case 2

Text1.Text = \ End Select End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then ----3----, 2 End Sub

Private Sub Timer1_Timer() Text1.Text = \时间：\ End Sub

1、True 2、Date

3、PopUpMenu m1 三、填空题 第1题：【程序说明】

以下程序执行后将产生一个6×6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。

Private Sub Form_Click()

Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print \原始数据\ For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j

Form1.Print Next i

For i = 2 To 6

For j = 1 To ----- 1 ----- ------ 2 ----- Next j Next i

Form1.Print \转置后数据\ For i = 1 To 6 For j = 1 To 6 ----- 3 ----- Next j

Form1.Print Next i End Sub

Public Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub 1、I

2、Call Swap(a(I, j), a(j, I))或.Swap a(I, j), a(j, I) 3、Print a(i, j); 第2题：【程序说明】

本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”

按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。 Dim x as long

Private Sub Form_Load()

Timer1.Interval = 60000: Timer1.Enabled = False End Sub

Private Sub Command1_Click() Cls x = 0 ----1---- End Sub

Private Sub Command2_Click()

Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = ----2---- m = x mod 60

Print \运行了\小时\分\ End Sub

Private Sub Timer1_Timer() ----3---- Text1.text = x End Sub 1、Timer1.enabled=true 2、x\\60 3、x=x+1

第3题：【程序说明】

程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。

Private Sub Image1_Click(Index As Integer) ----1----