Private Function yh(n As Integer)
Dim a() As Integer
ReDim a(1 To n, 1 To n)
For i = 1 To n
a(i, 1) = 1
a(i, i) = 1
Next i
For i = 3 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next j
Next i
For i = 1 To n
For j = 1 To i
Print Tab(20 - 2 i + 4 j); a(i, j);
Next j
Next i
End Function
Private Sub Form_Load()
Dim n As Integer
MeShow
n = InputBox("输入行数:")
yh n
End Sub
一、判断题(本大题共10小题,每小题2分,共20分,答案用A表示正确,B表示错误)
1A 2A 3B 4A 5A 6B 7B 8B 9B 10B
二、选择题(本大题共10小题,每小题2分,共20分)
1下列表示条件“性别(Sex)为男、职称(Duty)为副教授以上、年龄(Age)小于40岁”的VB逻辑表达式中,不正确的是( A )
2下列表达式中,与其他3个表达式运算结果不相同的是( B )
3设a = 2, b = 0,则语句 Print (a = 2) And (b = -2) 的输出结果是( B )
4下面程序片段运行后,显示的结果是( C )
5若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为( A )
6下列关于ForNext 语句的说法正确的是( D )
7改变控件在窗体中的左右位置应修改的控件属性是( B )
8在VB中,如果要创建“年级”和“班级”两组单选按钮,具体的做法是( C )
9下列关于计时器控件的说法中错误的是( D )
10若要将窗体从内存中卸载出去,其实现的方法是( D )
1、d、Caption
2、a、a, b都是整型
3、b、窗体布局
5、c、当用 Show方法显示窗体时,必定会发生Load事件
6、c、FondBold
7、c、38
8、 c、Dir1_Change事件
9、d、n!
1
x = Val(InputBox("Input X: "))
If x < 10 Then y = Abs(x)
If x <= 20 Then y = Sqr(3 x - 1)
If x > 20 Then y = 3 x + 2
DebugPrint y
2
x = Val(InputBox("Input X: "))
If x < 10 Then
y = Abs(x)
ElseIf x <= 20 Then y = Sqr(3 x - 1)
ElseIf x > 20 Then y = 3 x + 2
End If
DebugPrint y
3
x = Val(InputBox("Input X: "))
select case x
case x < 10
y = Abs(x)
case <= 20
y = Sqr(3 x - 1)
case else
y = 3 x + 2
end select
DebugPrint y
你在迅雷资源里输入“vb制作”,里面都是教程!!!相信有你要找的那种!
我也是刚开始学vb的 感觉那里的东西挺适合我的!!!!希望对你也有帮助!有经典的问题希望能与你探讨,gongtong jinbu !
通过本考试的合格人员能参与应用信息系统的规划、设计、构建、运行和管理,能按照用户需求,设计、建立、运行、维护高质量的数据库和数据仓库;作为数据管理员管理信息系统中的数据资源,作为数据库管理员建立和维护核心数据库;
知道的也发下给我吧,急需,谢谢 916773862@qqcom
计算机二级vb考试试题(附答案)
A目前使用的IP协议主要是IPv4协议,其IP地址长度为32位
B因特网是多个网络互联而成的,不同网络中的主机可以具有相同的IP地址
C域名是IP地址的文字表述形式,但不是所有的IP地址均有相应的域名
D一个IP地址可以有多个对应的域名
16通常所说的TCP/IP协议,是指由100多个协议组成的协议系列(包含下列几个协议)•
在下列协议中,发送电子邮件主要依赖___(16)___
A>
以上就是关于急!2道大学VB程序设计题,希望高手帮忙!(截止至今晚7点)全部的内容,包括:急!2道大学VB程序设计题,希望高手帮忙!(截止至今晚7点)、vb题目 望懂的人写下答案 感激不敬!、VB程序设计等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)