网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式
计算，图的窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时，在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见图)。请填空。
Private Sub Command1_Click()
Dim r As Integer，n As Integer
n=Text1
r=Text2
Text3=fun(n)/fun(______)/fun(r)
End Sub
Function fun(n As Integer) as long
Dim t As Long
x=1
For k=1 To n
t=t*k
Next
fun=t
End Function
参考答案
更多 “ 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，图的窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时，在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见图)。请填空。Private Sub Command1_Click()Dim r As Integer，n As Integern=Text1r=Text2Text3=fun(n)/fun(______)/fun(r)End SubFunction fun(n As Integer) as longDim t As Longx=1For k=1 To nt=t*kNextfun=tEnd Function ” 相关考题
考题
窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）Call CheckInput（Text1，500）End SubPrivate Sub Text2_LostFocus（）Call CheckInput（Text2，1000）End SubSub CheckInput（t As ?，x As Integer）If Val（t.Text）x ThenMsgBox"请重新输入!"End IfEnd SubA．TextB．SelTextC．ControlD．Form
考题
（ 28 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 要求文本框 Text1 中输入的数据小于 500 ， 文本框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（ ? ）处应填入的内容是（ ）。Private Sub Text1_LostFocus( )Call CheckInput(Text1,500)End SubPrivate Sub Text2_LostFocus( )Call CheckInput(Text2,1000)End SubSub CheckInput(t As ?,x As Integer)If Val(t.Text)x ThenMsgBox" 请重新输入 !"End IfEnd SubA ） TextB ） SelTextC ） ControlD ） Form
考题
窗体上有名称分别为Text1、Text2的2个文本框，要求文卒框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是______。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub CheckInput(t AS ?,x As Integer) If Val(t.Text)＞X Then MsgBox "请重新输入!" End If End SubA．TextB．SelTextC．ControlD．Form
考题
在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：PrivateSubText2_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=Ucase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSub程序运行后，如果在TEXT2中通过键盘上输入单字母k，则在文本框Text1中显示的内容为( )A.kB.KC.KKD.Kk
考题
在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序段：PrivateSubText2_LostFocus()DimiAsIntegerIfIsNumeric(Text2)ThenText3.Text=正确!!ElseText2.Text=Text2.SetFocusText3.Text=错误,再输入!!EndIfEndSub当在text2中输入字符串abcd后，点击text3，运行的结果为()A.text2的内容清除,text3中显示正确!!B.text3中显示正确!!C.光标聚焦在text2中D.text2的内容清除,text3中显示错误,再输入!!
考题
在名为Form1的窗体上添加三个文本框和一个命令按钮，其名称分别为Text1、Text2、Text3和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() Text3=Textl+1Text2 End Sub private Sub Form1_Load() Text1="" Text2="" Text3="" End Sub 打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为( )。A．57B．12C．5D．出错
考题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图）。请填空。Private Sub Command1_Click（ ）Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun（n） / fun（______） / fun（r）End SubFunction fun（n As Integer） as longDim t As Long ______For k = 1 To nt = t * kNextfun = tEnd Function
考题
在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。 现有如下事件过程 Private Sub Text1_Change（ ） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（ ）。A.DataAB.DataBC.aDataD.aBase
考题
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
考题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，在窗体上设计3个文本框，Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请填空。Private Sub Command1_Click()Dim r As Integer,n As IntegerEnd SubDim t As Long( )For k=1 To nNext kfun=tEnd Function
考题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 (n-r)!r!Text1、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中。请填空。Private Sub Commandl_Click()Dim r As Integer，n As htegern=Text1r=Text
考题
有一个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
考题
有一个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
考题
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Command1 Click()Text3=Text1+Text2End SubPrivate Sub Forml Load()Text1＝""Text2=""Text3=""End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
考题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式(作图)计算，在窗体上设计3个文本框，名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请在空白处填入适当语句使程序完整。Private Sub Command1_Click()Dim r As Integer，n As Integern=Text1r=Text2Text3=fun(n)/(______)/fun(r)End SubFunction fun(n As Integer)As longDim t As Long______For k=1 To nt=t*kNext kfun=tEnd Function
考题
有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click(
考题
在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。Private Sub Text1_ _________() TextText=Text1.Text End SubA．SetFocusB．ChangeC．GetFocusD．Click
考题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式面计算，在窗体上设计3个文本框，名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中，请填空。Private Sub Commandl_Click()Dim r As Integer,n AS Integern＝Text 1r＝Text 2Text3＝fun(n) /( [14] ) /f
考题
在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+1N的和显示在Text2中。程序运行结果如下图所示。注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise120.frm，工程文件名为execise120.vbp。
考题
在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2(如下图所示)，初始情况下都没有内容。请编写适当的事件过程，使得程序在运行时，在Text1中输入的任何字符，立即显示在Text2中。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise7/vbp，窗体文件名为execise7.frm。
考题
在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
考题
在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式n!/(n-r)!r!计算,下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。click()Private Sub Command 1Dim r As Integer,n As Integern=Text1r=Text2Text3=fun(n)/ fun(【 】)/ fun(r)End SubFunction fun(n As Integer)as longDim t As Longx=1For k=1 To nt=t*kNextfun=tEnd Function
考题
在考生文件夹中有一个工程文件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单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。最后原名保存修改后的文件。
考题
在窗体上建立三个文本框，名称分别为Text1、Text2和Text3，一个命令按纽，名称为command1，如果在TEXT1中输入数200，在TEXT2中输入数150，则执行下列程序后，TEXT3的值为______。 Private Sub Command1_Click() Dim m, n As Integer m = Val (TextText) n = Val (TextText) If n * m = 0 Then Exit Sub End If If m ＜ n Then t =m: m= n: n = t End If Do r = m Mod n m= n n =r Loop While r ＜＞ 0 TextText= m End SubA． 200B．50C．100D．150
考题
在窗体(NAME属性为FORM1)上画三个文本框(其NAME属性分别为TEXT1、TEXT2和TEXT3)和一个命令按钮(NAME属性为COMMAND1)，然后编写如下两个事件过程： PRIVATE SUB COMMAND1_CLICK( ) TEXT3=TEXT1+TEXT2 END SUB PRIVATE SUB FORM1_LOAD( ) TEXT1="" TEXT2="" TEXT3="" END SUB 程序运行后，在第一个文本框(TEXT1)和第二个文本框(TEXT2)中分别输入5和7，然后单击命令按钮，则文本框(TEXT3)中显示的内容为( )。A．12B．57C．75D．空值
考题
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：程序运行后，如果在文本框Text1中输入China Beijing，则在文本框Text2中显示的内容是（ ）。A
China BeijingB
ChinaC
BeijingD
ChinaB
热门标签
最新试卷