题目内容

假定在窗体（名称为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）;}

函数my_cmp（）的功能是比较字符串s和t的大小，当s等于t时返回0，否则返回s和t的第一个不同字符的ASCII码差值，即s ＞ t时返回正值，当s ＜ t时返回负值。请填空。
my_cmp（char s, char t）
{while （s == t）
{if （*s == ′＼0′）return 0;
++s; ++t;
} return 【18】 ;
}

下列程序执行后的输出结果是
main（）
{ char arr［2］［4］;
strcpy（arr,"you"）; strcpy（arr［1］,"me"）;
arr［0］［3］=′&′;
printf（"%s＼n",arr）;}

A. you&me
B. you
C. me
D. err