简单应用与基本操作题

简单应用题：在考生文件夹中，完成以下要求1、动工程文件prog1.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件prog1.FRM的窗体名称改为“prog1”，窗体的标题为“数据计算”。

2、请在窗体适当位置添加以下控件：一个标签LABEL1，标题为“计算结果”；一个文本框TEXT1，两个命令按钮（名称分别为“C1”、“C2，标题分别为“计算”和“保存”）。

窗体界面如下图所示：3、编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止（要求将存放结果的变量类型定义成单精度浮点型）。

S=1-1/3! +1/5!+……+（-1）n-11/（2n-1）!4、要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存入考生文件夹中的文件“kssj.dat”中。

5、考生文件夹下有标准模块prog1.bas，其中putdata过程可以把结果存入存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。

6、请先将程、窗体与模块保存，然后调试、运行并生成可执行文件：prog1.exe。

参考程序如下：Dim K As Integer, I As Integer, F As Integer，S As Single, T As SinglePrivate Sub C1_Click()S = 1: K = 1: F = 1DoK = K + 2T = 1For I = 1 To KT = T * INext IF = -FS = S + F / TLoop Until 1 / T < 0.00001Text1.Text = SEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", S)End Sub在考生文件夹中，完成以下要求1、启动工程文件prog1.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件prog1.FRM的窗体名称改为“prog1”。

2、请在窗体适当位置添加以下控件：一个列表框LIST1；两个标签LABEL1、LABEL2 标题分别为“平均数为“、”大于平均数的个数“；两个文本框TEXT1、TEXT2；两个命令按钮COMMAND1、COMMAND2，标题分别为：“读数并计算”、“保存”；将窗体标题改为“求平均数”。

界面如下图所示：3、要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示这些整数的平均数，在TEXT2中显示大于平均数的个数。

单击“保存”按钮将大于平均数的个数（TEXT2的值）存入考生文件夹中的文件“kssj.dat”.4、在考生文件夹下有标准模块prog1.bas，其中getdata过程可以读出文件：“ini.txt”中的数据，putdata 过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。

5、请先将程、窗体与模块保存，然后调试、运行并生成可执行文件：prog1.exe。

Option ExplicitPrivate Sub Command1_Click()Dim sum As Single, i As Integer, avg As SingleDim cnt As Integer '统计大于平均数的个数GetdataList1.Clear '清空列表框For i = 1 To 50List1.AddItem A(i)sum = sum + A(i)Next iavg = sum / 50For i = 1 To 50If A(i) > avg Thencnt = cnt + 1End IfNext iText1.Text = avgText2.Text = cntEnd SubPrivate Sub Command2_Click()Call Putdata("kssj.dat", Text2.Text)End Sub1、启动工程文件“prog1.vbp”，将该文件的工程名称该为“spks”,并将该工程中的窗体文件prog1.frm 的窗体名称该为“prog1”,窗体的标题为“打印矩阵.”。

2、请在窗体适当位置添加以下控件：一个文本框（名称为text1）；两个命令按钮（名称分别为c1和c2，标题分别为“输出”和“保存”）；一个标签（名称为label1，标题为“对角线之和”）。

运行效果如下图所示：3、编写程序，利用二维数组在窗体上输出一个6*6矩阵，该矩阵主对角线上和上三角上的元素为1，其余元素均为0（要求：数组下界从1开始）。

要求程序运行后，单击“输出”按钮在窗体上输出如上图所示的矩阵，并求出两条对角线元素之和，然后将其显示在文本框text1中，最后单击“保存”按钮，将数组存入考生文件夹中的文件“kssj.Dat”中。

4、考生文件夹中有标准模块“prog1.bas”，其中的putda过程可以把指定数组存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用该过程。

5、先将成、窗体与模块保存，然后调试、运行并生成可执行程序：prog1.exe。

参考程序如下：Dim A(6, 6) As Integer, I As Integer, J As Integer, S As IntegerInteger,Private Sub C1_Click()PrintPrintS = 0For I = 1 To 6For J = 1 To 6A(I, J) = 0If I <= J Then A(I, J) = 1If I = J Or I + J = 7 Then S = S + A(I, J)Print A(I, J); " ";Next JPrintNext IText1.Text = SEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", A) End Sub1.启动工程文件Prog1.Vbp ，将该工程文件的名称改为“Spks ”，并将该工程中的窗体文件Prog1.frm 的窗体名称改为”Prog1”，窗体的标题改为“数据计算”。

2.请在窗体适当位置添加以下控件：两个标签(名称分别为Label1和Label2，标题分别为“能被7整除的数”和“计算结果”)；一个列表框(名称为List1)；一个文本框(名称为Text1)；两个命令按钮(名称分别为C1和C2，标题分别为“计算”的“保存”)。

界面如下图所示：3.编写程序，求出100~200之间所有能被7事除的数。

要求程序运行后，单击“计算”按钮，将所有能被7事整除的数显示在列表框List1中，并求出它们的和，然后将和显示在文本框中；最后单击“保存”按钮，将和存入考生文件夹中的文件Kssj.dat 中。

4．在考生文件夹下有标准模块Prog1.bas ，其中的Putdata 过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程文件中，直接调用该过程。

5．请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件程序：Prog1.exe 。

参考程序如下：Dim N As Integer, S As IntegerPrivate Sub C1_Click()S = 0For N = 100 To 200If N Mod 7 = 0 ThenS = S + NList1.AddItem NEnd IfNext NText1.Text = SEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", S) End Sub1.启动工程文件Prog1.Vbp ，将该工程文件的名称改为“Spks ”，并将该工程中的窗体文件Prog1.frm 的窗体名称改为”Prog1”，窗体的标题改为“分段函数”。

2.请在窗体适当位置添加以下控件：一个文本框(名称为Text1)；两个标签(名称分别为Label1和Label2，Label1的标题为“请输入X 的值：”)；三个命令按钮(名称分别为C1、C2、C3，标题分别为“计算Y 的值”、“保存结果”、“退出”)。

界面如下图所示：3.编写程序，根据下面公式计算Y 的值(要求必须使用IF 语句)。

(1)计算公式为：)10()100()0()2/)1(()*2())2((><=<<=⎪⎩⎪⎨⎧-+=X X x X Exp X Log x x Abs y(2)程序运行后，用户首先在Text1中输入4.28，然后单击“计算Y 的值”按钮，程序计算出Y 的值，并显示在Label2中。

(3)单击“保存结果”按钮，把Y的值写入考生文件夹中的文件Kssj.dat中。

(4)单击“退出”按钮，结束程序运行。

4．在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程文件中，直接调用该过程。

5．请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件程序：Prog1.exe。

参考程序如下：Dim x As Single, y As SinglePrivate Sub C1_Click()x = Val(Text1.Text)If x <= 0 Theny = Abs(x * (x + 2))ElseIf x <= 10 Theny = Log(2 * x)Elsey = Exp((x - 1) / 2)End IfLabel2.Caption = yEnd SubPrivate Sub c2_Click()Call putdata("kssj.dat", y)End SubPrivate Sub C3_Click()EndEnd Sub参考程序如下：解法一：Dim N As Integer, A As Integer, B As Integer, C As IntegerPrivate Sub C1_Click()For N = 100 To 999A = N \ 100B = (N Mod 100) \ 10C = N Mod 10If A ^ 3 + B ^ 3 + C ^ 3 = N ThenList1.AddItem NEnd IfNext NEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", List1)End Sub解法二：Dim N As Integer, A As Integer, B As Integer, C As Integer Private Sub C1_Click()For A = 1 To 9For B = 0 To 9For C = 0 To 9N = A * 100 + B * 10 + CIf A ^ 3 + B ^ 3 + C ^ 3 = N Then List1.AddItem NNext CNext BNext AEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", List1)End Sub参考程序如下：Dim N As Integer, S As Integer, I As Integer, T As Integer Private Sub Command1_Click()N = 1DoT = 0For I = 1 To NT = T + INext IS = S + TN = N + 1Loop Until S > 30000Text1.Text = SEnd SubPrivate Sub Command2_Click()Call putdata("kssj.dat", Text1.Text)'或者：Call putdata("kssj.dat", S) End Sub参考程序如下：Private Sub Command1_Click()For n = 101 To 200 Step 2f = 1For i = 2 To n - 1If n Mod i = 0 Thenf = 0: Exit ForEnd IfNext iIf f = 1 Then s = s + nNext nText1.Text = sEnd SubPrivate Sub Command2_Click()Call putdata("kssj.dat", Text1.Text)参考程序如下：解法一：Private Sub Command1_Click()Dim F(20) As IntegerDim i As IntegerClsF(1) = 0: F(2) = 0: F(3) = 1For i = 4 To 20F(i) = F(i - 3) + F(i - 2) + F(i - 1)Next iFor i = 1 To 20Print F(i);If i Mod 5 = 0 ThenPrintEnd IfNext iText1.Text = F(20)End SubPrivate Sub Command2_Click()putdata "kssj.dat", Text1.TextEnd Sub解法二：Private Sub Command1_Click()Dim F As Integer, F1 As Integer, F2 As Integer, F3 As IntegerDim i As IntegerClsF1 = 0: F2 = 0: F3 = 1Print F1; F2; F3;For i = 4 To 20F = F1 + F2 + F3F1 = F2F2 = F3F3 = FPrint F;If i Mod 5 = 0 ThenPrintEnd IfNext iText1.Text = FEnd SubPrivate Sub Command2_Click()putdata "kssj.dat", Text1.TextEnd Sub参考程序如下：Private Sub C1_Click()Dim a As Varianta = Array(13, 23, 65, 12, 56, 43, 90, 56, 73, 10)For i = 0 To 8 Step 2s = a(i) + a(i + 1)List1.AddItem sNext iEnd SubPrivate Sub C2_Click()putdata "kssj.dat"End Sub在考生文件夹中，完成以下要求1、启动工程文件prog1.vbp,将该工程文件中的工程名称改为“spks”，并将该工程中的窗体文件prog1.FRM的窗体名称改为“prog1”，窗体的标题为“表达式求值”。