单选题为了判断字符串变量ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为True,否则为False。下面能正确实现这一目的的表达式是
单选题下面关于菜单的叙述中错误的是【 】
单选题在窗体上按顺序,分别画出变量按钮Command1、文本框Text1和Text2。为了将Text2的Tab顺序设置为第一,应将Text2的TabIndex属性设置为
单选题为了清除列表框中指定的项目,应使用的方法是
单选题下面关于标准模块的叙述中,错误的是______。
单选题在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base j Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=l For i=4 To 1 Step一1 s=s+a(i)*j j=j*10 Next i Print s End Sub 程序运行后,单击命令按钮,其输出结果是( )。
单选题下列对变量的定义中,不能定义a为变体变量的是 A) Dim a As Double B) Dim a As Variant C) Dim a D) a=24
单选题在窗体上画1名为Command1的命令按钮和1名Text1的文本框,再编写如下程序:
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii_
As Integer)
If Chr(KeyAscii)<>""Then
ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String, i As Integer
For i=Len(ss) To 1 Step-1
m=m+Mid(ss, i, 1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是
单选题在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDialog1.Show Open MsgBOX CommonDialog1.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是( )。
单选题要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为( )。
单选题已知图片框Picturel中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是
单选题当在滚动条内拖动滚动块时触发
单选题以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
单选题设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
单选题下面关于多重窗体的叙述中,正确的是( )。
单选题Visual Basic集成环境由若干窗口组成,其中不能隐藏(关闭)的窗口是
单选题窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Privme Sub Command1_Click() Dim sl As String,s2 As String Open"c:\d4.dat"For Append As #3 Line Input #3,s1 Line Input #3,s2 Text1.Text=s1+s2 Close End Sub 该程序运行时有错误,应该进行的修改是
单选题在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后,单击命令按钮,输出结果是______。
单选题在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下程序: Dim S1 As String,S2 As String Private Sub Form Load() Text1.Text=" " Text2.Text=" " Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2& Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1=S1&Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S1 Text2.Text=S2 S1=" " S2=" " End Sub 程序运行后,先后按a、b、c键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为______。 A) 空白 B) abc和ABC C) 出错 D) ABC和abc
单选题要计算x的平方根并放入变量y,正确的语句是______。
A.y=Exp(x)
B.y=Sgn(x)
C.y=Int(x)
D.y=Sqr(x)
