-
1
[单项选择题] 已知某弹出式菜单名为“p1”，它的Visible属性为False。现在要让它在名为Form1的窗体上弹出，使用的命令是( )。
A．Popup P1
B．Form1．Popup P1
C．P1．Popup
D．Popup Form1．p1
-
2
[问答题] 完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果，图5是输入100的结果。已经给出了全部控件和程序，但程序不完整。
要求：请在程序中的横线处填写正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Private Sub Command1_Click()
Dim n As Integer
Cls
(1) =InputBox("请输入一个整数")
Print "因子数="; fun(n)
End Sub
Function fun(m As Integer)
Dim s As Integer
s=0
For k=1 To Abs(m)/2
If m Mod k= (2) Then
s=s+1
Print k
End If
Next k
(3)
End Function
-
3
[填空题] 工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮"计算并显示"(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示"请输入数值数据!"。请填空。
Private Sub Command1_Click()
If Text1.Text=" "Then
MsgBox"请输入半径!"
Elself Not IsNumeric( (9) )Then
MsgBox"请输入数值数据!"
Else
r=Val( (10) )
Form2.Show
(11) .Print"圆的面积是"＆3.14"r*r
End If
End Sub
-
4
[单项选择题] 设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是
A．Text1.MaxLength=0
B．Text1.Enabled=False
C．Text1.Text=False
D．Text1.Index=0
-
5
[填空题] 若A＝20，B＝80，C＝70，D＝30，则表达式A+B＞160 Or(B * C＞200 And Not D ＞60)的值是 【8】 。
-
6
[单项选择题] 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_ Load () Show Text1.Text=" " Text1.SetFocusEnd SubPrivate Sub Command1_ Click() Text1. Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_ KeyPress (KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为 ______。
A．vbVB
B．不显示任何信息
C．VB
D．出错
-
7
[问答题] 下面是一个Applet程序，其功能是打印一个任意进制的乘法表。要求输入乘法表的进制，点击确定则打印出该乘法表。请改正程序中的错误(有下画线的语句)，使程序能输出正确的结果。 注意：不改动程序的结构，不得增行或删行。 import java.awt.*； import java.applet.*； import java.lang.*； public class exl2_3 extends Applet{ private TextField tf； private Button btn； public void init(){tf=new TextField(25)；add(tf)；btn=new Button("确定")；add(btn)；resize(250，200)； } public void paint(Craphics g){try{int n= tf.getText()；int i,j,x=20,y=60；for(i=0;i＜n;++){for(j=1;j＜=n;j++){ g．drawString(Integer.toString(i)+"*" +Integer.toString(j)+"=" +Integer.toString(i*j)，i*x,j*y)； } } } catch(NuaberFormatEXCeption nfe){ g.drawString("error namber!",20,50)； } } public boolean action(Event e，Object o){ if(o=="确定"){repaint()；return true； } elsereturn false；} } exl2_3.html ＜HTML＞ ＜HEAD＞ ＜TITLE＞exl2_3＜/TITLE＞ ＜/HEAD＞ ＜BODY＞ ＜applet code="exl2_3.class"width=800 height=400＞ ＜/applet＞ ＜/BODY＞ ＜/HTMI＞
-
8
[单项选择题] Applet可以做下列哪些操作( )
A．调用用户计算机上的系统去执行其他的应用程序
B．访问用户的文件系统
C．装入用户计算机上以其他程序语言所写的应用程序或函数库
D．读取客户端部分系统变量
-
9
[填空题] 下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。Option ExplicitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop 【13】 Gcd=aEnd FunctionPrivate Sub form_ Click() n=0 for a= 1 To 49 b= 【14】 c= Gcd (a, b) if c Mod 3= 0 then 【15】 Print a, b, c End if Next a Print nEnd Sub
-
10
[填空题] 以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)～A(10)依次赋给B(1，1)～B(1，10)，把A(11)～A(20)依次赋给B(2，1)～B(2，10)，……，把A(91)～A(100)依次赋给B(10，1)～B(10，10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer,j As Integer
Dim A(1 To 100) As Integer
Dim B(1 To 10, 1 To 10) As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To (8)
For j=1 To (9)
B(i,j)= (10)
Print B(i,j)
Next j
Print
Next i
End Sub
