A.x是用户定义的类型
B.InputBox函数弹出的对话框中没有提示信息
C.若输入的是偶数,y.b的值为该偶数的平方
D.Fix(y.a/2)把y.a/2的小数部分四舍五入,转换为整数返回
[单选题]窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到原有内容之后。下面能够正确实现上述功能的程序是______。A.Private Sub Command1_Click() Open "out.txt" For Input As#1 Print #1,Text1.Text Close #1 End SubB.Private Sub Command1_Click() Open
[单选题]窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是( )。
[单选题]在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮—次,文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。A.Private Sub Command1_Click() Text1.Left=100 End SubB.Private Sub Command1_Click() Text1.Left=Text1.Left-100 End SubC.Private Sub Command1_Click() Text1.M
[单选题]在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是( )。A.Private Sub Command1_Click()Text1.Left=100E.nd SubB.Private Sub Command1_Click()Text1.Left= Text1.Left-100E.nd SubC.Private Sub Command1_Click()Text1.Move.T
[单选题]在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByV
[单选题]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框,然后编写如下程序; ( ) Private Sub Commandl_Click() Dim x,y,z As Integer x=5:y=7:z=O Text1.Text="" Call Pl(x,y,z) TextText=Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End SubA.0B.
[单选题]在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Texttext = " " Call P1 (x,y,z) TextText = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后
[单选题]在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j>Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______。A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.
[单选题]在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1_Click()n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n)Else f = f2(n)End IfPrint f; nE.nd SubPublic Function f1(ByRef x)x=x*xf1=x+xE.nd FunctionPublic Function f2(
[试题]在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()D.im a(10,10)As IntegerD.im i,j As IntegerF.or i=2 To 4F.or j=3 To 6Next iText1.Text=a(2,3)+a(4,6)E.nd Sub程序运行后,单击命令按钮,在文本框中显示的值是( )。