VB的基础题目有些不会,请大家帮帮忙 谢谢

ac5474012 2008-01-11 11:49:45
判断
一个变量在刚被声明尚未被赋值之前没有值。( n )
对英文字母的比较,默认情况下是区分大小写的。( y )
两个日期时间值可以做减法,但不能做加法。( )
表达式 NOT x<3 和 x>3是等价。( )
注释行也能使用续行符。( )
VB编译生成的可执行文件不再需要工程文件与各个模块文件。( )
VB程序中不区分代码字符的大小写。( )
当把浮点数赋给整型变量时,会出现溢出错误。( )
在同一作用域中,变量名不能重复。( )
日期时间型变量既可以保存日期值,也可以保存时间值,但不能同时保存日期和时间值。( )
……
2、 选择题(20%)
例题:
下面列出的语句中,没有错误的语句是
A) txt1.Text+txt2.Text=txt3.Text
B) 12Label1.Caption=1234
C) cmdAdd.Name=cmdSub
D) frmFirst.Move 1000,1000,2000,1200

代数运算式 对应的Visual BASIC表达式是:
A)a/b+c/d B)a/(b+c)/d C)(a/b+c)/d D)a/(b+c/d)

下列哪一个是日期型常量
A)”2/1/99” B)2/1/99 C)#2/1/99# D){2/1/99}

下列在窗体模块的声明段中声明变量时,不可能使用下列哪个关键字:
A) Dim B) Private C) Public D) Static

表达式 (-11) mod 9 的值为
A) 1 B)-1 C)2 D)-2

要使一个图片框控件自动地附在窗体的一条边上,应该设置它的 属性
A)Picture B)Align C)Left D)AutoSize

下列控件中,不具备Caption属性的是:
A)ListBox B)CheckBox C)Frame D)正三角形

下面哪类控件不支持Change事件:
A)TextBox B)Label C)PictureBox D)ListBox

下面各类型对象中,没有Move方法的是:
A)Line B)Image C)Form D)Shape

在列表框中添加一个条目,应使用列表框的什么方法:
A)InsertItem B)AddItem C)AppendItem D)RemoveItem
……
3、 读程序,写结果(30%)
例题:
下面程序段执行完毕,窗体上显示的结果是什么?
Dim b As Single,k As Integer
b=0.2
p=100
n=0
Do
p=p*(1+b)
n=n+1
Loop until p>200
Print p,n

对下面程序,单击窗体后,窗体上显示什么内容?
Private Sub Form_Click()
Dim x As Integer,y As Integer,z As Integer
X=1:y=2:z=3
Call sub1(x,y,z)
Call sub1(y,z,x)
Call sub1(y,y,z)
End Sub

Private Sub sub1(byVal x As Integer, y As Integer, z As Integer)
Dim I As Integer
X=2*z
Y=3*z
Z=x+y
Print x,y,z
End Sub

执行下面程序,单击窗体后,窗体上显示的第一行结果是 ,第三行结果是 。
Private Sub Form_Click()
Dim Mystr As String
Dim Mystr1 As String
Dim Mystr2 As String
Mystr1 = "B"
For i = 1 To 3
Mystr2 = LCase(Mystr1)
Mystr1 = Mystr1 & Mystr2
Mystr = Mystr & Mystr1
Print Mystr
Mystr1 = Chr(Asc(Mystr1) + i)
Next
End Sub
执行下面程序,窗体上显示的结果是什么?
Dim m As Integer, n As Integer, k As Integer
n=20:k=1
For m=1 to n Step k
Print m
n=n-1
k=k+2
Next
Print n,k
……
4、综合题(30%)
例题:
编写递归函数求1+2+3+……+m的值。
编程计算100~100000之间,共有多少个整数,满足它的各位数字之和为5。
编程计算20+21+22+23+•••+210的值。
编程计算100~100000之间,共有多少个整数,满足它的各位数字之和可被3整除。
……



...全文
1347 点赞 收藏 19
写回复
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
波导终结者 2008-01-14
而且这种根本就不会结贴
回复
jxchen121 2008-01-14
建议类似的问题大家都不要给与解答,这已经不是问问题了,这是在帮他们做题!
可能是在助长一种习性。
回复
z_wenqian 2008-01-14
第四大题2: 又少一层循环,效率提高,55次循环就能求出结果120
Sub iCount5()
Dim i As Long, j As Long, k As Long, c As Long
For i = 0 To 5
For j = 0 To 5 - i
For k = IIf(i + j, 0, 1) To 5 - i - j
c = c + (5 - i - j - k) + 1
Next k
Next j
Next i
Print c
End Sub
回复
波导终结者 2008-01-14
等下肯定问你Function和Sub要怎么用
回复
ac5474012 2008-01-14
嘻嘻 谢谢大家了,所有的问题都搞定了,明天可以安心考试了。我这就结贴
回复
z_wenqian 2008-01-13
唉,第四大题(昨天休息,今天给你)

1.
Function AddNum(ByVal n As Long) As Long
If n = 1 Then
AddNum = n
Else
AddNum = n + AddNum(n - 1)
End If
End Function

2.
Sub iCount5()
Dim i As Long, j As Long, k As Long, l As Long, c As Long
For i = 0 To 5
For j = 0 To 5 - i
For k = IIf(i + j, 0, 1) To 5 - i - j
For l = 0 To 5 - i - j - k
c = c + 1
Next l
Next k
Next j
Next i
print c
End Sub
结果 c=120

3.
Sub AddNum()
Dim i As Long, c As Long
For i = 20 To 220
c = c + i
Next i
Print c
End Sub
结果 c=24120


Sub iCount()
Debug.Print CLng((20 + 220)) * (220 - 20 + 1) / 2
End Sub
结果 c=24120


4.
Sub iCount3()
Dim i As Long, c As Long
For i = 100 To 100000
If i Mod 3 = 0 Then c = c + 1
Next i
Print c
End Sub
结果 c=33300
回复
cike_1111 2008-01-13
这个楼主好强悍啊!!

回复
ac5474012 2008-01-12
嘻嘻嘻 谢谢z_wenqian 和给各位帮助~ 不过那位能帮我写一下第4题就更好阿~! 帮帮我把~
回复
gongxuchao 2008-01-12
你这哪是有些不太会啊.简直是一个都不会..唉~~~~~~~
回复
波导终结者 2008-01-12
等下肯定还找你要4.3
回复
Sandrer 2008-01-12

'4.1
Private Function NumberSum(ByVal Max As Long, Optional ByVal Min As Long = 1) As Long
Dim lMin As Long, lMax As Long
Dim i As Long
Dim Sum As Long
On Error Resume Next
lMin = Min
lMax = Max
If lMax < lMin then
i = lMin
lMin = lMax
lMax = i
End If
For i = lMin To lMax
Sum = Sum + i
Next i
NumberSum= Sum
End Function

'4.2
Const Min As Long = 100
Const Max As Long = 100000
Dim i As Long, j As Long
Dim tmp As Long,Sum As Long
Dim NumCount As Long
For i = Min To Max
tmp = i
Sum = 0
For j = 1 To Len(tmp)
Sum = Sum + Mid(tmp, j, 1)
Next j
If (Sum Mod 5) = 0 Then NumCount = NumCount + 1
Next i
Debug.Print NumCount

'4.3 参考4.1

'4.4
Const Min As Long = 100
Const Max As Long = 100000
Dim i As Long, NumCount As Long
For i = Min To Max
If (i Mod 3) = 0 Then NumCount = NumCount + 1
Next i
Debug.Print NumCount
'只要能被3整除的数,各位数相加的结果必然可以被3整除
'至于5嘛,我暂时还没发现有什么规律,所以代码比较复杂点
回复
tingting1123 2008-01-12
晕...
回复
z_wenqian 2008-01-11
第三大题
1. 207.36 4
2. 6 9 15
2 3 5
6 9 15
3. Bb
BbCc
BbCcEe
4. 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
0 41
回复
白发程序猿 2008-01-11
不是吧,有前途
回复
波导终结者 2008-01-11
现在的孩子就是这样被惯坏的。
回复
ac5474012 2008-01-11
瓦 ~! 好快阿,谢谢各位了。可是我现在没有vb,那位能帮一下忙把第三大题搞定了?
回复
Sandrer 2008-01-11
判断:
1、×
2、√
3、×(这个就要看你怎么加了,如果是转换成Long类型,再进行相加,最后再转换为Date类型的话,可以,不过好象有个上限。相加的值不能超过9999-12-31)
4、×
5、×
6、√
7、√
8、×
9、√
10、×
第十题的意思我不是很懂,我只是按我自己的理解给答案
我的理解是这样 ,看下面的代码:
Dim tmpDate As Date
tmpDate = Now()
Debug.Print tmpDate
变量tmpDate为日期变量
你看看打印出来的结果有没有时间。。。。。
(注:日期类型的变量占8字节,其中4字节为日期,另外4字节为时间)


选择题:
1、D
2、不明白什么是代数,sorry
3、C
4、D
5、D
6、B
7、A
8、D
9、A
10、B


第三大题自己打开VB试试
回复
tingting1123 2008-01-11
现在的孩子...哎.要是让老爸老妈看到 该多伤心啊!
回复
caofusheng 2008-01-11
判断
一个变量在刚被声明尚未被赋值之前没有值。( n )
对英文字母的比较,默认情况下是区分大小写的。( y )
两个日期时间值可以做减法,但不能做加法。( y )
表达式 NOT x <3 和 x> 3是等价。( n )
注释行也能使用续行符。( n )
VB编译生成的可执行文件不再需要工程文件与各个模块文件。( y )
VB程序中不区分代码字符的大小写。( y )
当把浮点数赋给整型变量时,会出现溢出错误。( n )
在同一作用域中,变量名不能重复。( y )
日期时间型变量既可以保存日期值,也可以保存时间值,但不能同时保存日期和时间值。( y )
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告