单项选择题

有如下程序： 　　Private Type stu 　　 X As String 　　 Y As Integer 　　End Type 　　Private Sub Command1 Click() 　　 Dim a As stu 　　 a．X="ABCD" 　　 a．Y=12345 　　 Print a 　　End Sub 　　程序运行时出现错误，错误的原因是( )。

A．Type定义语句没有放在标准模块中
B．变量声明语句有错
C．赋值语句不对
D．输出语句Print不对
<上一题 目录 下一题>
热门 试题

问答题
在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“排序并保存”，如图4-6所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序并保存”按钮，则对这l00 个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件．result．txt中(在程序中的标准模块prog．bas过程可以把指定个数的数组元素存入result．txt文件中)。注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名称为sj5．vbp，排序结果存入result．txt文件，否则没有成绩。
问答题
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
相关试题