窗体上画一个名为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 运行程序，单击命令按钮，在窗体上显示的是。

【单选题】【消耗次数：1】

① 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

查看完整题目与答案

随机题目

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/D205C0FEF56BBA937B7529D43F6974AE.jpg title=26.jpg alt=26.jpg/>

① <img src=https://huaweicloudobs.ahjxjy.cn/F42136A4F1A96E23CCCB2D1D84408C87.jpg title=26-1.jpg alt=26-1.jpg/>

② <img src=https://huaweicloudobs.ahjxjy.cn/5DC0850CF9BB38AE28E29598246283C4.jpg title=26-2.jpg alt=26-2.jpg/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/F51946E4DBB870E152EF223A7EE0F135.jpg title=26-3.jpg alt=26-3.jpg/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/E82859B3BE9B438C03558C1F72A78D6F.jpg title=26-4.jpg alt=26-4.jpg/>

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/7EA6024FAA8D802A1A36EBE79ADF6BBF.jpg style=vertical-align: middle;/>

① <img src=https://huaweicloudobs.ahjxjy.cn/1C128991A5CD5E268D018CABCCE745FE.jpg style=vertical-align: middle;/>

② <img src=https://huaweicloudobs.ahjxjy.cn/BD882FAE4E94DD927C92C1F26380385F.jpg style=vertical-align: middle;/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/A0478FA1375CD492E95504A6EF17F391.jpg style=vertical-align: middle;/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/B2F5EA3E055051AF38D067FB1192F27E.jpg style=vertical-align: middle;/>

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/2C79C487A3512E9980562F5469D23E40.jpg title=33.jpg alt=33.jpg/>

① <img src=https://huaweicloudobs.ahjxjy.cn/2C84D932FDBEB7D41850B376933F99D3.jpg title=33-1.jpg alt=33-1.jpg/>

② 0

③ 1

④ 2

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/3C47245D0A1B10A4D7D8948D8D142BB0.jpg title=30.jpg alt=30.jpg/>

① <img src=https://huaweicloudobs.ahjxjy.cn/BE199659C407860D074F2110A5576446.jpg title=30-1.jpg alt=30-1.jpg/>

② <img src=https://huaweicloudobs.ahjxjy.cn/F6FB773667739CDDEC7CC9CB4A0378C5.jpg title=30-2.jpg alt=30-2.jpg/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/47EC777657A9FE4380A0C0650839B338.jpg title=30-3.jpg alt=30-3.jpg/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/D5234F410A58D2A92F4EB7973D2BD0FF.jpg title=30-4.jpg alt=30-4.jpg/>

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/925B8F24FBE895459BC4328F449728DA.jpg title=20.jpg alt=20.jpg/>

① <img src=https://huaweicloudobs.ahjxjy.cn/BC731DCDE44DD8407AE99BDA88D84CCE.png title=20-1.png alt=20-1.png/>

② <img src=https://huaweicloudobs.ahjxjy.cn/F1B3FB2CFF0617D0C7B61038047FC89D.png title=20-2.png alt=20-2.png/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/BFE8FCDFE99D5571716BB52BDF26354F.png title=20-3.png alt=20-3.png/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/452AB3A604CDBF26FF6609A060E3DD7D.png title=20-4.png alt=20-4.png/>

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/57B37EEB036A46D816902E55FFAF3CFE.jpg style=vertical-align: middle;/>

① <img src=https://huaweicloudobs.ahjxjy.cn/C2BF4833FC5098B0582FB4CECE901272.png style=vertical-align: middle;/>

② <img src=https://huaweicloudobs.ahjxjy.cn/150A7998EFDE33EA835FF268C81B0110.png style=vertical-align: middle;/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/7B01F96EFBC111CED0965D6EDE4BDB66.png style=vertical-align: middle;/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/FA6A3276D807D183390598148327E852.png style=vertical-align: middle;/>

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/92FFDDDB945752E0F5D3536CE377ED55.jpg title=19.jpg alt=19.jpg/>

① <img src=https://huaweicloudobs.ahjxjy.cn/8CB49D6EDC415C74911326201D9C073C.jpg title=19-1.jpg alt=19-1.jpg/>

② <img src=https://huaweicloudobs.ahjxjy.cn/482F8A3CC25AB506DD0D9D2C5F3E9F76.png title=19-2.png alt=19-2.png/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/2F978B31EC04096C2D6E4729E4EB8F1A.png title=19-3.png alt=19-3.png/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/CF854310FFFF9C34D0D0F9E19248F41D.png title=19-4.png alt=19-4.png/>

查看完整题目与答案

【判断题】 <img src=https://huaweicloudobs.ahjxjy.cn/FAABB36D00B3A42D80EC60A6A13D2F47.jpg style=vertical-align: middle;/>

① 正确

② 错误

查看完整题目与答案

【单选题】 <img src=https://huaweicloudobs.ahjxjy.cn/420BB9B9F88E9BA4C73D5E7AB507003D.jpg style=vertical-align: middle;/>

① <img src=https://huaweicloudobs.ahjxjy.cn/162CB046FBA047C9A1F4D1A876055950.jpg style=vertical-align: middle;/>

② <img src=https://huaweicloudobs.ahjxjy.cn/7702B5E4AFEF31AF06B3F0D520F61BD2.jpg style=vertical-align: middle;/>

③ <img src=https://huaweicloudobs.ahjxjy.cn/0AE6557B0148B7B073AF98FB0965FFBF.jpg style=vertical-align: middle;/>

④ <img src=https://huaweicloudobs.ahjxjy.cn/6D1EAB54CE596664F712BF7F2FD86F82.jpg style=vertical-align: middle;/>

查看完整题目与答案

【判断题】 <img src=https://huaweicloudobs.ahjxjy.cn/8BE38CA18B2CFD744D9027C7BF05F9E7.jpg style=vertical-align: middle;/>

① 正确

② 错误

查看完整题目与答案