填空题

在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Forml.______pmenu

答案： PopupMenu

你可能感兴趣的试题

执行下面的程序段后，i的值为，s的值为。 s=2 For i=3.2 To 4.9 Step 0.8 s=s +1 Next i

答案： 5.6

问题处理方案的正确而完整的描述称为______。

答案：算法或程序或流程图

若按功能划分，软件测试的方法通常分为白盒测试方法和______测试方法。

答案：黑盒或黑箱

一棵二叉树第六层(根结点为第一层)的结点数最多为______个。

答案： 32

在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Forml.______pmenu

答案： PopupMenu

与数学表达式
对应的，Visual Basic表达式是______。

答案： (Cos(a+b))^2/(3*x)+5 或 (Cos(a+b)*Cos(a+b))/(3*x)+5 或 ((Cos(a...

程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。 Option Explicit Private Dim k As Integer For k=1 To 100 If k Mod 20 Then _ Else Text1.Text=" " End If Print“程序运行完毕，可再双击窗体” End Sub

答案： Sub My window_DblClick()

设有如下程序： Private Sub Form_Click() Dim a As Integer， s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是。程序运行后，单击窗体，输出结果为。

答案：计算8+7+6+5+4+3+2+1

如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click() Dim k As Integer， n As Integer， found As Boolean found=False n= Len() k = 0 While k＜List1.ListCount And Not found If Text1=Lefts(List1.List(k)，n)Then Text2＝ found＝True End If k ＝ k + 1 Wend If Not found Then Text2＝“查无此人” End If End Sub

答案： Text1或Text1.Text

假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在空白处将程序补充完整。 Private Sub Command1_Click() form2． End Sub

答案： Unload Forml 或 Unload Me