单选题
假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
假定在窗体（名称为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
则以下叙述中正确的是
发布于 2022-05-11 10:19:58
登录后免费查看答案
关注者
0
被浏览
12
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
2022-05-11 关注 0 浏览21 1答案
-
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array("北京", "上海", "天津", "重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c = “ABCD”For n= 1 To 4Print （ ）NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCDBCDABCD则在（ ）处填入的内容为。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = 0n = InputBox("")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
2022-05-11 关注 0 浏览20 1答案
