单项选择题

有如下程序：
Private Sub Form_Click( )
Dim s As Integer, p As Integer
p=1
For i=1 To4
For j=1 To i
s=s+j
Next j
P=P * s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是( )。

A) 90
B) 180
C) 400
D) 800

<上一题目录下一题>

热门试题

单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明： Private Type Person name As String * 8 majorAs String * 20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是( )。

A) Open "C:\Test2.dat" For Output As # 1
Put # 1, 1, P
Close # 1
B) Open "C:\Test2.dat" For Random As # 1
Get # 1, 1, P
Close # 1
C) Open "e:\Test2.dat" For Random As # 1 Len=Len(p)
Put # 1, 1, P
Close # 1
D) Open "C:\Test2.dat" For Random As # 1 Len=Len(p)
Get # 1, 1, P
Close # 1

单项选择题

某人编写了向随机文件中写一条记录的程序，代码如下： Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click( ) Dim p As RType p. Name = InputSox( 姓名 ) p. Tel = InputBox( 电话号 ) Open Books. dat For Random As # 1 Put # 1, , p Close # 1 End Sub 该程序运行时有错误，修改的方法是( )。

A) 在类型定义“Type RType”之前加上“Private”
B) Dim P As RType必须置于窗体模块的声明部分
C) 应把Open语句中的For Random改为For Output
D) Put语句应该写为Put # 1, P. Name, P. Tel

相关试题