网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click()
Me！Text1＝""
Me！Text2＝""
Me！Text3＝""
Me！Text4＝""
End Sub
Private Sub Command2_Click()
If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""Then
MsgBox "成绩输入不全"
Else
Me！Text4＝(【 】＋Val(Me！Text2)＋Val(Me！Text3))/3
【 】
End Sub
Private Sub Command3_Click()
Docmd.【 】
End Sub
参考答案
更多 “ 有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click()Me！Text1＝""Me！Text2＝""Me！Text3＝""Me！Text4＝""End SubPrivate Sub Command2_Click()If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""ThenMsgBox "成绩输入不全"ElseMe！Text4＝(【 】＋Val(Me！Text2)＋Val(Me！Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd.【 】End Sub ” 相关考题
考题
在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：Function Fun（x As Integer,ByVal y As Integer）As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click（）Dim a As Integer,b As Integera=-10：b=5Text1.Text=Fun（a，b）Text2.Text=Fun（a，b）End Sub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。
考题
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。A．abcEFGB．abcefgC．ABCefgD．ABCEFG
考题
有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click()Me!Text1=""Me!Text2=""Me!Text3=""Me!Text4=""End SubPdvate Sub Command2_Click()If Me!Text1="" Or Me!Text2="" Or Me!Text3=""thenMsgBox"成绩输入不全"ElseMe!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd. 【 】End Sub
考题
在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：Function Fun(X As Integer,ByVal y As Integer)As Integerx=x＋yIf X＜0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1 Click()Dim a As Integer,b As Integera=-10:b=5Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【 】和【 】。
考题
在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。
考题
有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click(
考题
在考生文件夹中有一个工程文件execise95.vbp及窗体文件execise95.frm。请在名为 Form1的窗体上绘制3个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“计算机等级考试”、Visua1Basic和空白。然后绘制两个单选按钮，其名称分别为 Opt1和Opt2，标题分别为Change和Join。编写适当的事件程序。程序运行后，如果选中Change单选按钮并单击窗体，则Text1文本框中内容与Text2文本框中内容进行交换，并在Text3文本框中显示OK(如下图所示)：如果选中Join单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前，Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。修改后的文件仍按原文件名保存在原文件夹下。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。
考题
在考生文件夹中有一个工程文件execise42.vbp和窗体文件execise42.frm。请在名为 Form1的窗体上绘制3个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“二级考试”、“计算机”和空白：然后绘制2个单选按钮，其名称分别为opt1和 Opt2，标题分别为Change和Join，编写适当的事件程序。要求在程序运行时，先单击Change单选按钮，使Text1文本框中内容与Text2文本框中内容进行交换，并使Change单选按钮消失；然后单击Join单选按钮，则把交换后的Text1和Text2的内容以Text1在前、Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。如下图所示。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击Change单选按钮，后单击Join单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。最后原名保存修改后的文件。
考题
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text 1、Text2,然后编写如下程序:PrivateSubCommand1_Click()a=Text1.textb=Text2.textC=Lcase( )D=Ucase( )PrintC;DEndSub程序运行后,在文本框Text 1、Text2中分别输入AbC和Efg,结果是( )
A、abcEFGB.abcefgC.ABCefgD.ABCEFG
热门标签
最新试卷
