题目内容

在窗体上画一个命令按钮，然后编写如下事件过程：
Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）
Dim i As Integer
For i=LBound（oldCopy（）） To UBound（oldCopy（））
newCopy（i） =oldCopy（i）
Next i
End Sub
Private Sub Command1_Click（）
Dim m（10） As Integer, n（10） As Integer
For i=1 To 10
m（i） =i  i
Next i
Call BTC（m, n）
Print n（5）
End Sub
程序运行后，单击命令按钮输出结果为（）。

A. 0
B. 2
C. 10
D. 25

查看答案

搜索结果不匹配？点我反馈

更多问题

在Visual Basic中按文件的编码方式不同，可将文件分为（）。

A. 顺序文件和随机文件
B. 文本文件和数据文件
C. ASCII文件和二进制文件
D. 数据文件和可执行文件

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
Private Type animal
animalName As String 20
aColor As String 10
End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim rec As animal
Open "c:\vbTest.dat"For Random As #1 Len=Len（reC．
rec.animalName= "Cat"
rec.aColor= "White"
Put #1,,rec
Close #1
End Sub
则以下叙述中正确的是（）。

A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾
D. 语句"Put #1,,rec"将animal类型的两个数据元素写到文件中

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click（）
Dim Y As Single
Open 【14】
Y=3.14159 / 180
For I=1 To 90
Ksc.K=I
Ksc.Sinx=Sin（I * Y）
Ksc.Cosx=Cos（I * Y）
【15】
Next I
Close #2
End Sub

以下程序的输出结果是【16】。
main（）
{ int x=100, a=10, b=20, ok1=5, ok2=0;
if（a
else if（ok2）x=10;
else x=-1;
printf（"%d＼n", x）;}