单选题在窗体上画一个命令按钮,然后编写如下程序: Sub inc(a As Integer) Private Sub Commandl_Click() Static x As Integer inc 2:inc 3:inc 4 x=x+a Print x: End Sub End Sub 程序运行后,第一次单击命令按钮时的输出结果为
单选题可设置文字字体为斜体的属性是( )。
单选题在顺序表(8,11,15,19,25,26,30,33,42,48,50)中,用二分法查找关键码值20,需做的关键码比较次数是( )。
单选题在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Labe11,文本框的Text1属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labe11.Caption=Str(x) End Sub 程序运行后,在文本框中输入28.653,单击命令按钮,标签中显示的内容是______。
单选题在窗体上画1个名为Text1的文本框和1个名为Label1的标签,再画4个名为Op1的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句()。OptionBase1Dimsales(12)AsLongPrivateSubForm_Load()open"c:/sales.txt"ForInputAs#1Fork=1To12Input#1,sales(k)NextkClose#1EndSubPrivateSub______(IndexAsInteger)DimsumAsLong,kAsIntegex,monthAsIntegersum=0month=Index*______Fork=1To3month=month+1sum=sum+sales(month)NextkLabel1.Caption=______.Caption&"销售总额:"Text1=sumEndSub
单选题表达式Val(".123E2")的值是( )。 A) 123 B) 12.3 C) 0 D) 123e2CD
单选题为了把文本框Text1中输入的小写字母的大写形式同步显示在文本框Text2中,应该使用的事件过程是______。
单选题双击窗体中的对象后,Visual Basic将显示的窗口是( )。 A) 项目(工程)窗 B) 工具箱 C) 代码窗口 D) 属性窗口
单选题若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指
单选题阅读程序:
Private Sub Command1_Click()
Dim arr
Dim i As Integer
arr=Array(0,1.2,3 ,4,5 ,6,7,8,9,10)
For i=0 To 2
Print arr(7-i)
Next
End Sub
程序运行后,窗体上显示的是______。
单选题在Visual Basic应用程序中,以下正确的描述是 ______。
单选题要使某菜单能够通过按住键盘上的Alt键及K键打开,应( )。
单选题某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Commandl—Click() Dim a(10)As Integer,max As Integer For k=l To 10 a(k)=InputBox(“输入一个整数”) Next k max=0 For k=1 To 10 If a(k)>max Then max=a(k) End If Next k Print max End Sub运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是( )。
单选题下列程序段的执行结果为 a=6 For k=1 To 0 a=a+k Next Print k;a
单选题以下关于函数过程的叙述中错误的是______。
单选题窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpenCD1.FileNameForInputAs#1MsgBoxCD1.FileNameLineInput#1,sText1.Text=sClose#1EndSub单击命令按钮,执行以上事件过程,打开选定的文件,读取文件的内容并显示在文本框中。以下叙述中正确的是______。
单选题下面关于完全二叉树的叙述中,错误的是______。
A. 除了最后一层外,每一层上的结点数均达到最大值
B. 可能缺少若干个左右叶子结点
C. 完全二叉树一船不是满二叉树
D. 具有结点的完全二叉树的深度为[logDo2n]+1
单选题设x为一整型变量,且语句的开始为:Select Case x,则不符合语法规则的Case子句是
单选题下面哪个程序段能够正确裙带如果A<B,则A=1,否则A=-1?
单选题有如下程序: Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3,2) For i=1 To 3 for j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2); arr(3,4) End Sub 程序运行后,单击窗体,输出结果为