【单选题】【消耗次数：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
【简答题】
下列程序段的运行结果是[填空] 。
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
随机题目
【单选题】
三个同一种类的土样，如果重度?相同，含水量w不同，w甲＞w乙＞w丙，则三个土样的压缩性大小满足的关系为
（ ）。
①
甲＞乙＞丙
②
甲＝乙＝丙
③
甲＜乙＜丙
④
甲＜丙＜乙
【单选题】
某中心受压条形基础，宽2m，埋深1m，室内外高差0.6m，埋深范围内土的重度=17 kN/m3，若上部结构传来荷载F＝400kN/m，基底附加应力P0为（ ）。
①
203.9kPa
②
205.1kPa
③
209kPa
④
215kPa
【单选题】
地基表面作用着均布的矩形荷载，在矩形的中心点以下，随着深度的增加，地基中的（ ）。
①
附加应力线性减小，自重应力增大
②
附加应力非线性减小，自重应力增大
③
附加应力不变，自重应力增大
④
附加应力线性增大，自重应力减小
【单选题】
某柱作用于基础顶面的荷载为800kN，从室外地面算起的基础深度为1.5m，室内地面比室外地面高0.3m，基础底面积为4m2，地基土的重度为17kN/m3，则基底压力为（ ）。
①
229.7kPa
②
230 kPa
③
233 kPa
④
236 kPa