单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) X=0 n=Input Box("") For i=1 To n For j=1 To i K=X+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是

A．3
B．4
C．5
D．6

<上一题目录下一题>

热门试题

单项选择题

假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String，Str2 As String Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A．abederg
B．ABCDEFG
C．gfedcba
D．GFEDCBA

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是

A．Open"c：\Test29.dat"For Random As#1 Put#1，1，p C10se #1
B．OpeH"c：\Test29.dat"For Random As #1 Get#1，1，p C108C#1
C．Open"c：\Test29.dat"For Random As#1 Len=Len( Put#1，1，p C108C#1
D．OPell"c：\Test29.dat"For，Random As#1 Len=Len( Get#1，1，p C106e#1

相关试题