【单选题】【消耗次数:1】
窗体上画一个名为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 运行程序,单击命令按钮,在窗体上显示的是 。
6
5
7
8
参考答案:
复制
纠错
相关题目
【单选题】 设有如下程序: Option Base 0 Private Sub Form_Click() ??? Dim a ??? Dim i As Integer ??? a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ??? For i = 0 To 3 ??????? Print a(5 - i); ??? Next End Sub 程序运行后,单击窗体,则在窗体上显示的是?
①  6?5?4 3
②  5?4?3?2
③  4?3?2 1
④  7?6?5?4
【单选题】 在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: ???? Private Sub Command1_Click() ???? ? x=Val(Text1.Text) ???? ? Select Case x ???????? Case 1,3 ????????????? y=x*x ???????? Case Is>=10,Is<=-10 ????????????? y=x ???????? Case -10 To 10 ????????????? y=-x ?End Select ?????? End Sub 程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。
①  先执行y=x*x,再执行y=-x
②  执行y=-x
③  执行y=x*x
④  程序出错
【单选题】 假定在窗体是有两个命令按钮Command1和Command2及一个文本框Text1。有如下事件过程代码: Private Sub command1_click() Text1.Text = 中国 End Sub Private Sub command2_click() Text1.Text = China End Sub 若首先单击command1,再单击Command2,则在文本框中显示 ( )。
①  China
②  中国
③  China中国
④  中国China
【单选题】 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() ??? a = InputBox(Enter an integer) ??? b = InputBox(Enter an integer) ??? Text1.Text = b + a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
①  出错
②  18
③  810
④  108
【简答题】 已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。 Private Sub Command1_Click() Dim k As Integer, i As Integer, s As Long n = 5 : k = 1 For i = 1 To n s = s +[填空] Next i Print s End Sub Function pow(a As Integer, b As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To a [填空] Next i pow = t End Function
【单选题】 在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click() ??? CommonDialog1.FileName = ??? CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt ??? CommonDialog1.FilterIndex=2 ??? CommonDialog1.DialogTitle=VBTest ??? CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述中错误的是______。
①  在该对话框中指定的默认文件类型为文本文件(*.Txt)
②  在该对话框中指定的默认文件名为空
③  该对话框的标题为VBTest
④  该对话框被设置为打开对话框
【单选题】 设执行以下程序段时依次输入1、3、5,执行结果为______。 ??? Dim a(4) As Integer, b(4) As Integer ??? For K = 0 To 2 ??????? a(K + 1) = Val(InputBox(请输入数据)) ??????? b(3 - K) = a(K + 1) ??? Next K ??? Print b(K)
①  0
②  3
③  5
④  1
【单选题】 有以下程序,执行后输出结果是() main( ) { int m[][3]={1,4,7,2,5,8,3,6,9}; int i,j,k=2; for(i=0;i { printf(%d ,m[k][i]); } }
①  4 5 6
②  2 5 8
③  3 6 9
④  7 8 9
【单选题】 以下程序段运行后变量k的值为()。intm=7,n=2,k;k=(m^n)
①  0
②  98
③  20
④  10
【简答题】 下列程序段的运行结果是[填空] 。 Private Sub Form_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
随机题目
【判断题】 当微机需要了解外设微小的信号变化时,应选用分辨率较高(位数较少)的A/D转换器。
①  正确
②  错误
【判断题】 当微机需要了解外设微小的信号变化时,应选用分辨率较高(位数较多)的D/A转换器。
①  正确
②  错误
【判断题】 可编程序定时器/计数器8253中有两个独立的计数器。
①  正确
②  错误
【单选题】 在对8253进行任何操作前,都必须先向8253写入一个( ),以确定8253的工作方式。
①  控制字
②  计数初值
③  状态字    
④  指令
【判断题】 当外设所需的控制信号为模拟电压时,需在输出通道中设计一个A/D转换器。
①  正确
②  错误
【判断题】 当输入外设的信号变化很快时,应考虑在A/D转换器的输入端加一个采样保持器。
①  正确
②  错误
【判断题】 可编程序定时器/计数器8253的控制字为一个字节。对
①  正确
②  错误
【判断题】 D/A转换器输出模拟电压的最大幅值不会超过参考电压。
①  正确
②  错误
【判断题】 8253中的每个计数器可以作为二进制和十进制计数器用。对
①  正确
②  错误
【判断题】 逐次逼近式A/D转换器内部有一个D/A 转换器。
①  正确
②  错误