单项选择题

在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1 Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是 ______。

A.11
B.10
C.9
D.8
热门 试题

单项选择题
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim rec As animal Open c: vb Test.dat For Random As # 1 Len=Len(reC) rec.animalName= cat rec.aColor= White Put # 1,,rec Close # 1 End Sub 则以下叙述中正确的是 ______。A) 记录类型animal不能在Form1中定义,必须在标准模块中定义D) 如果文件c: vbTest.dat不存在,则Open命令执行失败C) 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D) 语句 Put # 1,,rec 将animal类型的两个数据元素写到文件中
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim rec As animal Open "c:\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat" rec.aColor="White" Put # 1,,rec Close # 1 End Sub 则以下叙述中正确的是 ______。A) 记录类型animal不能在Form1中定义,必须在标准模块中定义D) 如果文件c:\vbTest.dat不存在,则Open命令执行失败C) 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D) 语句"Put # 1,,rec"将animal类型的两个数据元素写到文件中