全国计算机二级VB上机题库(题+答案)word版.doc

一、基本操作题下面出现的“考生文件夹”均为c:wexam20060001。请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。只建立菜单，不必定义其事件过程。注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。程序中不能使用任何变量，直接显示字符串。注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。一、基本操作题答案1【解题步骤】（1）打开“菜单编辑器”。（2）菜单设计见表4-1。表4-1标 题名 称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。（5）设计完成之后，按规定方式存盘。2【解题步骤】（1）建立界面和控件并设置控件属性。程序中用到的控件及其属性见表4-2。表4-2控 件属 性设置值按钮NameCmd1Caption喜欢按钮NameCmd2Caption不喜欢（2）编写程序代码。参考代码：Private Sub Cmd1_Click()Print数理化End SubPrivate Sub Cmd2_Click()Print政史地End Sub（3）调试并运行程序。（4）按题目要求存盘。二、简单应用题下面出现的“考生文件夹”均为c:wexam20060001。1在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1；一个文本框，名称为Text1；一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为Item1、Item2、Item3和Item4。如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到文本框中。2在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。保存时不得改变文件名和文件夹。在窗体上有3个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”。二、简单应用题答案1【解析步骤】（1）首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frm。（2）在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表4-3。表4-3控 件属 性设置值列表框NameList1文本框NameText1命令按钮NameC1Caption复制（3）进入代码窗口，得到如下程序代码：Option ExplicitPrivate Sub C1_Click() m i As Integer For i = ? To List1.ListCount - 1 If List1.Selected(i) = True Then ? = List1.List(i) End If Next iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub（4）For语句循环变量的起始值为0。（5）列表框的Text属性为最后一次选中的表项的文本。（6）修改这两处的代码。参考代码如下：Option ExplicitPrivate Sub C1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Text1.Text = List1.List(i) End If Next iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub（7）调试并运行。（8）按题目要求存盘。 2【解析步骤】（1）在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性见表4-4。表4-4对 象属 性设置值复选按钮NameCh1Caption体育复选按钮NameCh2Caption音乐复选按钮NameCh2Caption美术标签Caption爱好按钮NameC1Caption显示（2）打开代码窗口，程序提供的代码如下：Option ExplicitPrivate Sub C1_Click() Dim s As ? s = 我的爱好是 If Ch1.Value = 1 Then s = s + Ch1.CaptionEnd IfIf Ch2.Value = 1 Thens = s + Ch2.CaptionEnd If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print ?End Sub（3）读懂程序，分析代码。 通过语句s = 我的爱好是可知s为字符串，所以应改为：Dim s As String 由语句：s = s + Chx.Caption可知输出的变量为s，所以应改为：Print s（4）编写程序代码，整理后可得如下参考代码：Option ExplicitPrivate Sub C1_Click() Dim s As String s = 我的爱好是 If Ch1.Value = 1 Then s = s + Ch1.Caption End If If Ch2.Value = 1 Then s = s + Ch2.Caption End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print sEnd Sub（5）调试并运行程序。（6）按题目要求存盘。三、综合应用题在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。本题描述如下：在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和Opt2，标题分别为“100200之间素数”和“200400之间素数”；一个文本框，名称为Text1；两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入out.txt文件中，该文件必须放在考生文件夹中（在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中）。注意：必须把素数之和存入考生文件夹下的out.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp。三、综合应用题答案【解析步骤】（1）建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见表4-5。表4-5控 件属 性设置值单选按钮NameOp1Caption100200之间素数单选按钮NameOp2Caption200400之间素数文本框NameText1命令按钮NameCmd1Caption计算命令按钮NameCmd2Caption存盘（2）打开代码窗口，得到程序提供的代码如下：标准模块代码Option ExplicitSub putdata(t_FileName As String, T_Str As Variant)Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, T_Str Close #1End SubFunction isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J = 2 To t_I / 2 If t_I Mod J = 0 Then Exit For Next J If J t_I / 2 Then isprime = TrueEnd Function窗体代码Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = ? If Opt2.Value Then For i = 200 To 400 If isprime(?) Then temp = temp + i End If Next Else For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next End If Text1.? = tempEnd SubPrivate Sub Cmd2_Click() putdata out.txt, Text1.TextEnd Sub（3）分析代码，找出答案。 temp用来存放累加和，所以必须初始化，即：temp = 0 Text1显示temp的值，所以使用Text1的Text属性，即：Text1.Text = temp（4）整理代码，标准模块代码内没有错误，得到窗体参考代码如下：Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 If Opt2.Value Then For i = 200 To 400 If isprime(i) Then temp = temp + i End If一、基本操作题下面出现的“考生文件夹”均为c:wexam20060001。请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1在名称为Form1的窗体中，建立一个名称为Cmd1、标题为“显示”的命令按钮。要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print显示；如果单击窗体，则执行语句Form1.Cls。注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value（程序中不能使用任何变量）。注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。1【解析步骤】（1）本题只用到了1个命令按钮，在窗体上建立这个控件。（2）将其Caption属性设置为“显示”，将Name属性设置为Cmd1。（3）在窗体上打印信息用Print方法。参考代码如下：Private Sub Cmd1_Click() Form1.Print 显示End Sub（4）清除窗体上的打印信息使用Cls方法。参考代码如下：Private Sub Form_Click() Form1.ClsEnd Sub（5）调试并运行程序。（6）按题目要求存盘。2【解析步骤】（1）建立界面并设置控件属性。本程序中用到1个滚动框，按题意将其命名为HS1，即将其Name属性设置为HS1。（2）HS1的Min和Max属性分别设置为0和100。（3）清除窗体上原来的显示值可以用Cls方法来实现。当滚动框的位置改变时，触发Change事件。参考程序如下：Private Sub HS1_Change() Cls Form1.Print HScroll1.ValueEnd Sub（4）调试并运行程序。（5）按题目要求存盘。二、简单应用题下面出现的“考生文件夹”均为c:wexam20060001。1在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：在窗体上有两个单选按钮，名称分别为Op1和Op2，标题分别为“黑体”和“楷体”；一个文本框，名称为Text1，字体为宋体，字号为四号字；有一个命令按钮，名称为C1，标题为“切换”。要求程序运行后，在文本框中输入“等级考试”，并选择一个单选按钮。在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体。2在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为kt4.frm，工程文件名为kt4.vbp。二、简单应用题答案1【解析步骤】（1）打开代码窗口，得到程序代码：Option ExplicitPrivate Sub C1_Click() If Op1 Then Text1.Font = Op1.? End If If Op2 Then Text1.? = 楷体_GB2312 End IfEnd Sub（2）研读代码，修改程序。 语句Text1.Font = Op1.?的目的是选择“黑体”，它通过单选按钮Op1的Caption属性决定。即：Text1.Font = Op1.Caption 语句Text1.? = 楷体_GB2312的目的是选择“楷体”，它应使用单选按钮Op1的Caption属性修改Text1的字体属性。即：Text1.FontName = 楷体_GB2312（3）整理代码。参考代码如下：Option ExplicitPrivate Sub C1_Click() If Op1 Then Text1.Font = Op1.Caption End If If Op2 Then Text1.FontName = 楷体_GB2312 End IfEnd Sub（4）调试并运行程序。（5）按题目要求存盘。2【解析步骤】（1）画1个文本框和1个命令按钮，建立程序界面。（2）将命令按钮的Caption属性设置为“计算”，Name属性设置成Cmd1。（3）文本框属性为默认设置。（4）声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长整型。例如：Dim temp As Long（5）研读过程putdata的代码，掌握其调用格式。标准模块代码：Option ExplicitSub putdata(t_FileName As String, T_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, T_Str Close #1End Sub（6）过程putdata有两个参数，编写的参考代码如下：Private Sub Cmd1_Click() Dim a As Integer Dim temp As Long Dim i As Integer a = Val(InputBox(请输入, 12) temp = 1 For i = 1 To Val(a) temp = temp * i Next Text1.Text = temp putdata out.txt, Text1.TextEnd Sub（7）调试并运行程序。（8）按题目要求存盘。三、综合应用题在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”。要求程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result.txt文件中（在prog.bas中的putdata过程可以把结果存入result.txt文件）。注意：文件必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp，计算结果存入result.txt文件中，否则没有成绩。三、综合应用题答案【解析步骤】（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-6。表4-6控 件属 性设置值文本框NameText1Scrollbars2MultilineTrue命令按钮NameCmd1Caption读入数据命令按钮NameCmd2Caption计算保存（3）修改代码。 语句Input #1, i(?)是读入数据，它与语句For j = 1 To 100配合，所以为：Input #1, i(j) 语句Text1.?= temp是将结果temp显示在文本框Text1中，即：Text1.Text = temp（4）参考代码如下： Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & in.txt For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) NextEnd SubPrivate Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100 If i(j) = 400 And i(j) t_I / 2 Then isprime = TrueEnd Function（3）可以使用isprime函数判断整数x是否为素数。如果是，则将该素数计入。If isprime(i) Thentemp = temp + i（4）temp应声明为Long型。（5）使用如下调用形式把结果存入文件out.txt中：putdata out.txt, temp（6）Cmd1_Click()事件的参考代码如下：Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next Text1.Text = tempputdata out.txt, tempEnd Sub（7）调试并运行程序。（8）按题目要求存盘。三、综合应用题在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“保存数据”。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中（数组下界为1），并在文本框Text1中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的result.txt文件中（考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入result.txt文件）。注意：保存时必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp，结果存入out.txt文件。窗体代码Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & in.txt For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text&i(j)&Space(5) NextEnd SubPrivate Sub Cmd2_Click() Dim temp As Long Dim j As Integer Text1.Text = For j = 1 To 50 Text1.Text = Text1.Text&i(j)&Space(5) Next putdata i, 50End Sub一、基本操作题下面出现的“考生文件夹”均为c:wexam20060001。请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1、标题为“输出”的命令按钮。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中输入的字符。注意：在程序中不能使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“按钮一”和“按钮二”的命令按钮。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合。注意：在程序中不得使用任何变量（必须通过属性设置来移动控件）。保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。一、基本操作题答案1【解析步骤】（1）先建立界面并设置控件属性。程序中用到的控件及其属性见表4-11。表4-11控 件属 性设置值文本框NameText1续 表按钮NameCmd1Caption输出Private Sub Cmd1_Click() Cls Print Text1.TextEnd Sub2【解析步骤】（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-12。（2）命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click事件。表4-12控 件属 性设置值按钮NameCmd1Caption按钮一按钮NameCmd2Caption按钮二Private Sub Cmd1_Click() Cmd2.Left = Cmd1.Left Cmd2.Top = Cmd1.TopEnd Sub二、简单应用题下面出现的“考生文件夹”均为c:wexam20060001。1在考生文件夹下有一个工程文件kt3.vbp，窗体上已经有一个标签L1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1和2，标题依次为“飞机”、“火车”和“汽车”，再画一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符（即“”号），把程序中的“？”改为正确的内容，使得在运行时单击“飞机”或“火车”单选按钮时，在Text1中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名保存。2在窗体上建立一个名称为Text1的文本框，建立一个名称为Cmd1、标题为“计算”的命令按钮。要求程序运行后，如果单击“计算”按钮，则求出100200之间所有能被3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out.txt文件中（在考生的文件夹下有一个mode.bas标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用）。注意：保存时必须存放在考生文件夹下，窗体文件名为kt4.frm，工程文件名为kt4.vbp，结果存入out.txt文件。二、简单应用题答案1【解题步骤】（1）建立界面并设置控件属性。程序用到的控件及其属性见表4-13。表4-13对 象属 性设置值TextName Text1单选按钮NameOp1(0)Caption飞机单选按钮NameOp1(1)Caption火车单选按钮NameOp1(2)Caption汽车标签框NameLablelCaption请选择参考代码：Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a=我坐 b=我开 Select Case Index Case 0 Text1.Text = a+Me.Op1(0).Caption + 去 Case 1 Text1.Text = a+Me.Op1(1).Caption + 去 Case 2 Text1.Text = b+Me.Op1(2).Caption + 去 End SelectEnd Sub2【解析步骤】控 件属 性设置值按钮NameCmd1Caption计算文本框NameText1Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub（3）将用来存放结果的变量设计成Long型。（4）能被3整除，即i Mod 3 = 0（5）参考代码如下：Private Sub Cmd1_Click() Dim temp As Long Dim i As Integer For i = 100 To 200 If i Mod 3 = 0 Then temp = temp + i End If Next Text1.Text = temp putdata out.txt, tempEnd Sub三、综合应用题下面出现的“考生文件夹”均为c:wexam20060001。在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“”号），但不能修改其他部分。本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”。程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数组中（数组下界为1）；如果单击“排序显示保存”按钮，则对这100个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件result.txt中（在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件中）。注意：文件必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp，排序结果存入result.txt文件，否则没有成绩。Option ExplicitDim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer Open in.txtFor Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text&i(j)&Space(5) Next Close #1End SubPrivate Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False For k = 1 To 100 - j If i(k) i(k+1)Then temp = i(k) i(k) = i(k+1) i(k + 1) = temp flag = True End If Next If Not flag Then Exit For End If Next Text1.Text = For j = 1 To 100 Text1.Text= Text1.Text&i(j)&Space(5) Next putdata i, 100End Sub一、基本操作题下面出现的“考生文件夹”均为c:wexam20060001。请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1在名称为Form1的窗体上建立一个水平滚动条，并在属性窗口中将其名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端。注意：只能直接为相应的属性赋值，不得使用任何变量。