Question

VB的一些题

29．单击滚动条的滚动箭头时，产生的事件是（ ）
A．Click B．Scroll C．Change D．Move
30．在列表框中当前被选中的列表项的序号是由下列哪个属性表示（ ）
A．List B．Index C．ListIndex D．TabIndex
31．要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为（ ）
A．0 B．1 C．True D．
False
32 常用控件的Style属性值是（ ）
A．字符常量 B．逻辑常量 D．数值常量 D．日期常量
33 要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的（ ）属性
A．Picture B．Alignment C．Border D．Align

二、填空题
1．在标签控件中通过编程使文字换行用的代码是___________________。
2．设置计时器控件只能触发______________________事件。
3．设置计时器对象触发事件的时间间隔用_____________________属性。
4．设置控件背景颜色的属性名称是______________________。
5．所有控件都具有的共同属性是__________________属性。
6．一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。
7．列表框控件不支持Click事件，但支持_______________事件。
8．滚动条控件主要支持两个事件，它们是_______________事件。
9． 要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。
10．设某列表框共有10项，按题目要求补齐程序，完成相应的功能。
（1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：
Private Sub Command1_Click( )
List.__________(7)=True
Pint List1.______________
End Sub
（2）单击列表框某一项时立即将该项打印在窗体上：
Private Sub List1_Click( )
Print_______________
End Sub
（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项：
Private Sub Command1_Click( )
For I=1 To 5
List1.____________
Next I
End Sub
（4）在列表框的每一项之后插入一个新的项：
Private Sub Command1_Click( )
For I=1 to 10
X=InputBox(“请输入插入的第“& I&”项内容”)
List1.AddItem____________
Next I
End Sub
11．设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.__________________( )
Label1.Caption = Hscroll1.___________________
End Sub
要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.________________( )
Label1.Caption = Hscroll1.__________________
End Sub
12．设置是否可以用Tab键来选取命令按钮，应该用______________属性。
编程题：一个呈上三角的九九乘法表，一个呈下三角的九九乘法表

能被七整除的数

这两道编程可以帮我做一下吗 我可以追加20分 谢谢了

Answer 1

29．单击滚动条的滚动箭头时，产生的事件是（C．Change ）
30．在列表框中当前被选中的列表项的序号是由下列哪个属性表示（C．ListIndex ）
31．要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为（ B．1）
32 常用控件的Style属性值是（D．数值常量 ）
33 要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的（ D．Align ）属性
二、填空题
1．在标签控件中通过编程使文字换行用的代码是:chr(13) + chr(10)。
2．设置计时器控件只能触发:timer事件。
3．设置计时器对象触发事件的时间间隔用interval属性。
4．设置控件背景颜色的属性名称是backcolor。
5．所有控件都具有的共同属性是name属性。
6．一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是enabled和visible。
7．列表框控件不支持Click事件，但支持DblClick事件。
8．滚动条控件主要支持两个事件，它们是Scroll和Change事件。
9． 要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是mousepointer。
10．设某列表框共有10项，按题目要求补齐程序，完成相应的功能。
（1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：
Private Sub Command1_Click( )
List.Selected(7)=True
Pint List1.text
End Sub
（2）单击列表框某一项时立即将该项打印在窗体上：
Private Sub List1_Click( )
Print List1.Text
End Sub
（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项：
Private Sub Command1_Click( )
For I=1 To 5
List1.RemoveItem i - 1
Next I
End Sub
（4）在列表框的每一项之后插入一个新的项：
Private Sub Command1_Click( )
For I=1 to 10
X=InputBox(“请输入插入的第“& I&”项内容”)
List1.AddItem X
Next I
End Sub
11．设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.change( )
Label1.Caption = Hscroll1.value
End Sub
要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.DragDrop( )
Label1.Caption = Hscroll1.Value
End Sub
12．设置是否可以用Tab键来选取命令按钮，应该用TabStop属性。
被7整除的数这样判断：if n mod 7=0 then print n
下三角：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print Trim(j); "*"; Trim(i); "="; Trim(i * j); Space(5 - Len(Str(i * j)));
Next j
Print
Next i
End Sub
上三角：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
Print Space((i - 1) * 8);
For j = i To 9
Print Trim(i); "*"; Trim(j); "="; Trim(i * j); Space(5 - Len(Str(i * j)));
Next j
Print
Next i
End Sub