单选题由高中数学可知,对于连续函数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 Commandl_Click() Dim x1 As Single,x2 As Single x1=InputBox("请输入一个实数x1“) x2=InputBox("请再输入一个实数x2””)If(_________)Then Print"在";x1;"与";x2;"之间存在零点" Else Print"不能确定在";x1;"与";x2;"之间是否存在零点" End If End Sub Private Function f(x As Single)As Single …… End Function为使上面程序可以实现该功能,程序代码中横线处应填写的代码是
单选题若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指
单选题窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=Fun2(Fun1(x),y)Text2.Text=Fun1(x)EndSubPrivateFunctionFun1(xAsInteger)AsIntegerx=x+y:y=x+yFun1=x+yEndFunctionPrivateFunctionFun2(xAsInteger,yAsInteger)AsIntegerFun2=2*x+yEndFunction当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别是______。A.B.C.D.
单选题窗体上有一个名称为VScroll1的滚动条,当用鼠标拖动滚动条中的滚动块时,触发的事件是
单选题窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(" ") If y.a/2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序,下列叙述中错误的是______。 A) x是用户定义的类型 B) InputBox函数弹出的对话框中没有提示信息 C) 若输入的是偶数,y.b的值为该偶数的平方 D) Fix(y.a/2)把y.a/2的小数部分四舍五入,转换为整数返回
单选题使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是( )。
单选题把窗体的KeyPreview属性设置为True。然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))Print Chr(KeyAscii+2)
单选题在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是( )。 A) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub B) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub C) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub D) Private Sub Text1_SetFocus() Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
单选题在属性窗口中设置何属性,可以把指定的图形放入当前对象中?
单选题窗体上有一个名称为Command1的命令按钮,并有如下程序:
Private Sub Command1_Click()
x=15
Do While x>0
x=x-3
x=IIf(Int(x/5)=x,/5, x+2, x)
Loop
Print x
End Sub
程序运行后,单击命令按钮Command1,输出结果是______。
单选题已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数),现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i,j) Next j Print "第" &i& "个学生的总分是:";sum Next i End Sub 运行此程序时发现,除第1个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。下列修改方案中正确的是( )。
单选题下面程序的输出是______。
Private Sub Command1_Click()
Print 7/3
End Sub
单选题要设置窗体为固定对话框,并包含控制菜单栏和标题栏,但没有最大化和最小化按钮,设置的操作是( ) A.设置BorderStyle的值为Fixed ToolWindow B.设置BorderStyle的值为Sizable ToolWindow C.设置BorderStyle的值为Fixed Dialog D.设置BorderStyle的值为Sizable
单选题设己打开5个文件,文件号为1、2、3、4、5。要关闭所有文件,则以下语句正确的是( )。
单选题下列针对框架控件的叙述中,错误的是
单选题下列语句的运行结果是______。
X=Format (2)
Print x
单选题除了Visual Basic系统默认的工具箱布局之外,还可以通过 ______定义选项卡来安排控件。
单选题在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:Option Base 1Private Sub Commandl_Click()Dim a(4,4)For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Print Next i End Sub运行程序,单击命令按钮,则输出结果为
单选题数学式子5+(a+b)×2对应的Visual Basic表达式是( )。
单选题窗体上有一个名称为Commandl的命令按钮,并有如下程序代码:Private Sub Commandl_Click() Sub f(ByVal x,ByRef Y,z) Static a x=x+1:y=y+1:z=z+1 a=1:b=2:c=3 End Sub Call f(a,b,c) Print a;b;cEnd Sub 运行程序,单击命令按钮,窗体上显示的是