单选题下列程序段的执行结果是______ 。 a=0 b=0 For i = -1 To -2 Step -1 For j = 1 To 2 b=b+1 Next j a=a+1 Next i Print a; b
单选题保存新建的工程时,默认的路径是( )。
单选题下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer,ByVal y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数,下面正确的语句是
单选题窗体上有名为Text1、Text2的两个文本框,和一个由3个单选按钮组成的控件数组Option1,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中数值与该单选按钮所对应的运算(乘1、乘10或乘100),并将结果显示在Text2中,如图2所示。为了实现上述功能,在程序中的横线处应填入的内容是()。PrivateSubOption1_Click(______AsInteger)IfText1.Text<>""ThenSelectCaseCase0:Text2.Text=Text1.TextCase1:Text2.Text=Text1.Text*10Case2:Text2.Text=Text1.Text*100EndSelectEndIfEndSub
单选题实现字符串Unicode编码方式与ANS1编码方式相互转换的函数是( )。 A) Str B) Strconv C) Trim D) Mid
单选题Visual Basic中的每个对象都有自己的名字,名字的长度不能超过______ 个字符。
单选题规范化理论中,消除其中多余的数据相关性是指分解
单选题在窗体上画一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Commandl_Click() n=0 For i=0 To 10 X=2*i-1 Tf X Mod 3=0 Then n=n+1 Next 1 Print n End Sub 运行程序,单击命令按钮,则窗体上显示的是
单选题以下叙述中错误的是( )。
单选题表达式Abs(-5)+Len("ABCDE")的值是______。
单选题与传统的程序设计语言相比,Visual Basic最突出的特点是______。
A.结构化程序设计
B.程序开发环境
C.事件驱动编程机制
D.程序调试技术
单选题表示滚动条控件取值范围最大值的属性是( )。
单选题在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click() a=InputBox("请输入日期(1~31)") t="旅游景点:"&IIf(a>0 And a<=10,"长城","")&_ IIf(a>10 And a<=20,"故宫"," ")&IIf(a>20 And a<=31,"颐和园"," ") Text1.Text=t End Sub 程序运行后,如果从键盘上输入16,则在文本框中显示的内容是______。 A) 旅游景点:长城故宫 B) 旅游景点:长城颐和园 C) 旅游景点:颐和园 D) 旅游景点:故宫
单选题以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next m
单选题假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Crick() Dim rec As animal Open"c:/vbTest.dat"For Random As #1 Len=Len(rec) rec.animalName="Cat" rec.aColor="White" Put #1,,rec Close #1 End Sub 则以下叙述中正确的是( )。
单选题下列数据结构中,不是线性结构的是 ______。
单选题下列方法中,不属于软件调试方法的是( )。
单选题由高中数学可知,对于连续函数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 If
End Sub
Private Function f(x As Single)As Single
End Function
为使上面程序可以实现该功能,程序代码中横线处应填写的代码是______。
单选题能表述"20<X<30或X<-100"的VB表达式是( )。
单选题下面程序执行时,输出的结果是( )。Private Sub Form_Click()Dim i As Integer,j As Integeri=10Doi=i+jFor i=10Toi Step-3i=i+jNext jLoop While i<50Print i;jEnd Sub