单选题不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是( )。
单选题在窗体上画1名为Command1的命令按钮和1名Text1的文本框,再编写如下程序:Dim ss As String Private Sub Commandl_Click()Private Sub Text1_KeyPress(KeyAscii_ Dim m As String,i As Integer As Integer) For i=Len(ss)To 1 Step-1 If Chr(KeyAscii)<>""Then m=m+Mid(ss,i,1) ss=ss+Chr(KeyAscii) NextEnd Sub Text 1.Text=UCase(m) End Sub程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是
单选题窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。现有如下程序:PublicSubdisplay(XAsControl)IfTypeOfxIsLabelThenxCaption="计算机等级考试"ElsexPicture=LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序,下列叙述中错误的是()。
单选题表达式Chr(Asc("G")+3)的值是______。
单选题阅读下列程序: Private Sub Command1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print Fun(k); Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后,单击命令按钮输出结果是 A) 234 B) 345 C) 567 D) 356
单选题不能脱离控件(或窗体)而独立存在的过程是______。
单选题用户在组合框中输入或选择的数据可以通过( )属性来获得。 A) List B) ListIndex C) Text D) ListCount
单选题一个工程必须包含的文件的类型是( )。
单选题在菜单编辑器中建立1个名称为Menu()的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程 Private Sub Form_MousDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu Menu() End If End Sub 则以下叙述中错误的是
单选题执行语句s=Len(Mid("Visual Basic",1,6))后,s的值是
A. Visual
B. Basic
C. 6
D. 11
单选题在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句( )。 Private Sub Option1_Click(Index As Integer) Select Case Case 0 a=“宋体” Case 1 a=“黑体” Case 2 a=“楷体_GB2312” End Select Text1. =a End Sub
单选题Visual Basic程序中的注释所使用的字符是( )
单选题当复选框的Value属性值为1时,表示( )
单选题以下合法的VB变量名是
单选题在窗体上有2个图片框,名称分别为Picture1和Picture2,Picture2中添加了香蕉图片(见图3),且将Picture2.DragMode属性设置为1。要求程序运行时,可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现此功能的事件过程是()。
单选题由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:Private Function f(x As Single) As Single 可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2,判断在x1、x2之间是否存在零点。Private Sub Command1_Click() Dim x1 As Single, x2 As Single x1 = InputBox("请输入一个实数x1") x2 = InputBox("请再输入一个实数x2") If ( ____________ ) Then Print "在"; x1; "与"; x2; "之间存在零点" Else Print "不能确定在"; x1; "与"; x2; "之间是否存在零点" End IfEnd SubPrivate Function f(x As Single) As Single ……End Function为使上面程序可以实现该功能,程序代码中横线处应填写的代码是
单选题下面程序计算并输出的是______
单选题在命令窗口中执行下列命令:
SJKM=″HYGS″
USE &SJKM
后,已打开的数据表文件是( )
单选题以下叙述中错误的是
单选题下列语句中,不能用于定义数组的关键字是( )。
