单选题用来设置文字字体是否斜体的属性是( )。
单选题如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是______。
A.2个复选框可用
B.2个复选框不可用
C.2个复选框不显示
D.上述都不对
单选题下列程序段的执行结果为______。 Dim n As Integer n=10 While n <> 0 n=n-1 Wend Print "n="; n
单选题有两个关系R、S,如下:由关系R通过运算得到关系S,所使用的运算为
单选题假定有如下事件过程: Private Sub Form_MouseDown(Button As
Integer,Shift As Integer,X As Single,Y As Single) If Button=2
Then PopupMenu popForm End If
End Sub 则以下描述中错误的是{{U}} {{/U}}。
A.该过程的功能是弹出一个菜单
B.PopForm是在菜单编辑器中定义的弹出式菜单的名称
C.参数X、Y指明鼠标的当前位置
D.Button=2表示按下的是鼠标左键
单选题以下选项中不属于一个Visual Basic应用程序组成模块的是 ______。
单选题以下语句的输出结果是______。 Print Format$("123.58","#,###.00") A) 123.58 B) 123.00 C) ,123.58 D) 0,123.58
单选题开发软件所需高成本和产品的低质量之间有着尖锐的矛盾,这种现象称做( )。
单选题设有下面程序代码: Option Base 1 Pfivate Sub Commandl_Click() Dim x(6) a=Array(4,2,5,1,6,3) b=Array(64,24,98,27,58,41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k): Next k End Sub 程序运行时的输出是
单选题在窗体上画一个按钮,然后编写如下事件代码。单击按钮,输出为 ______。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (a) c = fun3 (b) Print c End Sub
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程; Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是______。
单选题要求函数的功能是:从参数str字符串中删除所有参数ch所指定的字符,返回实际删除字符的个数,删除后的字符串仍在str中,为此某人编写了函数DelChar如下:Function DelChar(str As String, ch As String) As Integer Dim n%, st$, c$ st = "" n = 0 For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then st = st & c Else n = n + 1 End If Next k str = st DelChar = n End Function并用下面的Command1_Click()过程观察函数调用结果Private Sub Command1_Click() ch$ = Text1.Text Print DelChar(ch, "x"), chEnd Sub发现结果有错误,程序代码需要修改,以下正确的修改方案是( )。
单选题设置定时器控件的Interval属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出( )次Beep声。 Sub Timer1_Timer() Beep End Sub
单选题执行以下语句过程,在窗体上显示的内容是 Option Base 0 Private Sub Command3_Click( ) Dim d d=Array("a","b","c","d") Print d(1);d(3) End Sub
单选题在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2:六个标签,名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6,其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条的数值,Label3显示A*B的计算结果。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。
单选题工程中有两个窗体,名称分别为Form1、Form2,Fonn1为启动窗体,该窗体上有命令按钮
Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该是 ______。
A. Private Sub Command1_click() Foma2.Show
End Sub
B. Private Sub Command1_Click()
Form2.Visible End Sub
C. Private Sub Command1_Click() Load Form2
End Sub
D. Private Sub Command1_click() Form.Load
EndSub
单选题有下列程序: Private Sub Command1_Click() x$ = "Nanchang" y$ = "Beijing" z$ = "Nanjing" z$ = InStr(Left(x$, 3)+ Right(y$, 4), z$) Print z$ End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是________。
单选题设子程序过程定义的首部为:Public Sub S(X As Integer,Y As Single)则以下正确的调用形式为
单选题在表达式2+3*4^5-Sin(x+1)/2中,首先进行的运算是( )。
单选题在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后,如果在键盘上输入单字母“k”,则在文本框Text1中显示的内容为( )。