[单选题]( 20 ) 在窗体上画 1 个命令按钮 ( 名称为 Command1 ) 和 1 个文本框 ( 名称为 Text1 ) , 然后编写下列事过程:Private Sub Command1_Click( )x=Val(Text1.Text)Select Case xC.ase 1,3y=x*xC.ase Is>=10,Is<=-10y=xC.ase -10 To 10y=-xE.nd SelectE.nd Sub程序运行后,在文本框中输入 3 ,然后单击命令按钮,则下列叙述中正确的是(
[单选题]在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下:Private Function fun(ByVal m As Integer)Ifm Mod2=0 Thenfun=2E.lsefun=1E.nd IfE.nd FunctionPrivate Sub Command1_Click()D.im i As Integer,s As Integers=0F.or i=1 To 5s=s+fun(i)NextPrintsE.nd Sub程序运行后,单击命令按钮,则窗体上输
[单选题]在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下: Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序
[名词解释] 狼疮带试验(1BT)
[单选题]在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1),然后编写如下代码: Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer Dim i, j, Sum AsInteger Sum=0 For i=1 To 10 Forj=1 To 10 arrayl(i, j)=i+j Nextj Next i End Sub 此程序的功能是求数组arrayl主对角线元素的和,并把结果显示在标签中
[单选题]3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1,3 y=X*X CaseIS>=10,IS<=-10 y=X Case-10 To 10 y=-X End Select End SA.执行y=x*xB.执行y=-xC.先执行y=x*x,再执行y=-xD.程序出错
[试题]( 9 )某窗体中有一命令按钮,名称为 C1 。要求在窗体视图中单击此命令按钮后,命令按钮上显示的文字颜色变为棕色(棕色代码为 128 ),实现该操作的 VBA 语句是 ( 9 ) 。
[单选题]在窗体上添加一个命令按钮,然后编写其单击事件过程为: For i=1 To 3 x=4 For j=1 To 4 x=3 For k=l To 2 x=x+5 Next k Next j Next i MsgBox x 则单击命令按钮后消息框的输出结果是( )。A.7B.8C.9D.13
[单选题]在窗体上绘制一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub
[单选题]在窗体中添加一个命令按钮Commandl和一个文本框Text1,编写命令按钮Com-mand1 的 Click事件代码; Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时,把变量S中内容写入一个顺序文件 datl. dar中,正确的程序段是 ( )A.Open "datl. dat", For lnput As#1 Write井1,SB.Open"datl. da