这些vb试题答案是什么???

[复制链接]
查看11 | 回复2 | 2009-7-6 21:19:38 | 显示全部楼层 |阅读模式
7.
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程:

Private Sub Commandl_Click()

Text1.Text = "VB Programming"

Text2.Text = Text1.Text

Text1.Text = "ABCD"

End Sub
程序运行后,单击命令按钮,两个文本框中显示的内容分别为 _________ 和 ___________。
8.
控件和窗体的Name属性只能在 _________窗口中设置,不能在 _________ 代码窗口中设置。
9.
为了使标签能自动调整大小以显示全部文本内容,应把标签的__________ 属性设置为True。
10.
为了使一个标签透明且没有边框,必须把它的BorderStyle属性设置为____________,并把BackStyle属性设置为___________。
11.
在VB应用程序中用Const将Name声明为字符串“张三”常量,使用的语句是_____________________________。
12.
以下语句的输出结果是 __1________ 。

print sgn(2)
13.
执行以下语句后,输出结果是 ___________ 、 __________ 。

s$="ABCDEFGHIJK"

print left$(s$,4)

print right$(s$,4)
14.
执行以下语句后,输出结果是 ____________ 、 __________ 。

s$="ABCDEFGHIJK"

print mid$(s$,3,4)

print len(s$)
15.
执行以下语句后,输出结果是 ___________。

s$="ABCDEFGHIJK"

print lcase$(s$)
16.
在Visual Basic中,字符串常量要用 __________ 括起来,日期/时间型常量要用 _________ 括起来。
17.
下列语句的输出结果是 __________。

Print Int(12345.6789*100+0.5)/100
18.
语句Print"25+32=";25+32的输出结果是 ___________。
19.
以下语句的输出结果是__________。

s$="China"

s$="Beijing"

Print s$
20.
阅读程序:

Sub Form Click()

a=10:b=15:c=20:d=25

Print a;Spc(5);b;Spc(7);c

Print c;Spc(3);"+";Spc(3);d;

Print Spc(3);"=";Spc(3);c+d

End Sub
运行上面的程序,单击窗体,输出结果是_________________、____________________、__________________________。
21.
以下程序段的输出结果是______________ 。

x=8

Print x + 1; x + 2; x + 3
22.
表达式Fix(-32)+Int(-24)的值为______________。
23.
下面程序的作用是利用随机函数产生10个100~200之间(包含100、200)的随机数,打印其中为5的倍数的数,并求出它们的总和。请将下列程序补充完整。
Private Sub Command1_Click()
For m = 1 To 10
x = Int(Rnd * __________)
If ____________________ Then
Print x;
k1 = k1 + x
End If
Next m
Print "k1="; k1
End Sub

回复

使用道具 举报

千问 | 2009-7-6 21:19:38 | 显示全部楼层
7: ABCD
VB Programming8:属性 编写代码9:AutoRedraw10:0-None0-Transpare11:Const Name As"张三"12:113:ABCDHIJK14:CDEF1115:abcdefghijk16:""
##17:12345.6818:25+32= 5719:Beijing20:10
15
20
20 +
25 =
4521:9101122:-5623:(Rnd*101)+100
x Mod 5=0...
回复

使用道具 举报

千问 | 2009-7-6 21:19:38 | 显示全部楼层
【lancaoo - 经理 四级 】回答的第11题有误,应为:Const Name = "张三" 或 Const Name As String = "张三"...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行