填空题阅读以下程序： Private Sub Form_click() Dim k, n, m As integer n = 20 m = 1 k = 1 Do While k ＜= n m=m+2 k = k + 1 Loop Print m End Sub 单击窗体程序的执行结果是 【4】 。
填空题________
的功能是用于显示当前过程中的有关信息，当测试一个过程时，可在其中输入代码并立即执行。
填空题已知K=2，J=3，A=True，则VB表达式(K-J＜=K)AND(NOT A)OR(K＋J＞=J)的值为{{U}} 【6】 {{/U}}。
填空题下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。 Dim a As Single,b As Single,c As Single Dim delta As Single a=txtA. Text:b=txtB. Text:c＝txtC. Text delta={{U}} 【11】 {{/U}} If delta＞0 Then lblResult. Caption="有两个不相等的实根" Elself delta＝0 Then lblResult. Caption="有两个相等的实根" {{U}} 【12】 {{/U}} lblResult. Caption＝"没有实根" End If
填空题在数据结构中，用—组地址连续的存储单元一次存储数据元素的方式是{{U}} 【2】 {{/U}}结构。
填空题存储结点中数据域占用的存储量与整个结点占用的存储量之比称为______。
填空题数据模型是数据库系统中用于提供信息表示和操作手段的结构形式。实际数据库系统中斯支持的数据模型主要有层次模型、网状模型和
________
3种。
填空题设有如下程序：PrivateSubForm_Click()Clsa$=“ABCDFG”Fori=1To6PrintTab(12-i);______NextiEndSub程序运行后，单击窗体，结果如图所示，请填空。
填空题编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。 Private Sub Command1_Click() Dim AAs Integer,B As Integer A= (6) B=Val(Text2.Text) (7) =A+B End Sub
填空题对象是既包含数据又包含对______的方法，并将其封装起来的一个逻辑实体。
填空题数据库管理系统常见的数据模型有层次模型、 (5) 和关系模型三种。
填空题下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click() Randomize p=“” For i = 1 To 10 Do x = Int (Rnd * 90) + 10 yes = 0 For j = 1 To 【9】 If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x Next i For i = 1 To 9 For 【10】 To 10 If a(i) ＞ a(j) Then t = a(i) 【11】 a(j) = t End If Next j Next i p = Str(a(1)) For i = 2 To 10 p = p & “,” & Str(a(i)) Print p Next i End Sub
填空题在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。PrivateSubOption1_Click(______)DimH,WPicture1.ClsPicture1.FillStyle=______W=Picture1.ScaleWidth/2H=Picture1.ScaleHeight/2Picture1.Circle(W,H),W/2EndSub
填空题在窗体画一个命令按钮，然后编写如下过程: Function fun(ByVal num As Long)As Lone Dim k As Long k=1 num=Abs (num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n= InputBox (“请输入一个数”) n=CLng (n) r=fun (n) Print r End Sub程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 【12】 。
填空题组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和______，分别通过把style属性设置为2、1、0来实现。
填空题对右边二叉树进行中序遍历的结果为______。
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR( ) Randomize Dim a(10) For j=1 To 10 a(i)=Int( 【14】 ) If 【15】Then k=k+1 Print a(j) Next j Print Print k/10 End Sub
填空题运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 【14】 和 【15】 。 Private Sub Command1_Click() t=1:x=2:y=3:z=4 If t＞0 Or t=x And x ＜＞ y Or y＞z Then t=fun1(t，z) Print t Else t = fun1(x, y) Print t End If Print x Print y End Sub Function funl(ByVal x As Integer, ByVal y As Integer)As Integer Do While y ＜＞ 0 t=x/y x=y y = t Loop fun1 = x End Function
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1中画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click() ______Me Form2．______ End Sub
填空题执行下面的程序段后，变量S的值为 (7) S=5 For i=2.6 To 4.9 Step 0.6 S=S+1 Next i