填空题Visual Basic程序在运行过程中,用户可通过按
________
键进入中断状态。
填空题在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序:
Function a(x As Integer, y As Integer) As Integer
a = IIf(x > y, x, y)
End Function
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = 10
m = 20
Print a(n, m)
End Sub
程序运行后,单击命令按钮,输出结果是______。
填空题如果存在如下过程: Private Function Fun(a()As Integer) Dim First As Integer,Last As Integer,i As Integer First=LBound(a) Last=LBound(a) Max=a(First) For i=First To Last If a(i)>Max Then Max=a(i) Next Fun=Max End Function 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() ReDim in(1 To 4)As Integer m(1=20:m(2)=30:m(3)+50:m(4)=100 c=Fun(m) Print c End Sub 单击命令按钮,其输出结果为______。
填空题Printer.Print"*"星号输出到______。
填空题软件工程是计算机科学中的一个分支,其主要思想是在软件生产中用{{U}} 【4】 {{/U}}的方法替代传统手工方法。
填空题下列语句的输出结果是 【6】 。 Print Format$(6658.6,"000,000.00.")
填空题在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中 【5】 的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
填空题软件工程概念的出现源自 【4】 。
填空题数据库三级模式体系结构的划分,有利于保持数据库的
________
。
填空题常用的软件开发方法有结构化方法和面向对象方法
填空题设当前日期为2007年12月27日,星期四,则执行下列语句后的输出结果是______。 Print Day(Now) Print Month(Now) Print YeaffNow) Print Weekday(Now)
填空题由一棵二叉树的前序遍历序列和
________
可唯一确定这棵二叉树。
填空题设一棵完全二叉树共有700个结点,则在该二叉树中有 (2) 个叶子结点。
填空题在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer Sum=0 n=InputBox("Enter a number") n=Val(n) For i=1 To n sum=______ Next i Print Sum End Sub Function fun(t As Integer)As Long P=1 For i=1 To t p=P*i Next i ______ End Function 以上程序的功能是,计算1! +2! +3! +…+n!,其中n从键盘中输入,请填空。
填空题VB有两种类型的数组:固定大小的{{U}} 【12】 {{/U}}和在运行时可以改变的动态数组。
填空题下述语句段在运行时的显示结果是{{U}} 【6】 {{/U}}。
Cls
x=10.34 + 8
Print Len(x)
填空题下面程序实现将预先装载在Picture1中的图形清除,在横线上填写正确的语句。
Private Sub Form_Load()
Picture1.Picture=LoadPicture("face.bmp")
End Sub
Private SubCommand1 Click()
{{U}} 【8】 {{/U}}
End Sub
填空题类是一个支持集成的抽象数据类型,而对象是类的【 】。
填空题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim Y as String
X=5
Y=X & Space(3) & X
Print X;
Print Trim(Y);Len(Trim(Y))
End Sub
该程序的执行结果是{{U}} 【2】 {{/U}}。
填空题输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDE”变换成“EDCBA”。请把程序补充完整。 Private Sub Command1_Click Dim a$,i%,c$,d$ a=InputBox$(“输入仟意字符串”) n=Lea(A) For i=1 to______ c=Mid(a,i,1) Mid(a,i,1)=______ ______=c Next i Print a End Sub