单选题用于动态地在菜单中增加菜单项的语句是 ______。
单选题执行下列语句后,显示输入对话框,此时如果单击"确定"按钮,则变量s1的内容是________。 s1 = InputBox("请输入字符串", "字符串对话框", "字符串")
单选题为达到把a、b中的值交换后输出的目的,某人编程如下: Private Sub Command1_Click() a%=10:b%=20 Call swap(a,b): Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是______。 A) 调用swap过程的语句错误,应改为Call swap a,b B) 输出语句错误,应改为Print"a","b" C) 过程的形式参数有错,应改为swap(ByRef a As Integer,ByRefb As Integer) D) swap中3条赋值语句的顺序是错误的,应改为a=b:b=c:c=a
单选题假定有如下的程序段:Dim intVar As Integer intvar=True Print intVar则输出结果是
单选题以下变量名中, ______ 是不符合Visual Basic的命名规范的。
单选题在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”;1个复选框(名称为Check1,标题为“粗体”)和1个文本框(名称为Text1,Text属性为“改变文字字体”),窗体外观如图所示。程序运行后,要求“宋体”单选按钮和“粗体”复选框被选中,则以下能够实现上述操作的语句序列是()。
单选题下列关于事件的叙述中不正确的是______。
单选题在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程: Dim Str1 As String,str2 As String Private Sub form_load() Text1.Text="" Text2.Text="" Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyPress(KeyAscii As Integer) str1=str1&Chr(KeyAscii) End Sub Prirate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) str2=str2&Chr(KeyCode) End Sub Private Sub Command1_Click() Text1.Text=str1 Text2.Text=str2 str1="" str2="" End Sub 当在设计阶段的窗体的KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为
单选题设计窗体时,双击窗体上没有控件的地方,打开的窗口是
单选题在窗体上建立通用对话框需要添加的控件是
单选题假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及ModeL2组成。 Model1代码如下: Public x As Integer Public y As Integer SubS1( ) x=1 S2 End Sub Sub S2( ) y=10 Form1.Show End Sub Model2的代码如下: Sub Main( ) S1 End Sub 其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是
单选题在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Text1. text = " " Call P1 (x,y,z) Text1. Text = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后,如果单击命令按钮,在文本框中显示的内容是 ______。
单选题循环队列的存储空间为Q(1:50),初始状态为front=rear=50。经过一系列正常的入队与退队操作后,front=rear=25,此后又正常地插入了一个元素,则循环队列中的元素个数为______。
单选题编写如下程序:Private Sub Command1_Click() Dim i As Integer, j As
Integer n=InputBox("输入一个大于1的正整数") For i=2 To n For j=2 To
Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i)Then
Print i Next iEnd Sub该程序的功能是______。
A.判断n是否为素数
B.输出n以内所有的奇数
C.输出n以内所有的偶数
D.输出n以内所有的素数
单选题下列关于顺序文件的描述中,正确的是
单选题设整型数组a有10个元素,其中前9个元素中数已按小到大顺序排列,下面程序段的作用是______。
x = InputBox("请输入一个整数")
k = 8
Do
If x > = a(k) Then
a(k+1) = x
Exit Do
Else
a(k + 1) = a(k)
If k = 0 Then a(k) = x
k = k - 1
End If
Loop Until k < 0
单选题一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是( ) A.12345ABCDE B.EDCBA54321 C.ABCDEl2345 D.54321EDCBA
单选题有如下程序,其运行结果为 ______。 Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date "X+Y:之和", 300, 200. 613 End
单选题窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
单选题在用菜单编辑器设计菜单时,必须输入的项是______。
