单选题 | 窗体上有一个名称为 Frame1 的框架(如图),若要把框架上显示的“Frame1”改为 汉字“框架”,下面正确的语句是( )。 |
查看答案 |
单选题 | 以下叙述中错误的是( )。 | 查看答案 |
单选题 | 设窗体上有一个列表框控件 List1,含有若干列表项。以下能表示当前被选中的列表 项内容的是( )。 |
查看答案 |
单选题 | 设a=4,b=5,c=6,执行语句 Print a<b And b<c 后,窗体上显示的是( )。 | 查看答案 |
单选题 | 执行下列语句 strInput=InputBox ("请输入字符串","字符串对话框","字符串") 将显示输入对话框。此时如果直接单击“确定”按钮,则变量 strInput 的内容是( )。 |
查看答案 |
单选题 | 窗体上有 Command1、Command2 两个命令按钮。现编写以下程序: Option Base 0 Dim a( ) As Integer, m As Integer Private Sub Command1_Click( ) m=InputBox("请输入一个正整数") ReDim a(m) End Sub Private Sub Command2_Click( ) m=InputBox("请输入一个正整数") ReDim a(m) End Sub 运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则 数组 a 中元素的个数是( )。 |
查看答案 |
单选题 | 在窗体上画一个命令按钮和一个标签,其名称分别为 Command1 和 Labcl1,然后编 写如下事件过程: Private Sub Command1_Click( ) Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是( )。 |
查看答案 |
单选题 | 在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序: Private Sub Command1_Click( ) Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序,单击命令按钮,在窗体上显示的是( )。 |
查看答案 |
单选题 | 以下关于过程及过程参数的描述中,错误的是( )。 | 查看答案 |
单选题 | 在窗体上画一个名称为 Command1 的命令按钮,再画两个名称分别为 Label1、Label2 的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click( ) X=5: Y=3 Call proc(X, Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer, ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是( )。 |
查看答案 |
单选题 | 在窗体上有两个名称分别为 Text1、Text2 的文本框,一个名称为 Command1 的命令 按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给 Person 类型的变量 p,当单击“保存”按钮时,能 够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是( )。 |
查看答案 |
单选题 | 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编 写如下事件过程: Private Sub Command1_Click( ) Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。 |
查看答案 |
单选题 | 假定有以下循环结构 Do Until 条件表达式 循环体 Loop 则以下正确的描述是( )。 |
查看答案 |
单选题 | 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100) Print Num; Select Case Num Case 12 Exit For Case 58 Exit Do Case 65, 68, 92 End End Select Next I Loop End Sub 上述事件过程执行后,下列描述中正确的是( )。 |
查看答案 |
单选题 | 在窗体上画一个名为 Command1 的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序,其输出结果是( )。 |
查看答案 |
单选题 | 设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr="" strL=Len(xStr) i=1 Do While i<=strL/2 tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click( ) Dim S1 As String S1="abcdef" Print UCase(Fun(S1)) End Sub 程序运行后,单击命令按钮,输出结果是( )。 |
查看答案 |
单选题 | 某人为计算 n!(0<n<=12)编写了下面的函数过程: Private Function fun(n As Integer) As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的,程序需要修改。下面的修改方案中有 3 种是正确的,错误的方案是( )。 |
查看答案 |
单选题 | 假定有以下函数过程: Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S, i, 1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String Str1=InputBox("请输入一个字符串") Str2=Fun(Str1) Print Srt2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确 定”按钮后在窗体上的输出结果为( )。 |
查看答案 |
单选题 | 为计算 a 的值,某人编写了函数 power如下: Private Function power (a As Integer, n As Integer) As Long Dim p As Long p=a For k=1 To n p=p*a Next k power=p End Function 在调试时发现是错误的,例如 Print power(5,4)的输出应该是 625,但实际输出是 3125。 程序需要修改。下面的修改方案中有 3 个是正确的,错误的一个是( )。 |
查看答案 |
单选题 | 某人编写了下面的程序 Private Sub Command1_Click( ) Dim a As Integer, b As Integer a=InputBox("请输入整数") b=InputBox("请输入整数") pro a pro b Call pro(a+b) End Sub Private Sub pro(n As Integer) While (n>0) Print n Mod 10; n=n\10 Wend End Sub 此程序功能是:输入 2个正整数,反序输出这 2 个数的每一位数字,再反序输出这 2 个数之和的每一位数字。例如:若输入 123 和234,则应该输出: 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即2 个数的反序),而未输出第 3 行(即2 个数之和 的反序),程序需要修改。下面的修改方案中正确的是( )。 |
查看答案 |
单选题 | 下列数据结构中,属于非线性结构的是 | 查看答案 |
单选题 | 下列数据结果中,能够按照“先进后出”原则存取数据的是 | 查看答案 |
单选题 | 对于循环队列,下列叙述中正确的是 | 查看答案 |
单选题 | 算法的空间复杂度是指 | 查看答案 |
单选题 | 软件设计中划分模块的一个准则是 | 查看答案 |
单选题 | 下列选项中不属于结构化程序设计原则的是 | 查看答案 |
单选题 | 软件详细设计产生的图如下: 该图是 |
查看答案 |
单选题 | 数据库管理系统是 | 查看答案 |
单选题 | 在E-R图中,用来表示实体联系的图形是 | 查看答案 |
单选题 | 有三个关系R,S和T如下: 其中关系T由关系R和S通过某种操作得到,该操作为 |
查看答案 |
单选题 | 以下变量名中合法的是 | 查看答案 |
单选题 | 把数学表达式 图1 表示为正确的VB表达式应该是 | 查看答案 |
单选题 | 下面有关标准模块的叙述中,错误的是 | 查看答案 |
单选题 | 下面控件中,没有Caption属性的是 | 查看答案 |
单选题 | 用来设置文字字体是否斜体的属性是 | 查看答案 |
单选题 | 若看到程序中有以下事件过程,则可以肯定的是,当程序运行时 Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print “VB Program” End Sub |
查看答案 |
单选题 | 可以产生30-50(含30和50)之间的随机整数的表达式是 | 查看答案 |
单选题 | 在程序运行时,下面的叙述中正确的是 | 查看答案 |
单选题 | 窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Command1_Click() Text1.Text=”程序设计” Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text=”等级考试” End Sub 运行以上程序,单击命令按钮后 |
查看答案 |
单选题 | 设窗体上有名称为Option1的单选按钮,且程序中有语句: If Options.Value=True Then 下面语句中与该语句不等价的是 |
查看答案 |
单选题 | 设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述正确的是 | 查看答案 |
单选题 | 有如下过程代码: Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa;numb End Sub 连续3次调用var_dim过程,第3次调用时的输出是 |
查看答案 |
单选题 | 在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() For i=5 to 1 step -0.8 Print Int(i); Next i End Sub 运行程序,单击命令按钮,窗体上显示的内容为 |
查看答案 |
单选题 | 在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then a(m,n)=0 End If Print a(m,n); Next n Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为 |
查看答案 |
单选题 | 设有以下函数过程 Function fun(a As Integer,b As Integer) Dim c As Integer If a<b Then c=a:a=b:b=c End If c=0 Do c=c+a Loop Until c Mod b=0 fun=c End function 若调用函数fun时的实际参数都是自然数,则函数返回的是 |
查看答案 |
单选题 | 窗体上有1个名称为Text1的文本框;1个名为Timer1的计时器控件,其Interval属性值为5000,Enable属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1.ForeColor=&HFF& ‘&HFF&为红色 Else Text1.ForeColor=&HC000& ‘&HC000&为绿色 End If End Sub 以下叙述正确的是 |
查看答案 |
单选题 | 为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程: Private Sub Command1_Click() Dim a%,s%,k% s=1 a=2 For k=2 To 10 a=a*2 s=s+a Next k Text1.Text=s End Sub 执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是 |
查看答案 |
单选题 | 标准模块中有如下程序代码: Public x As Integer,y As Integer Sub var_pub() x=10:y=20 End Sub 在窗体上有1个命令按钮,并有如下事件过程: Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100 y=y+100 Print x;y End Sub 运行程序后单击命令按钮,窗体上显示的是 |
查看答案 |
单选题 | 设a、b都是自然数,为求a除以b的余数,某人编写了以下函数: Function fun(a As Integer,b As Integer) While a>b a=a-b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值,应做的修改是 |
查看答案 |
单选题 | 下列关于通用对话框CommonDialog1的叙述中,错误的是 | 查看答案 |