省二级VB编程题[试题]

省二级VB编程 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 [试题] Vb编写程序题型 一、基本操作题 1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“绿色”，标签上文字为“这里是一个标签”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮，窗体的背景色改为绿色(5分)。 (3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”(5分)。 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 : Private Sub Command1_Click() Form1.BackColor = vbGreen End Sub Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub 2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变 颜色”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度(5分)。 (3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色(5分)。 答案: Private Sub Command1_Click() Form1.Height = Form1.Height + 200 End Sub Private Sub Label1_Click() Form1.BackColor = vbGreen End Sub 3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”(5分)。 (2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见(5分)。 (3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”(5分)。 答案: Private Sub Command1_Click() Label1.Visible = False End Sub Private Sub Command2_Click() Label1.Visible = True End Sub Private Sub Form_Click() Form1.Caption = "隐藏/显示控件" End Sub 4、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1,3。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮可关闭窗体(5分)。 (3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色(5分) 答案: Private Sub Command1_Click() Form1.Hide End Sub Private Sub Option1_Click() Label1.ForeColor = vbRed End Sub Private Sub Option2_Click() Label1.ForeColor = vbGreen End Sub Private Sub Option3_Click() Label1.ForeColor = vbBlue End Sub 5、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“Visual Basic考试”(5分)。 (3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色(5分)。 答案: Private Sub Command1_Click() Form1.Caption = "Visual Basic考试" End Sub Private Sub Label1_Click() Form1.BackColor = vbRed End Sub 6、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字(5分)。 (2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签的背景色改为绿色(5分)。 (3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字内容改 为“大小已经改变”，文字大小改为30(磅)(5分)。 答案: Private Sub Command1_Click() Label1.BackColor = vbGreen End Sub Private Sub Command2_Click() Label1.Caption = "大小已经改变" Label1.FontSize = 30 End Sub 7、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1,3。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“请选择学历”，三个单选钮上的文字分别为“硕士”、“本科”、“大专”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮可关闭窗体(5分)。 (3)编写事件过程，运行程序后，分别单击三个单选钮，标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”(5分)。 答案: Private Sub Command1_Click() Form1.Hide End Sub Private Sub Option1_Click() Label1.Caption = "硕士学历" End Sub Private Sub Option2_Click() Label1.Caption = "本科学历" End Sub Private Sub Option3_Click() Label1.Caption = "大专学历" End Sub 8、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1,3。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“红色”，标签上的文字为“字体大小”，三个单选钮上的文字分别为“10”、“14”、“18”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为红色(5分)。 (3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字大小为10磅、14磅或18磅(5分)。 答案: Private Sub Command1_Click() Label1.ForeColor = vbRed End Sub Private Sub Option1_Click() Label1.FontSize = 10 End Sub Private Sub Option2_Click() Label1.FontSize = 14 End Sub Private Sub Option3_Click() Label1.FontSize = 18 End Sub 9、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变字体”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字(5分)。 (2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色(5分)。 (3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的字体改为“黑体”(5分)。 答案:Private Sub Command1_Click() Label1.ForeColor = vbRed Label1.Caption = "颜色已经改变" End Sub Private Sub Command2_Click() Label1.FontName = "黑体" End Sub 10、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“Visual Basic程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 ”，字体为宋体，标签可以自动调整大小以显示所有文字(5分)。 (2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)(5分)。 (3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为黑体，文字内容改为“这是黑体”(5分)。 答案: Private Sub Command1_Click() Label1.FontSize = 28 End Sub Private Sub Command2_Click() Label1.FontName = "黑体" Label1.Caption = "这是黑体" End Sub 或者(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体，文字内容改为“这是楷体”(5分)。(提示:楷体的字体名称为“楷体_GB2312”。) Private Sub Command2_Click() Label1.FontName = "楷体_GB2312" Label1.Caption = "这是楷体" End Sub (提示:楷体的字体名称为“楷体_GB2312”。) 11、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除(5分)。 (2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”(5分)。 (3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向左移动一个按钮位置(5分)。 答案:Private Sub Command1_Click() Label1.Caption = "你单击了[显示]按钮" End Sub Private Sub Form_Click() Command1.Move Command1.Left - Command1.Width End Sub 或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向右移动一个按钮位置(5分)。 Private Sub Form_Click() Command1.Move Command1.Left +Command1.Width End Sub 或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向上移动一个按钮位置(5分)。 Private Sub Form_Click() Command1.Move Command1.Left，command1.top-command1.height End Sub 或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向下移动一个按钮位置(5分)。 Private Sub Form_Click() Command1.Move Command1.Left，command1.top+command1.height End Sub 12、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“清除”，标签上文字为“这里是一 个标签”(5分)。 (2)编写事件过程，运行程序后，单击“清除”按钮，清除标签上的文字(5分)。 (3)编写事件过程，运行程序后，每次单击标签，标签均向左移动200(Twip)(5 分) 答案: Private Sub Command1_Click() Label1.Caption = "" End Sub Private Sub Label1_Click() Label1.Move Label1.Left - 200 End Sub 或者(3)编写事件过程，运行程序后，每次单击标签，标签均向右移动200(Twip) Private Sub Label1_Click() Label1.Move Label1.Left+ 200 End Sub 或者(3)编写事件过程，运行程序后，每次单击标签，标签均向上移动200(Twip) Private Sub Label1_Click() Label1.Move Label1.Left，label1.top-200 End Sub 或者(3)编写事件过程，运行程序后，每次单击标签，标签均向下移动200(Twip) Private Sub Label1_Click() Label1.Move Label1.Left，label1.top+200End Sub 二、操作编程题 1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)单击命令按钮1，产生100个[300,3000]之间的随机整数并显示在列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框1中(9分)。 (2)单击命令按钮2，计算上述数据中能被13和15同时整除的数及其平均值，并分别用列表框2和一个标签显示结果。(9分)。 (提示:使用数组存储数据) 答案: Dim a(1 To 100) As Integer Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(2701 * Rnd() + 300) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() Sum& = 0: n% = 0 For i = 1 To 100 If a(i) Mod 13 = 0 And a(i) Mod 15 = 0 Then n = n + 1 List2.AddItem a(i) Sum = Sum + a(i) End If Next i If n <> 0 Then Label1.Caption = Str(Sum / n) End Sub 2、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、 布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)运行时单击命令按钮1，产生100个[100,200]之间的随机整数并显示在列表 框中(9分)。 (2)然后单击命令按钮2，在两个文本框中分别显示上述数据中前10个和后10 个数据的平均值(9分)。 (提示:使用数组存储数据) 答案: Dim a(1 To 100) As Integer Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(101 * Rnd() + 100) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() sum1& = 0: sum2& = 0 For i = 1 To 10 sum1 = sum1 + a(i) Next i For i = 91 To 100 sum2 = sum2 + a(i) Next i Text1.Text = Str(sum1 / 10) Text2.Text = Str(sum2 / 10) End Sub 4、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、 布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中(9 分)。 (2)单击命令按钮2，在列表框2中显示上述随机整数中前20个偶数(9分)。 (提示:使用数组存储数据) 答案: Dim a(1 To 100) As Integer Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(301 * Rnd()) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() Sum& = 0: n = 1 For i = 1 To 100 If a(i) Mod 2 = 0 And n <= 20 Then List2.AddItem a(i) n = n + 1 End If Next i End Sub 或者(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数(9分)Private Sub Command2_Click() Sum& = 0: n = 1 For i = 1 To 100 If a(i) Mod 2 <> 0 And n <= 20 Then List2.AddItem a(i) n = n + 1 End If Next i End Sub 3、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容(9分)。 (2)输入完成后，单击命令按钮，在文本框2和文本框3中分别显示输入字符中所含数字3和数字7的个数(9分)。 答案: Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub Private Sub Command1_Click() num3% = 0: num7% = 0 For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) = "3" Then num3 = num3 + 1 If Mid(Text1.Text, i, 1) = "7" Then num7 = num7 + 1 Next i Text2.Text = Str(num3) Text3.Text = Str(num7) End Sub 5、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容(9分)。 (2)输入完成后，单击命令按钮，在文本框2中显示输入字符的个数，在文本框3中显示该字符串右边的10个字符(9分)。 答案: Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub Private Sub Command1_Click() Text2.Text = len(text1.text) Text3.Text = right(text1.text,10) End Sub 或者(2)输入完成后，单击命令按钮，在文本框2中显示输入字符的个数，在文本框3中显示该字符串左边的10个字符(9分)。 Private Sub Command1_Click() Text2.Text = len(text1.text) Text3.Text = left(text1.text,10) End Sub 4、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)运行时在文本框1中输入若干字符，此时应在标签中同步显示输入的内容(9分)。 (2)输入完成后，单击命令按钮，统计输入字符中所含大写字母的个数并显示在文本框2中(9) 答案: Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub Private Sub Command1_Click() n%=0 For i=1 to len(text1.text) If mid(text1.text,i,1)>=”A” and mid(text1.text,i,1)<=”Z” then n=n+1 end if next i text2.text=str(n) End Sub 或者(2)输入完成后，单击命令按钮，统计输入字符中所含小写字母的个数并显 示在文本框2中(9) Private Sub Command1_Click() n%=0 For i=1 to len(text1.text) If mid(text1.text,i,1)>=”a” and mid(text1.text,i,1)<=”z” then n=n+1 end if next i text2.text=str(n) End Sub 或者(2)输入完成后，单击命令按钮，统计输入字符中所含数字0-9的个数并显 示在文本框2中(9) Private Sub Command1_Click() n%=0 For i=1 to len(text1.text) If mid(text1.text,i,1)>=”0” and mid(text1.text,i,1)<=”9” then n=n+1 end if next i text2.text=str(n) End Sub 5、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容(9分)。 (2)输入完成后，单击命令按钮，在文本框2和文本框3中分别显示输入字符中所含大写字母A和小写字母a的个数(9分)。 答案: Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub Private Sub Command1_Click() Num1% = 0: num2% = 0 For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) = "A" Then num1 = num1 + 1 If Mid(Text1.Text, i, 1) = "a" Then num2 = num2 + 1 Next i Text2.Text = Str(num3) Text3.Text = Str(num7) End Sub 6、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)运行时单击窗体，利用InputBox函数输入三个数据，并将其分别显示在三个标签上。(9分)。 (2)输入完成后，单击命令按钮，将这些数据按从大到小的顺序排列并显示在列表框中(9分)。 答案: Dim x1 As Double, x2 As Double, x3 As Double Private Sub Form_Click() x1 = InputBox("请输入第一个数据:") x2 = InputBox("请输入第二个数据:") x3 = InputBox("请输入第三个数据:") End Sub Private Sub Command1_Click() If x1 < x2 Then t = x1: x1 = x2: x2 = t If x1 < x3 Then t = x1: x1 = x3: x3 = t If x2 < x3 Then t = x2: x2 = x3: x3 = t List1.AddItem x1 List1.AddItem x2 List1.AddItem x3 End Sub 或者(2)输入完成后，单击命令按钮，将这些数据按从小到大的顺序排列并显示在列表框中(9分)。 Private Sub Command1_Click() If x1 〉 x2 Then t = x1: x1 = x2: x2 = t If x1 〉 x3 Then t = x1: x1 = x3: x3 = t If x2 〉 x3 Then t = x2: x2 = x3: x3 = t List1.AddItem x1 List1.AddItem x2 List1.AddItem x3 End Sub 10、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)单击命令按钮1，产生100个[10，99]之间的随机整数并显示在列表框1中(9分)。 (2)单击命令按钮2，在列表框2中显示上述随机整数中小于60的所有数据(9分)。 (提示:使用数组存储数据) 答案:Dim a(1 To 100) As Integer Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(90 * Rnd() + 10) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() For i = 1 To 100 If a(i) < 60 Then List2.AddItem a(i) Next i End Sub 11、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、 布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)单击命令按钮1，产生100个[0，200]随机整数并显示在列表框中(9分)。 (2)单击命令按钮2，在两个文本框中分别显示上述数据中的最大偶数和最大奇 数(9分)。 (提示:使用数组存储数据) 答案: Dim a(1 To 100) As Integer Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(201 * Rnd()) List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() mq%=0 ‘ 存放最大偶数 mo%=0 ‘存放最大奇数 for i=1 to 100 if a(i) mod 2=0 and a(i)>mo then mo=a(i) if a(i) mod 2<>0 and a(i)>mq then mq=a(i) next i text1.text=mo text2.text=mq End Sub 12、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1) 声明 无利益冲突声明中华医学会杂志社职业健康检查不够规范教育部留学服务中心亲友住房声明 一个含10个元素的一维数组，运行时单击命令按钮1，利用InputBox 函数以循环方式给数组赋值。(9分)。 (2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数组中后5个数的平均值显示在一个文本框中(9分)。 答案: Dim a(1 To 10) As Integer Private Sub Command1_Click() For i = 1 To 10 a(i) = InputBox("请输入数据:") Next i End Sub Private Sub Command2_Click() Sum& = 0 For i = 1 To 10 Print a(i); Next i For i = 6 To 10 Sum = Sum + a(i) Next i Text1.Text = Str(Sum / 5) End Sub 或者(2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数 组中前5个数的平均值显示在一个文本框中(9分)。 答案: Private Sub Command2_Click() Sum& = 0 For i = 1 To 10 Print a(i); Next i For i = 1 To 5 Sum = Sum + a(i) Next i Text1.Text = Str(Sum / 5) End Sub 或者(2)输入完成后，单击命令按钮，显示(方式不限)数组中的元素，并将数 组中前4个元素的平均值输出到一个文本框中(9分)。 答案: Private Sub Command2_Click() Sum& = 0 For i = 1 To 10 Print a(i); Next i For i = 1 To 4 Sum = Sum + a(i) Next i Text1.Text = Str(Sum / 4) End Sub 补充的题型:(程序均在窗体的click事件中编写) 13、求100-300之间的所有素数，且把它们添加到列表框中显示出来. 答案: For num=100 to 300 flag = True For i% = 2 To Int(Sqr(num)) If num Mod i = 0 Then flag = False: Exit For Next i If flag = True Then list1.additem num Next 14、找出100-999之间的所有“水仙花数”,且把它们添加到列表框中显示出来。水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。 For i% = 100 To 999 a% = Int(i / 100) b% = Int((i - a * 100) / 10) c% = i Mod 10 If i = a ^ 3 + b ^ 3 + c ^ 3 Then List1.AddItem i Next i 15、有一个数列，前两个数是1，1，第三个数是前两个数的和，以后的每个数都是其前两个数的和。要求出此数列的前30个数，且把它们显示在列表框中。 X1& = 1 X2& = 1 List1.AddItem X1 List1.AddItem X2 For i% = 3 To 30 x3& = X1 + X2 List1.AddItem x3 X1 = X2 X2 = x3 Next i 16、找出1-100之间的全部同构数，且把它们显示在列表框中。 所谓同构数是指这样一个数，它出现在它的平方数的右端。例如5的平方为25，5就是同构数。25也是一个同构数。 答案: For num=1 to 100 num2=num^2 n=len(num) if num=val(right(str(num2),n)) then list1.additem num Next num 17、找出1-100之间的所有“完全数”, 且把它们显示在列表框中。 如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。如整数28的因子为2、4、7、14，其和为2+4+7+14=28，因此28为“完全数”。 答案: For num=1 to 100 sum=0 For i=1 to num-1 If num mod i=0 then sum=sum+i Next i if num=sum then list1.additem num Next num 三、求累加和编成题 第一部分:求整数区间范围内满足条件的整数的和 1、编写程序，计算出3000到7000之间能被7整除但不能被17整除的所有整数的平方根的和。 要求:运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。 答案: Private Sub Form_Click() Sum# = 0 For i% = 3000 To 7000 If I Mod 7 = 0 And I Mod 17 <> 0 Then Sum = Sum + Sqr(i) Next i Sum = Round(Sum, 4) Print sum End sub 2、编写程序，计算出3000到9990之间所有能同时被11和17整除的整数的平方根的和。 要求:运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。 答案: Private Sub Form_Click() Sum# = 0 For i% = 3000 To 9990 If i Mod 11 = 0 And i Mod 17 =0 Then Sum = Sum + Sqr(i) Next i Sum = Round(Sum, 4) Print sum End sub 3、编写程序，计算出100到500之间所有满足下列条件的整数和:整数能被其每位数字的和整除。 要求:在运行程序时，采用适当的方式输出计算结果。 答案: Private Sub Form_Click() Sum&=0 For i% = 100 To 500 a%=i\100 b%=(i-a*100)\10 c%=(i-a*100) mod 10 If i mod (a+b+c) =0 then sum=i+sum Next i Print sum End sub 4、编写程序，计算出2000到9990之间所有能同时被11和17整除的整数之和。 要求:在运行程序时，采用适当的方式输出计算结果。 答案: Private Sub Form_Click() Sum& = 0 For i% = 2000 To 9990 If i Mod 11 = 0 And i Mod 17 = 0 Then Sum = Sum + i Next i Print Sum End Sub 第二部分:求指定项数的数列的和 1、编写程序，计算并输出下面数列前n项(设n=50)的和。 1×2,-2×3,3×4,-4×5,„„,(-1)^(n-1)×n×(n+1),„„ (其中，^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 Private Sub Form_Click() n% = InputBox("请输入求和的数列的项数:") Sum&= 0 P& = 0 For i% = 1 To n p = (-1) ^ (i - 1) * i * (i + 1) Sum = Sum + p Next i Print sum End Sub 2、编写程序，计算并输出下面数列前n(设n=75)项中所有偶数项的和。 1×2×3,3×4×5,5×6×7,„„,(2n-1)×2n×(2n+1),„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果 答案: Private Sub Form_Click() n% = InputBox("请输入求和的数列的项数:") Sum& = 0 P& = 0 For i& = 1 To n p = (2*i-1)*(2*i)*(2*i+1) Sum = Sum + p Next i Print sum End Sub 3、编写程序,计算并输出下面数列前65项的和。 -1×2×3,2×3×4,-3×4×5,„„,(-1)^n×(n×(n+1)×(n+2)),„„ (其中，(-1)^n 表示-1的n次方) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入求和的数列的项数:") Sum& = 0 P& = 0 For i& = 1 To n p =(-1)^i*(i*(i+1)*(i+2)) Sum = Sum + p Next i Print sum End Sub 4、编写程序，计算并输出下面数列前n(设n=69)项中所有奇数项的和。 1×2×3,2×3×4,3×4×5,„„,n×(n+1)×(n+2),„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果. 答案: Private Sub Form_Click() n% = InputBox("请输入求和的数列的项数:") Sum& = 0 P& = 0 For i& = 1 To n p =i*(i+1)*(i+2) Sum = Sum + p Next i Print sum End Sub 5、编写程序，计算并输出下面数列前35项的和。 1,2^3,3^3,4^3,„„,n^3,„„(其中，^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法 输出运算结果。 Private Sub Form_Click() n% = InputBox("请输入求和的数列的项数:") Sum& = 0 P& = 0 For i& = 1 To n p =i^3 Sum = Sum + p Next i Print sum End Sub 6、编写程序，计算并输出下列数列前35项的和， (1-2-3),(4-5-6),(7-8-9), „„ ,(3n+1)-(3n+2)-(3n+3), „„ (注 意，n=0,1,2,3„) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法 输出运算结果 答案: Private Sub Form_Click() n% = InputBox("请输入求和的数列的项数:") Sum& = 0 P& = 0 For i& = 0 To n p =(3*i+1)-(3*i+2)-(3*i+3) Sum = Sum + p Next i Print sum End Sub 7、编写程序，计算并输出下面数列前35项的和，将结果四舍五入保留4位小数。 1/2,2/3,3/4,4/5,5/6,6/7,7/8, „„ , n/(n+1),„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。(25分) 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") sum# = 0 p# = 0 For i = 1 To n p = i / i + 1 sum = sum + p Next i sum = Round(Sum, 4) Print sum End Sub 8、编写程序，计算并输出下面数列前40项的和，结果取5位小数，小数点后第5位四舍五入。 3/2，5/4，7/6，9/8，11/10，13/12，15/14，„„,(2n+1)/(2n),„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") sum# = 0 p# = 0 For i = 1 To n p = (2*i+1) / (2*i) sum = sum + p Next i sum = Round(Sum, 5) Print sum End Sub 9、写程序，计算并输出下面数列前40项的和，将结果四舍五入保留4位小数。 2/1,3/2,4/3,5/4,6/5,7/6,8/7, „„ ,(n+1)/n,„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") sum# = 0 p# = 0 For i = 1 To n p = (i+1) / i sum = sum + p Next i sum = Round(Sum, 4) Print sum End Sub 10、编写程序，计算并输出下面数列前35项的和，将结果四舍五入保留4位小 数。 1/3，3/5，5/7，7/9，9/11，11/13，13/15，„„,(2n-1)/(2n+1) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法 输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") sum# = 0 p# = 0 For i = 1 To n p = (2*i-1) / (2*i+1) sum = sum + p Next i sum = Round(Sum, 4) Print sum End Sub 11、编写程序，求下面数列前50项的和。将结果四舍五入保留4位小数。 1,-1/2^4,1/3^4,-1/4^4,„„,(-1)^(n-1)/n^4,„„(其中，^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法 输出运算结果。 Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") sum# = 0 p# = 0 For i = 1 To n p = (-1)^(i-1) / i^4 sum = sum + p Next i sum = Round(Sum, 4) Print sum End Sub 12、编写程序，求下面数列前30项的和。将结果四舍五入保留4位小数。 1,-1/3^3,1/5^3,-1/7^3,„„,(-1)^(n-1)/(2n-1)^3,„„ (其中，^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") Sum# = 0 p# = 0 For i = 1 To n Step 1 p = (-1) ^ (i - 1) / (2 * i - 1) ^ 3 Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 13、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，要求结果保留4位小数，小数点后第5位四舍五入。 cos(x)/2,cos(2x)/4,cos(3x)/6,„„,cos(nx)/2n,„„ (其中，cos为余弦函数) 要求:在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") x# = InputBox("请输入x值:") Sum# = 0 p# = 0 For i = 1 To n Step 1 p = cos(i*x)/(2*i) Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 14、编写程序，计算并输出下面数列前n项的和(设n=50，x=2.5)，要求结果保留4位小数，小数点后第5位四舍五入。 cos(x)/x,cos(2x)/x^2,cos(3x)/x^3, „„ ,cos(nx)/x^n,„„ (其中，cos为余弦函数,^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") x# = InputBox("请输入x值:") Sum# = 0 p# = 0 For i = 1 To n Step 1 p = cos(i*x)/x^i Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 15、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.5)，要求结果保留4位小数，小数点后第5位四舍五入。 cos(x)/x,cos(2x)/2x,cos(3x)/3x, „„ ,cos(nx)/(nx), „„ (其中，cos为余弦函数) 要求:在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") x# = InputBox("请输入x值:") Sum# = 0 p# = 0 For i = 1 To n Step 1 p = cos(i*x)/(i*x) Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 16、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，要求结果保留4位小数，小数点后第5位四舍五入。 sin(x)/2,sin(2x)/4,sin(3x)/6,„„,sin(nx)/2n,„„ (其中，sin为正弦函数) 要求:在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") x# = InputBox("请输入x值:") Sum# = 0 p# = 0 For i = 1 To n Step 1 p = sin(i*x)/(2*i) Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 17、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.5)，要求结果保 留4位小数，小数点后第5位四舍五入。 sin(x)/x,sin(2x)/2x,sin(3x)/3x, „„ ,sin(nx)/(nx) ,„„ (其 中，sin为正弦函数) 要求:在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的 方法输出运算结果。 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") x# = InputBox("请输入x值:") Sum# = 0 p# = 0 For i = 1 To n Step 1 p = cos(i*x)/(i*x) Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 第三部分: 1、编写程序计算并输出下面数列前n项的和，当第一次出现和数的绝对值大于5000时求和终止。 1×2×3,-2×3×4,3×4×5,-4×5×6,„„,(-1)^(n-1)×n×(n+1)×(n+2),„„(其中，^ 表示幂运算)。 要求:在运行程序时，采用适当的方式输出计算结果。 答案: Private Sub Form_Click() Sum& = 0 P& = 0 i=1 do while abs(sum)<=5000 p =(-1)^(i-1)*i*(i+1)*(i+2) Sum = Sum + p i=i+1 Loop Print sum End Sub 2、编写程序，计算下面数列的部分和S，在求和过程中，当S>0.1357时求和终止并输出S。 将结果四舍五入保留4位小数。 1/(1×2×3),1/(2×3×4),1/(3×4×5),„„,1/(n×(n+1)×(n+2)),„„ 要求:在运行程序时，采用适当的方式输出计算结果。 Private Sub Form_Click() s# = 0 p# = 0 i=1 do while s<=0.1357 p = 1 / (i*(i+1)*(i+2)) s = s + p i=i+1 loop s = Round(S, 4) Print s End Sub 第四部分: 1、 求Π的近似值可以用以下公式 Π^2/6=1/2^2+1/2^2+1/3^2+…+1/n^2 用上述公式求Π^2/6，即逐项进行累加，直到1/n^2<10^-7为止(该项不累加)， 然后求Π的近似值。 答案: Private Sub Form_Click() Sum# = 0 n% = 1 p# = 1 / n ^ 2 Do While p >= 0.0000001 Sum = p + Sum n = n + 1 p = 1 / n ^ 2 Loop pi# = Sqr(Sum * 6) Print "Π的近似值为:"; pi End sub 2、 用近似公式求自然对数的底e的值 e?1+1/1～+1/2～+1/3～+…+1/n～ 用上述公式，即逐项进行累加，直到1/n～<10^-5为止 Private Sub Form_Click() Sum# = 1 n% = 1 p = 1 Do While p >= 10 ^ -5 Sum = p + Sum n = n + 1 p = p / n Loop Print "自然对数的底e的近似值为:"; Sum End sub 3、设n=30，编写程序，计算并输出下式的值。 s(n)=(1-2+3)+(5-6+7)+(9-10+11)+„+[(4n+1)-(4n+2)+(4n+3)] +„ (注意，n=0,1,2,3„) 答案: Private Sub Form_Click() Sum&=0 p&=0 'S为累加和,P为累加数 for n%=0 to 30 p=4*n+1-(4*n+2)+4*n+3 s=s+p next n print s end sub 4、编写程序，计算并输出下面级数中前n(设n=50)项的部分和。 1*2+2*3+3*4+4*5+„+n*(n+1)+„ 答案: Private Sub Form_Click() Sum&=0 P&=0 'sum为累加和,P为累加数 for n%=1 to 50 P=n*(n+1) sum=sum+P next n print sum end sub 5、编写程序，计算并输出数列前8项的和，结果取4为小数。 1/1～，1/2～，1/3～„„，1/n!„„ 要求运行时，采用适当方式输入和输出 答案: Private Sub Form_Click() n% = InputBox("请输入要求的数列和的项数:") Sum# = 0 p# = 1 For i = 1 To n p = p*1/i Sum = Sum + p Next i Sum = Round(Sum, 4) Print Sum End Sub 四、迭代法、二分法求方程的实根和矩形法和梯形法求积分等 第一部分:普通迭代法、牛顿迭代法和二分法求一元方程的实根 1、编写程序，用普通迭代法求方程f(x)=x+sin(1.2x)-2.45=0在区间[0，5]上的近似实根r，迭代初值自选，要求结果保留4位小数。〔提示:必须把方程f(x)=0化成其等价形式x=g(x)〕(本题允许使用其他迭代法) 要求:在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。 答案:假定迭代初值为2.45,误差不超过0.00001 Private Sub Form_Click() x1! = 2.45 x2! = 2.45- sin(1.2*x1) Do while Abs(x2 - x1) >= 0.00001 x1 = x2 x2 = 2.45- sin(1.2*x1) Loop r!=x2 Print "方程f(x)=x+sin(1.2x)-2.45=0近似实根为:";round(r,4) End sub 2、编写程序，用普通迭代法求方程f(x)=x+lgx-2.34=0的近似实根r，迭代初值为2.5，要求结果保留4位小数。(注意:lgx是以10为底的常用对数)〔提示:必须把方程f(x)=0化成其 等价形式x=g(x)〕(本题允许使用其他迭代法) 要求:在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果 答案:假定误差不超过0.00001 Private Sub Form_Click() x1! = 2.5 x2! = 2.34- Log(x1) / Log(10) Do while Abs(x2 - x1) >= 0.00001 x1 = x2 x2 = 2.34- Log(x1) / Log(10) Loop r!=x2 Print "方程f(x)=x+lgx-2.34=0的近似实根为:"; r End sub 3、编写程序，用牛顿切线法求方程f(x)=2x+cosx-2.6=0在区间[0，4]上的近似实根r，迭代初值自选，要求结果保留4位小数。〔提示:牛顿切线法的计算公式为x=x-f(x)/f'(x)〕。 要求:在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。 答案: 牛顿迭代法:程序中以f代表函数f(x)在点x处的值，d代表f'(x)在点x处的值，以x1代表每次迭代时的起始的近似根值，x2为迭代中得到的新近似根值，x2应比x1更接近真实根。(假定迭代初值为1.3，误差不超过0.00001) Private Sub Form_Click() x1～ = 1.3 f～ = 2*x1 + cos(x1)-2.6 d～ = 2 + sin(x) x2～ = x1 - f / d Do while Abs(x2 - x1) > 0.00001 x1=x2 f～ = 2*x1 + cos(x1)-2.6 d～ = 2 –sin(x) x2～ = x1 - f / d Loop r=x2 Print "方程f(x)=2x+cosx-2.6=0的近似实根为:"; round(r,4) End sub 4、编写程序，用牛顿切线法求方程f(x)=3x^3-12x^2+11=0(其中^表示幂运算)，在区间(3,6)上的近似实根r，迭代初值取5，要求结果保留4位小数。〔提示:牛顿切线法的计算公式为x=x-f(x)/f'(x)〕。 要求:在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。 答案:假定误差不超过0.00001 Private Sub Form_Click() x1～ =5 f～ = 3*x1^3-12*x1^2+11 d～ = 9*x1^2-24*x1 x2～ = x1 - f / d Do while Abs(x2 - x1) > 0.00001 x1=x2 f～ = 3*x1^3-12*x1^2+11 d～ = 9*x1^2-24*x1 x2～ = x1 - f / d Loop r=x2 Print "方程f(x)=2x+cosx-2.6=0的近似实根为:"; round(r,4) End sub 5、编写程序，用二分法求一元非线性方程f(x)=x^3+3x^2-34=0(其中^表示幂运算)，在区间(0，6)上的近似实根r，精确到0.0001。 答案: 二分法的基本原理是，若函数有实根，则函数的曲线应当与,轴有一个交点，交点即为根，则在根附近的左右区间内，函数值的符号应当相反。利用这一原理，逐步缩小区间的范围，保持在区间的两个端点处的函数值符号相反，就可以逐步逼近函数的根。 Private Sub Form_Click() X1#=0 X2#=6 do x0=(x1+x2)/2 f0= x0^3+3*x0^2-34 ‘ 求出中点的函数值f0 f1= x1^3+3*x1^2-34 ‘求出x1点的函数值f1 f2= x2^3+3*x2^2-34 ‘求出x2点的函数值f2 if sgn(f0)<>sgn(f1) then x2=x0 else x1=x0 end if loop while abs(f0)>=0.0001 ‘判断x0点的函数与x轴的距离 r#=xo print round(r,4) end sub 6、编写程序，用二分法求一元非线性方程f(x)=2x+cosx-2.6=0在区间(0，5)上的近似实根r，要求结果保留4位小数。 要求:在运行程序时，采用适当的方式输出计算结果。 Private Sub Form_Click() X1#=0 X2#=5 do x0=(x1+x2)/2 f0= 2*x0+cos(x0)-2.6 ‘ 求出中点的函数值f0 f1= 2*x1+cos(x1)-2.6 ‘求出x1点的函数值f1 f2= 2*x2+cos(x2)-2.6 ‘求出x2点的函数值f2 if sgn(f0)<>sgn(f1) then x2=x0 else x1=x0 end if loop while abs(f0)>=0.0001 ‘判断x0点的函数与x轴的距离 r#=xo print round(r,4) end sub 7、编写程序，用二分法求一元非线性方程f(x)=2x+lnx-3.7=0在区间(1，5)上的近似实根r，要求结果保留4位小数。(注意:lnx是以e为底的自然对数) 要求:在运行程序时，采用适当的方式输出计算结果。 Private Sub Form_Click() X1#=1 X2#=5 do x0=(x1+x2)/2 f0= 2*x0+log(x0) -3.7 ‘ 求出中点的函数值f0 f1= 2*x1+ log(x0) -3.7 ‘求出x1点的函数值f1 f2= 2*x2+ log(x0) -3.7 ‘求出x2点的函数值f2 if sgn(f0)<>sgn(f1) then x2=x0 else x1=x0 end if loop while abs(f0)>=0.0001 ‘判断x0点的函数与x轴的距离 r#=xo print round(r,4) end sub 第二部分:矩形法和梯形法求积分 1、编写程序，用矩形法求一元函数f(x)=ln(x+1)+x/2，在区间[1，5]上的积分近似值S，保留2位小数(小区间数n=15，此参数不能改动)。(注意:ln(x+1) 是以e为底的自然对数) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案: Private Sub form_Click() a# = 1 b# = 5 n% = inputbox(“请从键盘上输入小区间数”) h#=(b-a)/n x%=a f0#=log(x+1)+x/2 s#=0 for I=1 to n s1=f0*h ‘求出小矩形的面积 s=s+s1 x=x+h f0= log(x+1)+x/2 next I print “函数f(x)=ln(x+1)+x/2在区间[1，5]上的积分为:”;round(s,2) end sub 2、一元函数f(x)=sin(2x)+2x^2-3，在区间[0，3.1416]上的积分近似值S，保留2位小数(小区间数n=10)。 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案: Private Sub form_Click() a# = 0 b# = 3.1416 n% = inputbox(“请从键盘上输入小区间数”) h#=(b-a)/n x%=a f0#=sin(2*x)+2*x^2-3 s#=0 for I=1 to n s1=f0*h ‘求出小矩形的面积 s=s+s1 x=x+h f0= sin(2*x)+2*x^2-3 next I print round(s,2) end sub 3、编写程序，用矩形法求一元函数f(x)=3x^3+2x^2+x+1(其中^表示幂运算)，在区间[1，3]上的积分近似值S，保留3位小数(小区间数n=15，此参数不能改动)。 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法 输出运算结果。 答案: Private Sub form_Click() a# = 1 b# = 3 n% = inputbox(“请从键盘上输入小区间数”) h#=(b-a)/n x%=a f0#=3*x^3+2*x^2+x+1 s#=0 for I=1 to n s1=f0*h ‘求出小矩形的面积 s=s+s1 x=x+h f0=3*x^3+2*x^2+x+1 next I print round(s,3) end sub 4、编写程序，用梯形法求一元函数f(x)=sin(2x)+3x，在区间[0，3.1416]上的积分近似值S，保留3位小数(小区间数n=10)。 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法 输出运算结果。 Private Sub form_Click() a# = 0 b# = 3.1416 n% = inputbox(“请从键盘上输入小区间数”) h# = (b - a) / n s# = 0 For i = 1 To n X1 = a + (i - 1) * h X2 = X1 + h d1 = sin(2*x1)+3*x1) d2 = sin(2*x2)+3*x2) s= s + (d1 + d2) * h / 2 Next i Print round(s,3) End sub 第三部分:定义一个通用的过程 1、编写一个判断素数的通用过程(函数或子程序)。调用该过程，计算并输出 区间[1250，3570]内所有素数的和。(提示:只能被1和自身整除的自然数称为 素数。) Private Sub form_click() For a% = 1350 To 2460 sushu a, f If f = 0 Then s = s + a Next a Print "s ="; s End Sub Rem 用户自定义的通用过程为sushu. Private Sub sushu(x As Integer, flag) flag = 0 For i = 2 To Int(Sqr(x)) If x Mod i = 0 Then flag = 1: Exit For Next i End Sub 第一套 二、编程题(本题20分，必做) 新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字(5分)。 (2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为蓝色(5分)。 (3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)(5分)。 (20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Private Sub Command1_Click() Label1.ForeColor = &HFF0000 Label1.Caption = "颜色已经改变" End Sub Private Sub Command2_Click() Label1.FontSize = 28 End Sub 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中(9分)。 (2)单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数(9分)。 (提示:使用数组存储数据) (25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Dim a(100) As Integer Private Sub Command1_Click() For i = 0 To 100 a(i) = Int(Rnd * 100) List1.AddItem a(i), i Next i End Sub Private Sub Command2_Click() Dim s As Integer s = 0 For i = 0 To 100 If a(i) Mod 2 = 1 Then List2.AddItem a(i) s = s + 1 If s >= 20 Then Exit For End If Next i End Sub 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，求下面数列前30项的和。将结果四舍五入保留4位小数。 1,-1/3^3,1/5^3,1/7^3,„„,(-1)^(n-1)/(2n-1)^3,„„ (其中，^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click()Dim s As Double Dim n As Integer n = InputBox("请输入一个数") s = 0 For i = 1 To n s = s + (-1) ^ (i - 1) / (2 * i - 1) ^ 3 Next i s = Int(s * 10000 + 0.5) / 10000 Text1.Text = s End Sub 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用二分法求一元非线性方程f(x)=x+cosx-2.8=0在区间(0，5)上的近似实根r，要求结果保留4位小数。 要求:在运行程序时，采用适当的方式输出计算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim x As Single, x1 As Single, x2 As Single Dim y As Single, y1 As Single, y2 As Single x1 = 0 x2 = 5 x = (x1 + x2) / 2 y = x + Cos(x) - 2.8 While Abs(y) > 0.00001 y1 = x1 + Cos(x1) - 2.8 y2 = x2 + Cos(x2) - 2.8 If y1 * y < 0 Then x2 = x If y2 * y < 0 Then x1 = x x = (x1 + x2) / 2 y = x + Cos(x) - 2.8 Wend x = Int(x * 10000 + 0.5) / 10000 Print x End Sub 第二套 二、编程题(本题20分，必做) 新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度(5分)。 (3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色(5分)。(20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Private Sub Command1_Click() Form1.Height = Form1.Height + 500 End Sub Private Sub Label1_Click() Form1.BackColor = &HFF00& End Sub 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)声明一个含10个元素的一维数组，运行时单击命令按钮1，利用InputBox函数以循环方式给数组赋值。(9分)。 (2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数组中后5个数的平均值显示在一个文本框中(9分)。(25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Dim a(1 To 10) As Integer Private Sub Command1_Click() For i = 1 To 10 a(i) = InputBox("请输入一个数") Next i End Sub Private Sub Command2_Click() For i = 1 To 10 Print a(i); Next i For i = 6 To 10 s = s + a(i) Next i s = s / 5 Text1.Text = s End Sub 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，计算并输出下面数列前n项(设n=50)的和。 1×2,-2×3,3×4,-4×5,„„,(-1)^(n-1)×n×(n+1),„„ (其中，^ 表示幂运算) 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim s As Double Dim n As Integer n = InputBox("请输入一个数") s = 0 For i = 1 To n s = s + (-1) ^ (i - 1) * i * (i + 1) Next i Text1.Text = s End Sub 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用矩形法求一元函数f(x)=x^3+2x^2-12x-6(其中^表示幂运算)，在区间[3.5，5]上的积分近似值S，保留2位小数(小区间数n=15，此参数不能改动)。 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim n As Integer Dim x As Double Dim y As Double Dim h As Double Dim s As Double n = InputBox("请输入区间数") x = 3.5 h = (5 - 3.5) / n s = 0 For i = 1 To n y = x ^ 3 + 2 * x ^ 2 - 12 * x - 6 s = s + y * h x = x + h Next i s = Int(s * 100 + 0.5) / 100 Print "积分为:"; s End Sub 第三套 二、编程题(本题20分，必做) 新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1,3。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“大小”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为28磅(5分)。 (3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色(5分)。(20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Private Sub Command1_Click() Label1.FontSize = 28 End Sub Private Sub Option1_Click(Index As Integer) Label1.ForeColor = &HFF& End Sub Private Sub Option2_Click() Label1.ForeColor = &HFF00& End Sub Private Sub Option3_Click() Label1.ForeColor = &HFF0000 End Sub 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)运行时单击命令按钮1，产生100个[100,200]之间的随机整数并显示在列表框中(9分)。 (2)然后单击命令按钮2，在两个文本框中分别显示上述数据中前10个和后10个数据的平均值(9分)。(提示:使用数组存储数据)(25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Dim a(100) As Integer Private Sub Command1_Click() For i = 1 To 100 a(i) = Int(Rnd * 100) + 100 List1.AddItem a(i) Next i End Sub Private Sub Command2_Click() Dim s1 As Single Dim s2 As Single For i = 1 To 10 s1 = s1 + a(i) Next i s1 = s1 / 10 For i = 91 To 100 s2 = s2 + a(i) Next i s2 = s2 / 10 Text1.Text = "前10个数的平均值为:" & s1 Text2.Text = "后10个数的平均值为:" & s2 End Sub 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，计算并输出下面数列前35项的和，将结果四舍五入保留4位小数。 1/2,2/3,3/4,4/5,5/6,6/7,7/8, „„ , n/(n+1),„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim n As Integer Dim s As Double n = InputBox("请输入项数") For i = 1 To n s = s + i / (i + 1) Next i s = Int(s * 10000 + 0.5) / 10000 Text1.Text = s End Sub 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用牛顿切线法求方程f(x)=x^3+2x^2-14=0(其中^表示幂运算)，在区间(0，5)上的近似实根r，迭代初值自选，要求结果保留4位小数。〔提示:牛顿切线法的计算公式为x=x-f(x)/f'(x)〕。 要求:在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。 (25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim x As Double Dim y1 As Double Dim y2 As Double x = (5 - 0) / 2 y1 = x ^ 3 + 2 * x ^ 2 - 14 y2 = 3 * x ^ 2 + 4 * x While Abs(y1) > 0.0001 x = x - y1 / y2 y1 = x ^ 3 + 2 * x ^ 2 - 14 y2 = 3 * x ^ 2 + 4 * x Wend x = Int(x * 10000 + 0.5) / 10000 Print "方程的根是:" & x End Sub 第四套 二、编程题(本题20分，必做) 新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的宽度(5分)。 (3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色(5分)。 (20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Private Sub Command1_Click() Form1.Width = Form1.Width + 500 End Sub Private Sub Label1_Click() Form1.BackColor = &HFF00& End Sub 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容(9分)。 (2)输入完成后，单击命令按钮，在文本框2中显示输入字符的个数，在文本框3中显示该字符串左边的10个字符(9分)。(25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Private Sub Command1_Click() Text2.Text = Len(Text1.Text) Text3.Text = Left(Text1.Text, 10) End Sub Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，计算出2000到9990之间所有能同时被11和17整除的整数之和。 要求:在运行程序时，采用适当的方式输出计算结果。 (25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim s As Double For i = 2000 To 9990 If (i Mod 11 = 0) And (i Mod 17 = 0) Then s = s + i End If Next i Print "和是:" & s End Sub 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用牛顿切线法求方程f(x)=3x^3-12x^2+4=0(其中^表示幂运算)，在区间(3,6)上的近似实根r，迭代初值取5，要求结果保留4位小数。〔提示:牛顿切线法的计算公式为x=x-f(x)/f'(x)〕。 要求:在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。 (25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim x As Double Dim y1 As Double Dim y2 As Double x = 5 y1 = 3 * x ^ 3 - 12 * x ^ 2 + 4 y2 = 9 * x ^ 2 - 24 * x While Abs(y1) > 0.0001 x = x - y1 / y2 y1 = 3 * x ^ 3 - 12 * x ^ 2 + 4 y2 = 9 * x ^ 2 - 24 * x Wend x = Int(x * 10000 + 0.5) / 10000 Print "方程的根是:" & x End Sub 第五套 二、编程题(本题20分，必做) 新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除(5分)。 (2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”(5分)。 (3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置(5分)。 (20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Private Sub Command1_Click() Label1.Caption = "你单击了[显示]按钮" End Sub Private Sub Form_Click() Command1.Left = Command1.Left + Command1.Width End Sub 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)声明一个含10个元素的一维数组，运行时利用InputBox函数以循环方式给数组赋值。(9分)。 (2)输入完成后，单击命令按钮，显示(方式不限)数组中的元素，并将数组中前4个元素的平均值输出到一个文本框中(9分)。(25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 Dim a(10) As Integer Private Sub Command1_Click() For i = 1 To 10 a(i) = InputBox("请输入数据") Next i End Sub Private Sub Command2_Click() For i = 1 To 10 Print a(i); Next i For i = 1 To 4 s = s + a(i) Next i s = s / 4 Text1.Text = "前4个的平均值为:" & s End Sub 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，计算出3000到7000之间能被7整除但不能被17整除的所有整数的平方根的和。 要求:运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim s As Double For i = 3000 To 7000 If i Mod 7 = 0 And i Mod 17 <> 0 Then s = s + Sqr(i) End If Next i s = Int(s * 10000 + 0.5) / 10000 Text1.Text = "和是:" & s End Sub 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用二分法求一元非线性方程f(x)=x^3+2x^2-12=0(其中^表示幂运算)，在区间(0，5)上的近似实根r，要求结果保留4位小数。 要求:在运行程序时，采用适当的方式输出计算结果。 (25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 Private Sub Command1_Click() Dim x As Single, x1 As Single, x2 As Single Dim y As Single, y1 As Single, y2 As Single x1 = 0 x2 = 5 x = (x1 + x2) / 2 y = x ^ 3 + 2 * x ^ 2 - 12 While Abs(y) > 0.00001 y1 = x1 ^ 3 + 2 * x1 ^ 2 - 12 y2 = x2 ^ 3 + 2 * x2 ^ 2 - 12 If y1 * y < 0 Then x2 = x If y2 * y < 0 Then x1 = x x = (x1 + x2) / 2 y = x ^ 3 + 2 * x ^ 2 - 12 Wend x = Int(x * 10000 + 0.5) / 10000 Print "方程的根为:" & x End Sub 第六套 二、编程题(本题20分，必做) 新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除(5分)。 (2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”(5分)。 (3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置(5分)。 (20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 参考第五套 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容(9分)。 (2)输入完成后，单击命令按钮，在文本框2中显示输入字符的个数，在文本框3中显示该字符串左边的10个字符(9分)。(25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，要求结果保留4位小数，小数点后第5位四舍五入。 cos(x)/2,cos(2x)/4,cos(3x)/6,„„,cos(nx)/2n,„„ (其中，cos为余弦函数) 要求:在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用矩形法求一元函数f(x)=x^3+2x^2-12x-6(其中^表示幂运算)，在区间[3.5，5]上的积分近似值S，保留2位小数(小区间数n=25，此参数不能改动)。 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。(25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 二、编程题(本题20分，必做) 新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件(5分)，要求: (1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”(5分)。 (2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“Visual Basic考试”(5分)。 (3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色(5分)。 (20分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 三、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(7分)。 编写事件过程并满足以下要求: (1)单击命令按钮1，产生100个随机整数并显示在列表框中(9分)。 (2)单击命令按钮2，在两个文本框中分别显示上述数据中的最小偶数和最小奇数(9分)。 (提示:使用数组存储数据) (25分) 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 请单击按钮上载文件，将你创建的frm文件上载到服务器上 四、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，求下面数列前50项的和。将结果四舍五入保留4位小数。 1,1/(3×3),1/(5×5),1/(7×7),„„,1/((2n-1)×(2n-1)),„„ 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 (25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面 五、编程题(本题25分，第三、四、五题选做两道，多做按前两道算) 编写程序，用梯形法求一元函数f(x)=3x^3+2x^2+x+1(其中^表示幂运算)，在区间[1，2.5]上的积分近似值S，保留3位小数(小区间数n=10，此参数不能改动)。 要求:在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 (25分) 本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面