'2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 (1)先写出自定义Sub过程rmove()的程序代码
' (2)然后完成Command1_Click(),Command3_Click(),Command4_Click()过程代码。 ' (3)最后完善Command2_Click()过程代码 ' !!!! 注意:
' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码,均不得删除,否则无分。
第3题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
' 编写程序,随机生成一个4行5列由两位整数组成的数组,并找出其中所有的谷点元素。 ' 所谓谷点元素是指在本行内为最小,在本列内也为最小的元素。 ' 窗体设计界面参见已给出的参考界面。
'【编程要求】
' 1)按“生成数组”按钮(Command1),生成随机数组并'显示到图片框(Picture1)中,
' 按“查找谷点”按钮(Command2),则找出谷点元素, ' 并按图示的格式显示到多行文本框(Text1)中, ' 按“清除”按钮Command3,清除图片框与文本框。 ' 2) 程序中应定义一个名为cp的Sub过程,用于查找数组某行是否有谷点元素。
' (算法提示:先求出某行最小元素,再判断该元素是'否在该列也为最小,
' 若是,则为谷点数,否则,谷点不存在。) '【代码书写要求】
'1)文本框、命令按钮的名称必须使用系统默认的名称,如Text1,Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间
' (1)先写出自定义Sub过程cp的程序代码以及Command1,Command3的代码 ' (2)最后完善Command2_Click()事件过程代码。 ' !!!! 注意:
' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码, ' 均不得删除,否则无分。
第4题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
'编写求前n项级数和的程序。求和公式参见已给出的参考图所示。
' 1)在文本框Text1中输入x值1,文本框Text2中输入n值5,
' 按“计算”按钮(Command1),则开始计算并在列表框List1中显示S1,S2,…,Sn;
' 按“清除”按钮(Command2),则将两个文本框及列表框清空,焦点置于Text1上; ' 按“退出”按钮(Command3),结束程序运行;
' 2)程序中应定义一个名为fact的函数过程,用于计算阶乘值。 '【代码书写要求】
' 1)列表框、文本框、命令按钮的名称必须使用系统默认的名称, ' 如List1,Text1,Command1等,否则扣分。 ' 2)窗体设计界面参见已给出的参考界面。
' 3)请在“****Program*****”与“****End*****”之间添加程序代码 ' 请在指定区间 1)先写出自定义函数fact及Command2,Command3的程序代码 ' 2)然后完善Command1_Click()过程代码。 ' !!!! 注意:
' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码, ' 均不得删除,否则无分。
第5题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
'编写程序,以给定的方式标记出方阵中每一行最小元素'的位置。
'如果某一行有多个数值相等的最小元素,也要同时标记'出来。
'标记方式为每一行的最小元素为 0,其他元素为 1。 '窗体设计界面参见已给出的参考界面。
’【编程要求】
'1)在文本框Text1中输入 N 值(要求输入5),
' 按“执行”按钮,则随机生成一个 N 行 N 列的由两位正整数组成的 N 阶方阵, ' 并输出到多行文本框Text2 中,同时求出每一行的最小元素并生成标记矩阵 ' 输出到多行文本框Text3 中;
' 按“清除”按钮,则将3个文本框清空,将焦点置于文本框Text1上; ' 按“退出” 按钮,结束程序运行;
'2)程序中应定义一个求数组某一行的最小元素值的通用Sub过程minx()。 '3)原始方阵数据由随机函数生成(注意:不要使用randomize语句) '【代码书写要求】
'1)文本框、命令按钮的名称必须使用系统默认的名称,如Text1,Text2,Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码
'3)请在指定区间 (1)先写出自定义Sub过程minx()的程序代码以及Command2_Click()、 ' Commnad3_Click()的代码
' (2)最后完善Command1_Click()过程代码。 ' !!!! 注意:
' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码,均不得删除, ' 否则无分。
第6题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
'从键盘上输入6名同学的成绩,分别为:87,72,56,89,92,66。将这些成绩 '显示在文本框Text1中(由Command1_Click()事件过程完成)。 '然后按降序对这6个成绩进行排序,并将结果显示在文本框Text2中
'(由Command2_Click()事件过程完成)。窗体设计界面参见已给出的参考界面。
'【代码书写要求】
'1)文本框、命令按钮的名称必须使用系统默认的名称,如Text1,Text2,Command1等 '2)用inputbox函数输入成绩。原始成绩必须为上面给出的数据,否则扣分。 '3)请在“****Program*****”与“****End*****”之间添加程序代码
第7题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
' 编写程序,找出随机生成的30个无重复数的三位整数中的降序数。 ' 所谓降序数是指百位数大于十位数、且十位数大于个位数。 ' 窗体设计界面参见已给出的参考界面。
'【编程要求】
' 1)单击“执行”按钮(Command1),随机生产30个无重复数的三位整数,
' 按10个数一行的格式显示在多行文本框Text1中,再找出其中的降序数输出到列表框List1; ' 要求程序代码中不得使用Randomize语句,否则扣分。
' 如果数据中无降序数存在,则使用msgbox输出“无降序数”信息, ' 按“清除”按钮(Command2),将文本框及列表框清空。
' 2)程序中应定义一个名为jx的函数过程,用于判断一个整数是否为降序。 '【代码书写要求】
'1)文本框、命令按钮的名称必须使用系统默认的名称,如Text1,Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间
' (1)先写出自定义函数过程jx的程序代码以及Command2的代码 ' (2)最后完善Command1_Click()事件过程代码。 ' !!!! 注意:
' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码, ' 均不得删除,否则无分。
第8题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
' 编写程序,找出100以内的所有素数,存放在数组P中, ' 并将所找到的素数,按每行10个的形式显示在文本框'Text1中。
' 窗体设计界面参见已给出的参考界面。
'【编程要求】
'1)按“找素数”按钮(Command1),则查找素数,并按格式要求显示在多行文本框Text1中。
'2)程序中应定义一个通用函数过程Prime(),以判断一个数是否为素数。 '【代码书写要求】
'1)文本框、命令按钮的名称必须使用系统默认的名称,如Text1,Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 (1)先写出自定义函数过程Prime()的程序代码
' (2)然后完善Command1_Click()过程代码 ' !!!! 注意:
' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码, ' 均不得删除,否则无分。
第9题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】
' 1) 编写程序,本程序的功能是:首先按给定格式(数据以逗号分隔,-1表示数据结束) ' 将输入到文本框Text1中的数据(12,22,15,25,17,22,19,11,-1)依次存入一个数组p, ' 然后为该组数据建立一个按从大到小次序排列的索引表并显示在文本框Text2中。 ' 文本框Text2中的第一个数据4表示文本框1中第4个数最大; ' 文本框2中的最后一个数据8表示文本框1中第8个数最小。 ' 2) 窗体设计界面参见已给出的参考界面。
'【编程要求】
' 1)在文本框Text1中输入测试数据,按“处理”按钮(Command1), ' 则按题目要求得到结果并显示在文本框Text2中;
' 按“清除”按钮(Command2),则将2个文本框清空,将焦点置于文本框Text1上; ' 按“退出”按钮(Commnad3),结束程序运行。
' 2)程序中应定义一个通用Sub过程lnum,用于把Text1中的原始数据放入数组p中。 ' 3) 程序中应定义一个根据数组元素的大小从大到小取其排列号的通用Sub过程Ind。 '【代码书写要求】
'1)文本框、命令按钮的名称必须使用系统默认的名称,如Text1,Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间
' (1)先写出自定义Sub过程lnum()和Ind()的程序代码以及Command2、Command3的代码 ' (2)最后完善Command1_Click()事件过程代码。 ' !!!! 注意:
' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码, ' 均不得删除,否则无分。
第10题
'--------------------------------- '【程序设计】
'--------------------------------- '【题目要求】