一道VBpython编程题目目,求大佬解答!!

求大佬解答,VB编程怎么能实现修改TXT某行第几个字?_百度知道
求大佬解答,VB编程怎么能实现修改TXT某行第几个字?
求大佬解答,VB编程怎么能实现修改TXT某行第几个字?比如说我要修改TXT第8行第3个字符为B,应该怎么写?还望大佬多多指教
我有更好的答案
可以肯定一点的是,你这个TXT某行第几字是很难确定的,因为一个段落如果很多字的情况下,在记事本中“自动换行”与“没自动换行”,显示的行数是不一样的,再与记事本的窗体大小不同行数也是不同的。你说的某行,指的一个段落作为一行来识别吗?还是说按记事本里的“自动换行”后的第几行?
建立一个空的数据源,让回绑定!
具体怎么弄呢?VB.NET也行,,我是新手
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。当前位置: >>
省二级VB编程题
Vb 编写程序题型一、基本操作题1、新建工程,在窗体上创建一个命令按钮 Command1,一个标签 Label1。窗体 、新建工程, Command1, Label1。和控件的大小适当、布局合理,命名并保存窗体文件( ),要求 要求: 和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要求: (1)在属性窗口中设置命令按钮上的文字为“绿色” 标签上文字为“ (1)在属性窗口中设置命令按钮上的文字为“绿色”,标签上文字为“这里是一 在属性窗口中设置命令按钮上的文字为 个标签” 个标签”(5 分)。 (2)编写事件过程, 单击命令按钮, 窗体的背景色改为绿色 5 分) ( (2)编写事件过程, 编写事件过程 运行程序后, 运行程序后, 单击命令按钮, 。 (3)编写事件过程,运行程序后,单击窗体,标签上显示“你单击了窗体” (3)编写事件过程,运行程序后,单击窗体,标签上显示“你单击了窗体”(5 编写事件过程 分)。答案: 答案:Private Sub Command1_Click() Form1.BackColor = vbGreen End SubPrivate Sub Form_Click() &你单击了窗体 你单击了窗体& Label1.Caption = &你单击了窗体& End Sub2、新建工程,在窗体上创建一个命令按钮 Command1 和一个标签 Label1。窗体 和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要求: (1)在属性窗口中设置命令按钮上的文字为“改变大小”,标签上文字为“改变 颜色”(5 分)。 (2)编写事件过程,运行程序后,单击命令按钮,适当增加窗体的高度(5 分)。 (3)编写事件过程,运行程序后,单击标签,将窗体的背景色改为绿色(5 分)。答案: Private Sub Command1_Click() Form1.Height = Form1.Height + 200 End SubPrivate Sub Label1_Click() Form1.BackColor = vbGreen End Sub新建工程, 在窗体上创建两个命令按钮 Command1、 Command2, 一个标签 Label1。 3、 窗体和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要求: (1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”,标签 上文字为“可以隐藏的控件”(5 分)。 (2)编写事件过程,运行程序后,单击“隐藏”按钮,标签不可见,单击“显示” 按钮,标签重新可见(5 分)。 (3)编写事件过程,运行程序后,单击窗体,窗体的标题栏上显示“隐藏/显示控 件”(5 分)。 答案: 答案: Private Sub Command1_Click() Label1.Visible = False End Sub Command2_Click() Private Sub Command2_Click() Label1.Visible = True End SubPrivate 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 SubPrivate Sub Option1_Click() Label1.ForeColor = vbRed End SubPrivate Sub Option2_Click() vbGreen Label1.ForeColor = vbGreen End SubPrivate 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 SubPrivate Sub Label1_Click() Form1.BackColor = vbRed End Sub新建工程, 在窗体上创建两个命令按钮 Command1、 Command2, 一个标签 Label1。 6、 窗体和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要求: (1)在属性窗口中设置两个命令按钮上的文字分别为 “改变颜色” “改变大小” 和 , 标签上文字为“计算机等级考试”,标签可以自动调整大小以显示所有文字(5 分)。 (2)编写事件过程,运行程序后,单击“改变颜色”按钮,标签的背景色改为绿 色(5 分)。 (3)编写事件过程,运行程序后,单击“改变大小”按钮,标签上的文字内容改 为“大小已经改变”,文字大小改为 30(磅)(5 分)。 答案: Private Sub Command1_Click() Label1.BackColor = vbGreen End SubPrivate Private Sub Command2_Click() Label1.Caption = &大小已经改变& &大小已经改变& 大小已经改变 Label1.FontSize = 30 End Sub7、新建工程,在窗体上创建一个命令按钮 Command1、一个标签和三个单选钮 OptionButton1~3。 窗体和控件的大小适当、 布局合理, 命名并保存窗体文件 (5 分),要求: (1)在属性窗口中设置命令按钮上的文字为“关闭”,标签上的文字为“请选择 学历”,三个单选钮上的文字分别为“硕士”、“本科”、“大专”(5 分)。 (2)编写事件过程,运行程序后,单击命令按钮可关闭窗体(5 分)。 (3)编写事件过程,运行程序后,分别单击三个单选钮,标签上的文字相应改变 为“硕士学历”、“本科学历”或“大专学历”(5 分)。 答案: Private Sub Command1_Click() Form1.Hide End SubPrivate Sub Option1_Click() &硕士学历 硕士学历& Label1.Caption = &硕士学历& End SubPrivate Sub Option2_Click() 本科学历& Label1.Caption = &本科学历& End SubPrivate Sub Option3_Click() &大专学历 大专学历& Label1.Caption = &大专学历& End Sub8、新建工程,在窗体上创建一个命令按钮 Command1、一个标签和三个单选钮 OptionButton1~3。 窗体和控件的大小适当、 布局合理, 命名并保存窗体文件 (5 分),要求: (1)在属性窗口中设置命令按钮上的文字为“红色”,标签上的文字为“字体大 小”,三个单选钮上的文字分别为“10”、“14”、“18”(5 分)。 (2)编写事件过程, 运行程序后, 单击命令按钮可将标签文字改变为红色 分) (5 。 (3)编写事件过程,运行程序后,分别单击三个单选钮,可改变标签文字大小为 10 磅、14 磅或 18 磅(5 分)。 答案: 答案: Private Sub Command1_Click() Label1.ForeColor = vbRed End SubPrivate Sub Option1_Click() Label1.FontSize = 10 End SubPrivate Sub Option2_Click() Label1.FontSize = 14 End End SubPrivate Sub Option3_Click() Label1.FontSize = 18 End Sub 新建工程, 在窗体上创建两个命令按钮 Command1、 Command2, 一个标签 Label1。 9、 窗体和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要求: (1)在属性窗口中设置两个命令按钮上的文字分别为 “改变颜色” “改变字体” 和 , 标签上文字为“计算机等级考试”,标签可以自动调整大小以显示所有文字(5 分)。 (2)编写事件过程,运行程序后,单击“改变颜色”按钮,标签上的文字内容改 为“颜色已经改变”,文字颜色改为红色(5 分)。 (3)编写事件过程,运行程序后,单击“改变字体”按钮,标签上的字体改为“黑 体”(5 分)。 答案: 答案:Private Sub Command1_Click() Label1.ForeColor = vbRed &颜色已经改变 颜色已经改变& Label1.Caption = &颜色已经改变& End SubPrivate Sub Command2_Click() &黑体 黑体& Label1.FontName = &黑体& End Sub10、 10、新建工程,在窗体上创建两个命令按钮 Command1、Command2,一个标签 Label1。窗体和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要 求: (1)在属性窗口中设置两个命令按钮上的文字分别为 “改变大小” “改变字体” 和 , 标签上文字为“Visual Basic 程序设计”,字体为宋体,标签可以自动调整大 小以显示所有文字(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() &楷体_GB2312& Label1.FontName = & & &这是 这是楷体& Label1.Caption = &这是 & End Sub(提示:楷体的字体名称为“楷体_GB2312”。)11、 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.Left,command1.topCommand1.Move Command1.Left,command1.top-command1.height End Sub 或者(3)编写事件过程,运行程序后,每次单击窗体,命令按钮均向下移动一个 按钮位置(5 分)。 Private Sub Form_Click() Command1.Left, Command1.Move Command1.Left,command1.top+command1.height End Sub 12、 12、新建工程,在窗体上创建一个命令按钮 Command1,一个标签 Label1。窗体 和控件的大小适当、布局合理,命名并保存窗体文件(5 分),要求: (1)在属性窗口中设置命令按钮上的文字为“清除”,标签上文字为“这里是一 个标签”(5 分)。 (2)编写事件过程,运行程序后,单击“清除”按钮,清除标签上的文字(5 分)。 (3)编写事件过程,运行程序后,每次单击标签,标签均向左移动 200(Twip)(5 分) 答案: 答案: Private Sub Command1_Click() Label1.Caption = && End SubPrivate 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.Left,label1.topLabel1.Move Label1.Left,label1.top-200 End Sub 或者(3)编写事件过程, 运行程序后, 每次单击标签, 标签均向下移动 200(Twip) 或者 Private Sub Label1_Click() Label1.Left, Label1.Move Label1.Left,label1.top+200 Sub End Sub二、操作编程题1、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、 布局合理,命名并保存窗体文件(7 分)。 编写事件过程并满足以下要求: (1)单击命令按钮 1,产生 100 个[300,3000]之间的随机整数并显示在列表框 1 中(9 分)。 (2)单击命令按钮 2,计算上述数据中能被 13 和 15 同时整除的数及其平均值, 并分别用列表框 2 和一个标签显示结果。(9 分)。 (提示:使用数组存储数据) 答案: 答案: Dim a(1 To 100) As Integer Command1_Click() Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(2701 * Rnd() + 300) List1.AddItem a(i) Next i End SubPrivate 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 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 SubPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate Sub Command1_Click() Text2.Text = len(text1.text) Text3.Text = right(text1.text,10) End End Sub 或者(2)输入完成后,单击命令按钮,在文本框 2 中显示输入字符的个数,在文 或者 本框 3 中显示该字符串左边的 10 个字符(9 分)。 Private Sub Command1_Click() Text2.Text = len(text1.text) Text3.Text = left(text1.text,10) End Sub4、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、 布局合理,命名并保存窗体文件(7 分)。 编写事件过程并满足以下要求: (1)运行时在文本框 1 中输入若干字符,此时应在标签中同步显示输入的内容(9 分)。 (2)输入完成后,单击命令按钮,统计输入字符中所含大写字母的个数并显示在 文本框 2 中(9) 答案: 答案: Private Sub Text1_Change() Label1.Caption = Text1.Text End SubPrivate Sub Command1_Click() n%=0 For i=1 to len(text1.text) mid(text1.text,i,1)&=” mid(text1.text,i,1)&= xt,i,1)&=” 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) mid(text1.text,i,1)&=” mid(text1.text,i,1)&=” 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) mid(text1.text,i,1)&=” mid(text1.text,i,1)&=” 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 Sub5、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、 布局合理,命名并保存窗体文件(7 分)。 编写事件过程并满足以下要求: (1)在文本框 1 中输入若干字符,此时应在标签中同步显示输入的内容(9 分)。 (2)输入完成后,单击命令按钮,在文本框 2 和文本框 3 中分别显示输入字符中 所含大写字母 A 和小写字母 a 的个数(9 分)。 答案: 答案: Private Sub Text1_Change() Text1.Text Label1.Caption = Text1.Text End SubPrivate 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 Text3.Text = Str(num7) End Sub6、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、 布局合理,命名并保存窗体文件(7 分)。 编写事件过程并满足以下要求: (1)运行时单击窗体,利用 InputBox 函数输入三个数据,并将其分别显示在三个 标签上。(9 分)。 (2)输入完成后,单击命令按钮,将这些数据按从大到小的顺序排列并显示在列 表框中(9 分)。 答案: 答案: Dim x1 As Double, x2 As Double, x3 As Double Private Sub Form_Click() InputBox(&请输入第一个数据: 请输入第一个数据 x1 = InputBox(&请输入第一个数据:&) InputBox(&请输入第二个数据 请输入第二个数据: x2 = InputBox(&请输入第二个数据:&) 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、 10、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、 布局合理,命名并保存窗体文件(7 分)。 编写事件过程并满足以下要求: (1)单击命令按钮 1,产生 100 个[10,99]之间的随机整数并显示在列表框 1 中 (9 分)。 (2)单击命令按钮 2,在列表框 2 中显示上述随机整数中小于 60 的所有数据(9 分)。 (提示:使用数组存储数据) 答案: 答案:Dim a(1 To 100) As Integer Command1_Click() Private Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(90 * Rnd() + 10) List1.AddItem a(i) Next i End SubPrivate Sub Command2_Click() For i = 1 To 100 If a(i) & 60 Then List2.AddItem a(i) Next i End Sub 11、 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 SubPrivate 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 InputBox(&请输入数 请输入数据 a(i) = InputBox(&请输入数据:&) Next i End SubPrivate 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、 之间的所有素数,且把它们添加到列表框中显示出来. 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 之间的所有“水仙花数”,且把它们添加到列表框中 14、 之间的所有“水仙花数” 且把它们添加到列表框中显示出来。水仙花数”是指一个三位数, 显示出来。水仙花数”是指一个三位数,其各位数字的立方和等于该 数本身。 数本身。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、有一个数列, 15、有一个数列,前两个数是 1,1,第三个数是前两个数的和,以后 , ,第三个数是前两个数的和,的每个数都是其前两个数的和。 个数, 的每个数都是其前两个数的和。要求出此数列的前 30 个数,且把它 们显示在列表框中。 们显示在列表框中。X1& = 1 X2& = 1 List1.AddItem X1 List1.AddItem X2 For i% = 3 To 30x3& = X1 + X2 List1.AddItem x3 X1 = X2 X2 = x3 Next i 16、 之间的全部同构数,且把它们显示在列表框中。 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 numFor 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 Next i Sum = Round(Sum, 4) Print 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 Print sum End sub Then Sum = Sum + Sqr(i) 3、编写程序,计算出 100 到 500 之间所有满足下列条件的整数和:整数能被其 每位数字的和整除。 要求:在运行程序时,采用适当的方式输出计算结果。 答案: 答案: Private Sub Form_Click() Sum&=0 For i% = 100 To 500 a%=i\ a%=i\100 b%=(i-a*100)\ b%=(i-a*100)\10 c%=(ic%=(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() InputBox(&请输入求和的数列的项数 请输入求和的数列的项数: 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(&请输入求和的数列的项数:&) InputBox(&请输入求和的数列的项数: 请输入求和的数列的项数 Sum& = 0 P& = 0 For i& = 1 To n 2*i*(2*i)*(2*i+1) 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() InputBox(&请输入求和的数列的项数 请输入求和的数列的项数: 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 值,并用适当的方法 输出运算结果. 答案: 答案: Sub Private Sub Form_Click() InputBox(&请输入求和的数列的项数 请输入求和的数列的项数: 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() InputBox(&请输入求和的数列的项数 请输入求和的数列的项数: 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() InputBox(&请输入求和的数列的项数 请输入求和的数列的项数: n% = InputBox(&请输入求和的数列的项数:&) Sum& = 0 P& = 0 For i& = 0 To n =(3*i+1)-(3*i+2)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() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) sum# = 0 p# = 0 For i = 1 To n p = i / i + 1 sum = sum + p Next i Round(Sum, 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() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) sum# = 0 p# = 0 For i = 1 To n 2*i+1) 2*i) p = (2*i+1) / (2*i) sum = sum + p Next i sum = Round(Sum, 5) Print sum End Sub9、写程序,计算并输出下面数列前 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() InputBox(&请输入要求的数列和的项数: putBox(&请输入要求的数列和的项数 n% = InputBox(&请输入要求的数列和的项数:&) sum# = 0 p# = 0 For i = 1 To n i+1) 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() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) sum# = 0 p# = 0 For i = 1 To n 2*i2*i+1) 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() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) sum# = 0 p# = 0 For i = 1 To n (-1)^( 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() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: 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 Sub13、编写程序,计算并输出下面数列前 n 项的和(设 n=50,x=0.4),要求结果保 留 4 位小数,小数点后第 5 位四舍五入。 cos(x)/2,cos(2x)/4,cos(3x)/6,……,cos(nx)/2n,…… 为余弦函数) 要求:在运行程序时,使用文本框或 InputBox 函数输入 n 和 x 值,并用适当的 方法输出运算结果。 答案: 答案: Private Private Sub Form_Click() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) 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) (其中,cos 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() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) InputBox(&请输入 x# = InputBox(&请输入 x 值:&) Sum# = 0 p# = 0 For i = 1 To n Step 1 cos(i*x)/x^i 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 Private Sub Form_Click() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) 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 Sub16、编写程序,计算并输出下面数列前 n 项的和(设 n=50,x=0.4),要求结果保 留 4 位小数,小数点后第 5 位四舍五入。 sin(x)/2,sin(2x)/4,sin(3x)/6,……,sin(nx)/2n,…… 为正弦函数) 要求:在运行程序时,使用文本框或 InputBox 函数输入 n 和 x 值,并用适当的 方法输出运算结果。 答案: 答案: Private Sub Form_Click() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) (其中,sin 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 值,并用适当的 方法输出运算结果。 答案: 答案: Sub Private Sub Form_Click() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: n% = InputBox(&请输入要求的数列和的项数:&) 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 =(-1)^( 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 (i*(i+1)*(i+2) p = 1 / (i*(i+1)*(i+2)) s = s + p i=i+1 loop 4) 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 n=30,编写程序,计算并输出下式的值。 3、设 n=30,编写程序,计算并输出下式的值。 s(n)=(1-2+3)+(5-6+7)+(9-10+11)+…+[(4n+1)+… s(n)=(1-2+3)+(5-6+7)+(9-10+11)+…+[(4n+1)-(4n+2)+(4n+3)] +… (注意,n=0,1,2,3…) 注意,n=0,1,2,3… 答案: 答案: Private Sub Form_Click() Sum&=0 p&=0 for n%=0 to 30 为累加和,P 为累加数 'S 为累加和,P 为累加数 p=4*n+1p=4*n+1-(4*n+2)+4*n+3 s=s+p next n print s end sub n=50)项的部分和。 4、编写程序,计算并输出下面级数中前 n(设 n=50)项的部分和。 编写程序, 1*2+2*3+3*4+4*5+…+n*(n+1)+… 1*2+2*3+3*4+4*5+…+n*(n+1)+… 答案: 答案: Private Sub Form_Click() Sum&=0 P&=0 为累加和,P '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/n!…… !,1/2!, !, !,1/3!……, …… 要求运行时, 要求运行时,采用适当方式输入和输出 答案: 答案: Private Sub Form_Click() InputBox(&请输入要求的数列和的项数 请输入要求的数列和的项数: 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四、迭代法、 迭代法、二分法求方程的实根和矩形法和梯形法求积分等第一部分:普通迭代法、牛顿迭代法和二分法求一元方程的实根 第一部分:普通迭代法、 f(x)=x+sin(1.2x)在区间[0 5]上 [0, 1、编写程序,用普通迭代法求方程 f(x)=x+sin(1.2x)-2.45=0 在区间[0,5]上 编写程序, 迭代初值自选, 位小数。〔提示: 。〔提示 的近似实根 r,迭代初值自选,要求结果保留 4 位小数。〔提示:必须把方程 x=g(x)〕(本题允许使用其他迭代法) 〕(本题允许使用其他迭代法 f(x)=0 化成其等价形式 x=g(x)〕(本题允许使用其他迭代法) 要求:在运行程序时, 函数输入迭代初值, 要求:在运行程序时,使用文本框或 InputBox 函数输入迭代初值,并用适当的 方法输出运算结果。 方法输出运算结果。 答案: 2.45,误差不超过 答案:假定迭代初值为 2.45,误差不超过 0.00001 Private Sub Form_Click() x1! = 2.45 2.45x2! = 2.45- sin(1.2*x1) Do while Abs(x2 - x1) &= 0.00001 x1 = x2 2.45x2 = 2.45- sin(1.2*x1) Loop r!=x2 &方程 f(x)=x+sin(1.2x)近似实根为:&;round(r,4) Print &方程 f(x)=x+sin(1.2x)-2.45=0 近似实根为:&;round(r,4) End sub f(x)=x+lgx2、编写程序,用普通迭代法求方程 f(x)=x+lgx-2.34=0 的近似实根 r,迭代初 编写程序, 2.5, 位小数。(注意: 。(注意 为底的常用对数)〔 )〔提 值为 2.5,要求结果保留 4 位小数。(注意:lgx 是以 10 为底的常用对数)〔提 x=g(x)〕(本题允许使用其他迭代法) 〕(本题允许使用其他迭代法 示:必须把方程 f(x)=0 化成其 等价形式 x=g(x)〕(本题允许使用其他迭代法) 要求:在运行程序时, 函数输入迭代初值, 要求:在运行程序时,使用文本框或 InputBox 函数输入迭代初值,并用适当的 方法输出运算结果 答案: 答案:假定误差不超过 0.00001 Private Sub Form_Click() x1! = 2.5 2.34- Log(x1) x2! = 2.34- Log(x1) / Log(10) Do while Abs(x2 - x1) &= 0.00001 x1 = x2 2.34x2 = 2.34- Log(x1) / Log(10) Loop r!=x2 Print &方程 f(x)=x+lgx-2.34=0 的近似实根为:&; r &方程 f(x)=x+lgx的近似实根为: End sub f(x)=2x+cosx在区间[0 4]上 [0, 3、编写程序,用牛顿切线法求方程 f(x)=2x+cosx-2.6=0 在区间[0,4]上 编写程序, 迭代初值自选, 位小数。〔提示: 。〔提示 的近似实根 r,迭代初值自选,要求结果保留 4 位小数。〔提示:牛顿切线法的 x=x-f(x)/f'(x) x)/f'(x)〕。 计算公式为 x=x-f(x)/f'(x)〕。 要求:在运行程序时, 函数输入迭代初值, 要求:在运行程序时,使用文本框或 InputBox 函数输入迭代初值,并用适当的 方法输出运算结果。 方法输出运算结果。 答案: 答案: 牛顿迭代法:程序中以 f 代表函数 f(x)在点 x 处的值,d 代表 f'(x)在点 x 处 牛顿迭代法: f(x)在点 处的值, f'(x)在点 的值, 代表每次迭代时的起始的近似根值, 的值,以 x1 代表每次迭代时的起始的近似根值,x2 为迭代中得到的新近似根 更接近真实根。 1.3, 0.00001) 值,x2 应比 x1 更接近真实根。(假定迭代初值为 1.3,误差不超过 0.00001) Private Sub Form_Click() x1! x1! = 1.3 cos(x1)f! = 2*x1 + cos(x1)-2.6 d! = 2 + sin(x) x2! x2! = x1 - f / d Do while Abs(x2 - x1) & 0.0 cos(x1)f! = 2*x1 + cos(x1)-2.6 d! = 2 Csin(x) x2! x2! = x1 - f / d Loop r=x2 &方程 f(x)=2x+cosx的近似实根为: Print &方程 f(x)=2x+cosx-2.6=0 的近似实根为:&; round(r,4) End sub 编写程序, 用牛顿切线法求方程 f(x)=3x^3-12x^2+11=0 其中^表示幂运算) f(x)=3x^34、 写程序, (其中^表示幂运算) , 在区间(3,6)上的近似实根 r,迭代初值取 5,要求结果保留 4 位小数。〔提示: 在区间(3,6)上的近似实根 位小数。〔提示: (3,6) 。〔提示 x=x-f(x)/f'(x)〕。 牛顿切线法的计算公式为 x=x-f(x)/f'(x)〕。 要求:在运行程序时, 函数输入迭代初值, 要求:在运行程序时,使用文本框或 InputBox 函数输入迭代初值,并用适当的 方法输出运算结果。 方法输出运算结果。 答案: 答案:假定误差不超过 0.00001 Private Sub Form_Click() x1! x1! =5 3*x1^3f! = 3*x1^3-12*x1^2+11 d! = 9*x1^2-24*x1 9*x1^2- 24*x1 x2! x2! = x1 - f / d Do while Abs(x2 - x1) & 0.0 3*x1^3f! = 3*x1^3-12*x1^2+11 9*x1^2d! = 9*x1^2-24*x1 x2! x2! = x1 - f / d Loop r=x2 &方程 f(x)=2x+cosx的近似实根为: Print &方程 f(x)=2x+cosx-2.6=0 的近似实根为:&; round(r,4) End sub f(x)=x^3+3x^2-34=0(其中^ 5、编写程序,用二分法求一元非线性方程 f(x)=x^3+3x^2-34=0(其中^表示幂 编写程序, 运算),在区间(0,6)上的近似实根 0.0001。 运算),在区间(0,6)上的近似实根 r,精确到 0.0001。 ),在区间(0 答案: 答案: 二分法的基本原理是,若函数有实根,则函数的曲线应当与x 二分法的基本原理是,若函数有实根,则函数的曲线应当与x轴有一个交 点,交点即为根,则在根附近的左右区间内,函数值的符号应当相反。利用这 交点即为根,则在根附近的左右区间内,函数值的符号应当相反。 一原理,逐步缩小区间的范围,保持在区间的两个端点处的函数值符号相反, 一原理,逐步缩小区间的范围,保持在区间的两个端点处的函数值符号相反, 就可以逐步逼近函数的根。 就可以逐步逼近函数的根。 Private Sub Form_Click() X1#=0 X2#=6 do x0=(x1+x2)/2 x0^3+3*x0^2f0= x0^3+3*x0^2-34 x1^3+3*x1^2f1= x1^3+3*x1^2-34 x2^3+3*x2^2f2= x2^3+3*x2^2-34 ‘ 求出中点的函数值 f0 ‘求出 x1 点的函数值 f1 ‘求出 x2 点的函数值 f2if 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 f(x)=2x+cosx-2.6=0 在区间(0 (0, 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 2*x0+cos(x0)f0= 2*x0+cos(x0)-2.6 f1= 2*x1+cos(x1)-2.6 2*x1+cos(x1)2*x2+cos(x2)f2= 2*x2+cos(x2)-2.6 if sgn(f0)&&sgn(f1) then x2=x0 else x1=x0 end if loop while abs(f0)&=0.0001 r#=xo print round(r,4) end sub ‘判断 x0 点的函数与 x 轴的距离 ‘ 求出中点的函数值 f0 ‘求出 x1 点的函数值 f1 ‘求出 x2 点的函数值 f2 f(x)=2x+lnx在区间(1 5)上 (1, 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 x0=(x1+x2)/2 f0= 2*x0+log(x0) -3.7 f1= 2*x1+ log(x0) -3.7 f2= 2*x2+ log(x0) -3.7 if sgn(f0)&&sgn(f1) then x2=x0 else x1=x0 end if loop while abs(f0)&=0.0001 r#=xo print round(r,4) end sub ‘判断 x0 点的函数与 x 轴的距离 ‘ 求出中点的函数值 f0 ‘求出 x1 点的函数值 f1 ‘求出 x2 点的函数值 f2第二部分: 第二部分:矩形法和梯形法求积分 f(x)=ln(x+1)+x/2,在区间[1 5]上的积分 [1, 1、编写程序,用矩形法求一元函数 f(x)=ln(x+1)+x/2,在区间[1,5]上的积分 编写程序, 位小数( n=15,此参数不能改动)。 注意: (注意 近似值 S,保留 2 位小数(小区间数 n=15,此参数不能改动)。 注意:ln(x+1) ( 为底的自然对数) 是以 e 为底的自然对数) 要求:在运行程序时, 要求:在运行程序时,使用文本框或 InputBox 函数输入 n 值,并用适当的方法 输出运算结果。 输出运算结果。 答案: 答案: Private Sub form_Click() a# = 1 b# = 5 inputbox(“请从键盘上输入小区间数” n% = inputbox(“请从键盘上输入小区间数”) h#=(bh#=(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 在区间[1 5]上的积分为 [1, 上的积分为: print “函数 f(x)=ln(x+1)+x/2 在区间[1,5]上的积分为:”;round(s,2) end sub f(x)=sin(2x)+2x^2- 在区间[0 3.1416]上的积分近似值 [0, 2、一元函数 f(x)=sin(2x)+2x^2-3,在区间[0,3.1416]上的积分近似值 S,保 留 2 位小数(小区间数 n=10)。 位小数( n=10)。 要求:在运行程序时, 函数输入 要求:在运行程序时,使用文本框或 InputBox 函数输入 n 值,并用适当的方法 输出运算结果。 输出运算结果。 答案: 答案: Private Sub form_Click() a# = 0 b# = 3.1416 inputbox(“请从键盘上输入小区间数” n% = inputbox(“请从键盘上输入小区间数”) h#=(bh#=(b-a)/n x%=a f0#=sin(2*x)+2*x^2f0#=sin(2*x)+2*x^2-3 s#=0 for I=1 to n s1=f0*h ‘求出小矩形的面积 s=s+s1 x=x+h sin(2*x)+2*x^2f0= sin(2*x)+2*x^2-3 next I print round(s,2) end subf(x)=3x^3+2x^2+x+1(其中^表示幂运算), 3、编写程序,用矩形法求一元函数 f(x)=3x^3+2x^2+x+1(其中^表示幂运算), 编写程序 在区间[1,3]上的积分近似值 位小数( n=15, 在区间[1,3]上的积分近似值 S,保留 3 位小数(小区间数 n=15,此参数不能 [1 改动)。 改动)。 要求:在运行程序时, 要求:在运行程序时,使用文本框或 InputBox 函数输入 n 值,并用适当的方法 输出运算结果。 输出运算结果。 答案: 答案: Private Sub form_Click() a# = 1 b# = 3 inputbox(“请从键盘上输入小区间数” n% = inputbox(“请从键盘上输入小区间数”) h#=(bh#=(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 sub4、编写程序,用梯形法求一元函数 f(x)=sin(2x)+3x,在区间[0,3.1416]上的 编写程序, f(x)=sin(2x)+3x,在区间[0,3.1416]上的 [0 位小数( n=10)。 积分近似值 S,保留 3 位小数(小区间数 n=10)。 要求:在运行程序时, 要求:在运行程序时,使用文本框或 InputBox 函数输入 n 值,并用适当的方法 输出运算结果。 输出运算结果。 Private Sub form_Click() a# = 0 3.1416 b# = 3.1416 inputbox(“请从键盘上输入小区间数” 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、编写一个判断素数的通用过程(函数或子程序)。调用该过程,计算并输出 编写一个判断素数的通用过程(函数或子程序)。调用该过程, )。调用该过程 区间[]内所有素数的和。 提示: 区间[]内所有素数的和。(提示:只能被 1 和自身整除的自然数称为 [1250 内所有素数的和 素数。 素数。) 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 SubRem 用户自定义的通用过程为 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 分) 本题要求填写程序的最后运行结果,请将运行结果粘贴到下面的框中。否则, 该题以零分计!本题要求填写源程序,请将你解答本题所写的源程序粘贴到下面
更多搜索:
All rights reserved Powered by
文档资料库内容来自网络,如有侵犯请联系客服。

我要回帖

更多关于 c语言编程题目 的文章

 

随机推荐