帮忙做几道VB题

来源:百度知道 编辑:UC知道 时间:2024/06/17 00:46:15
填空:
1 写出语句:定义一组数组age,用来存储10个学生的年龄( )
2 写出语句:使得文本框Text1中的文本呈红色( )
3 写出语句:使得命令按钮Command1隐藏不可见( )
4 写出语句:在列表框List1中删除第一个选项( )
5 写出表达式:获取组合框Combo1的选项个数( )
6 写出表达式:从字符串"北京2008"获取数字2008( )
7 写出表达式:获取本月的日子( )
8 写出表达式:获取水平滚动条Hscrolll滑块当前位置的值( )
9 设有如下循环语句,循环次数是( )
For I=10 To 1 Step -4
Print2*I
Next I
10 设有如下循环语句,循环次数是( )
k=15
do
print k;: k=k-2
Loop While k<10

1.Dim age(9) As Byte
2.Text1.ForeColor = 255
3.Command1.Visible = False
4.List1.RemoveItem (0)
5.Combo1.ListCount
6.Mid("北京2008", 3)
7.Day(Now)
8.HScroll.Value
9.3
10.3

1 Dim age(9) As Integer
2 Text1.ForeColor = vbRed
3 Command1.Visible = False
4 List1.RemoveItem 0
5 Combo1.ListCount
6 Right("北京2008", 4)
7 Month(Now) Day(Now)'不知道是要日期还是月份
8 HScroll1.Value
9 3
10 1

1 Dim age(9) As Integer 或 Dim age(1 To 10) As Integer
2 Text1.ForeColor = vbRed
3 Command1.Visible = False
4 List1.RemoveItem 0
5 Combo1.ListCount
6 mid("北京2008",3)
7 这个说明不是很具体,是要本月的日子数还是什么?
8 Hscroll1.Value
9 3次
10 1次