下载文档原格式
国家开放大学《VisualBasic程序设计》形考作业参考答案形考作业11.一个VB应用程序可以包含几个vbp文件( )a. 2个b. 可以没有c. 1个d. 不受限制2.有以下程序代码Text1.Text="Visual Basic程序设计",则Text1，Text ，和"Visual Basic程序设计"分别代表( )a. 对象，值，属性b. 对象，方法，属性c. 属性，对象，值d. 对象，属性，值3.启动VB后，就意味着要建立一个新的( )a. 窗体b. 程序c. 文件d. 工程4.后缀为.bas的文件表示( )a. 类模块文件b. 标准类模块文件c. 窗体二进制数据文件d. 窗体文件5.当一个工程中含有多个窗体时，其中的启动窗体是( )a. 在“工程属性”对话框中指定的窗体b. 启动VB时创建的第一个窗体c. 第一个添加的窗体d. 最后一个添加的窗体6.在文本框控件中将Text的内容全部显示为所定义的字符的属性是( )a. 需要编程来实现b. Passwordc. PasswordChard. 以上都不是7.Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是( )a. 从主程序开始执行b. 按过程顺序执行c. 按模块顺序执行d. 事件驱动8.下列四项中合法的变量名是( )a. a/bcb. 4abcc. abcd. integer9.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是( )a. 该可执行文件有病毒b. 以上原因都不对c. 缺少.frm窗体文件d. 运行的机器上无VB系统10.无论何种控件，共同具有的属性是( )a. Enabledb. ForeColorc. Textd. Caption11.以下控件具有Caption属性的分别是（）a. TextBoxb. %33.333 %Labelc. CheckBoxd. CommandButton12.关于标签控件的使用，以下叙述中正确的是：（）a. 标签中显示的文本内容是可以改变的b. 当标签控件中显示的文本内容发生变化时触发Change事件c. 可以通过程序指令改变标签控件在窗口中的位置d. 标签控件在窗口中的位置一旦设定就不能更改13.以下VB文件名中，后缀不是.bas的文件分别有（）a. 窗体二进制数据文件b. 类模块文件c. 窗体文件d. 标准类模块文件14.对表达式16/4-2^5*8/4MOD5\2计算错误的结果分别是（）a. 20b. 2c. 4d. 1415.当一个工程中含有多个窗体时，以下哪些窗体可以不是启动窗体（）a. 最后一个添加的窗体b. 在“工程属性”对话框中指定的窗体c. 第一个添加的窗体d. 启动VB时创建的第一个窗体16.如果要求图像框Image控件不要自动适应其中的图形大小，应（）a. 将控件的Stretche属性设为Trueb. 将控件的AutoSize属性设为Truec. 将控件的AutoSize属性设为Falsed. 将控件的Stretche属性设为False17.以下属于标签控件Appearance属性的属性值有：（）a. Trueb. Flatc. Falsed. 3D18.文本框控件的ScrollBar属性设置，可以有以下不同的值（）a. verticalb. Horizontalc. Noned. Both19.文本框控件的Enabled属性的作用，是用于决定其（）a. 在程序运行时是否能够可见b. 在程序运行时是否能够显示用户输出的数据c. 在程序运行时是否能够响应用户生成的事件d. 在程序运行时是否能够接收用户输入的数据20.标签控件的Alignment属性，用来设置标签文本的对齐方式，可以有以下不同的属性值（）a. 居中对齐b. 右对齐c. 低端对齐d. 左对其21.在VB程序设计中，如果仅仅需要让应用程序在窗体中显示文本信息，可以使用（Label）控件。
国开（内蒙古）00030-Visual Basic程序设计＃-任务2参考答案说明：如果课程题目是随机的，请按CTRL+F在题库中逐一搜索每一道题的答案特殊说明请仔细：课程的题目每学期都可能更换，所以请仔细核对是不是您需要的题目再下载！！！！题目1：为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）。
: Timer; Visible; Interval; Enabled参考答案：Enabled题目2：将定时器的时间间隔设置为1秒，则定时器的Interval属性值应设为（）。
: 10; 1; 100; 1000参考答案：1000题目3：与LoadForm2等效的语句是（）。
: Form2.Show; Form2.Load; Form2.Visible=True; Form2.Visible=False参考答案：Form2.Show题目4：要在窗体Form1内显示“myfrm”，使用的语句是（）。
: Form1.print"myfrm"; Form.caption="myfrm"; Form.print"myfrm"; Form1.caption="myfrm"参考答案：Form1.print"myfrm"题目5：假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应进行的操作是（）。
: 单击任一个控件; 不执行任何操作; 双击窗体的标题栏; 单击窗体上没有控件的地方参考答案：单击窗体上没有控件的地方题目6：假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VBTest”的语句为（）。
: Form1=“VBTest”; =“VBTest”。
Visual Basic程序设计作业题解形成性考核作业二一、选择题答案：B答案：D答案：D答案：B答案：b答案： A答案：B答案：C答案：A答案：D答案：C答案：B答案：D答案：C答案：A答案：B答案： C答案： B答案： D答案： B二、填空题答案：下拉式菜单弹出式菜单答案：打开（Open）保存（Save）颜色（Color）字体（Font）打印（Print）答案：文本框 .列表框答案：4． Dim 数组名（1 To 上界）答案：过程名参数1,参数2,……答案：“工程” “工程属性” “工程属性” Form1.Show答案：0答案：不会用过程名返回一个值答案：窗体模块标准模块类模块答案：移出内存无效的状态(1):( )(2）：( ) 。
（3）sin45o：( ) 。
答案：：（1）2*cos(α)*sin(α)/(2*α) （2）sqr(s*(s-a)*(s-b)*(s-c)) （3）sin(45/180)答案：1）1<=x and x<12 （2）A+B>=C or a-c<=c （3）a>0 and b>0 or a<0 and b<0答案：False答案：For …Next Do [{While│Until}] 条件式…Loop Do…Loop [{While│Until}] 条件式答案：3（因为变量a被声明为整型变量——%表示整型变量）三、阅读下列程序，写出程序的运行结果答案：编程人员只需针对某个事件编写程序代码称为可视化编程。
应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。
答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。
答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的集合。
事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。
Visual Bsdic程序设计形成性考核册作业答案二一、选择题1．按照变量的作用域可将变量划分为（B）。
A、公有、私有、系统B、全局变量、模块级变量、过程变量C、动态、常数、静态D、Public、Private、Protected2.可获得字符的ASCII码的函数是（C）。
Ａ、ValＢ、FixＣ、AscＤ、Chr3、要退出Do….Loop循环，可使用的语句的（D）语句。
A、ExitB、Exit ForC、End DoD、Exit Do4.把数值型转换为字符串型需要使用的函数是（B）。
A、ValB、StrC、AscD、Chr5.关于语句行，下列说法正确的是（B）。
Ａ．一行只能写一条语句Ｂ．一条语句可以分多行书写Ｃ．每行的首字符必须大写Ｄ．长度不能超过255个字符６．表达式6+10Mod4*2+1的值是（A）．Ａ．９Ｂ．11C．１ D.37.以下可以作为Ｖisual Basic变量名的是（B）．Ａ．SIN B.CO1 C.COS(X) D.X(-1)8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．Ａ．5ABCDEＢ.－5ABCDE C.10 D.09.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．Ａ．一个空格加一个下划字符（＿）Ｂ．一个下划字符（＿）Ｃ．直接回车Ｄ．一个空格加一个字符（－）10.Sub过程与Function过程最根本的区别是（D）．Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．Ｂ．Function过程可以有参数，Sub过程不可以．Ｃ．两种过程参数的传递方式不同．Ｄ．Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值．11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）.A..0≤X<80B.0<=X<80C.0<=x and x<80D.0<=x Orx<8012.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B)A.加号(+)B.减号(-)C.星号(*)D.感叹号(!)13.如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic 中提供的方法是(D).A.PrintB.MoveC.RefreshD.PopupMenu14.下列可以用来存储图像供其他对象使用的控件是(C).A.ToolBarB.StatursBarC.ImageListD.TreeView15.当单击工具拦上的按扭时,会触发的事件是(A).A.ButtonClickB.ChangeC.LoadD.KeyPress16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的(B)方法.A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor17.对于窗体级变量,下列说法中错误的是(C).A.所在窗体的各子程序都可以访问B.其他窗体的子程序不能访问C.所在窗体发子程序不能访问用Private定义的窗体级变量D.一定要在所在窗体的通用区内定义18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B)A.Len函数B.Mid函数C.Left函数D.Right函数19.用下面的语句所定义的数组的元素的个数是(D).DimA(-3To5)As IntegerA.6B.7C.8D.920.有如下程序段:Dim strl As String*5Strl=”Visual Basic”当该段程序被执行完时,变量strl的值为(B).A.”Visual”B.”Visua”C.”V”D.”Visual Basic”二、填空题1．菜单一般有_下拉式_和_弹出式__两种基本类型。
VisualBasic程序设计-形成性考核二（省开选修学生专用）复习题（带答案）
说明：每学期的课程题号都可能更换，请认真核对是您需要的题号后再下载！
【题号】设置文本框内容是否可编辑的属性是locked。
对
错
[认真学习课本知识，并分析作答上述题号]
参考答案是“对”。
【题号】当multiline属性设置为true时，才能为文本框添加滚动条。
对
错
[认真学习课本知识，并分析作答上述题号]
参考答案是“对”。
【题号】清除文本框显示的内容，要给文本框的text属性赋一个空字符串。
对
错
[认真学习课本知识，并分析作答上述题号]
参考答案是“对”。
【题号】行if结构在then后不能输入回车键。
对
错
[认真学习课本知识，并分析作答上述题号]
参考答案是“对”。
【题号】块if结构必须有end if语句。
对。
浙江广播电视大学《Visual Basic程序设计》课程作业（二）第３章高级编程技术——学生成绩处理1．单项选择题（1）可以通过（）来删除列表框中的选择项。
A．List属性B．Text属性C．Clear方法D．RemoveItem方法（2）ListBox中若没有任何条目选中，其ListIndex值为（）。
A．-1 B．0 C．1 D．任意（3）可通过（）属性判断ListBox列表框控件的项目总数目。
A．ListIndex B．ListText C．Listcount D．随机数（4）列表框的（）属性返回或设置列表框中各列表项的文本。
A．Selected B．List C．Text D．Caption（5）设List1为列表框控件，List1.Clear中的Clear是（）。
A．方法B．对象C．属性D．事件（6）以下（）语句将删除列表框List1中的最后一项。
A．List1.RemoveItem List1.ListCountB．List1.ClearC．List1.List(List1.ListCount-1)= ""D．List1.RemoveItem List1.ListCount-1（7）若要把"XXX"添加到列表框List1中的第三项，则可执行语句（）。
A．List1.AddItem "XXX", 3 B．List1.AddItem "XXX", 2C．List1.AddItem 3,"XXX" D．List1.AddItem 2,"XXX"（8）用户可以通过设置菜单项的（）属性值为False来使该菜单项失效。
A．Hide B．Visible C．Enabled D．Checked（9）用户可以通过设置菜单项的（）属性值为False来使该菜单项不可见。
A．Hide B．Visible C．Enabled D．Checked（10）菜单编辑器中，同层次的（）设置为相同，才可以设置索引值。
题目：要在窗体Form1内显示“新年快乐”，使用的语句是（）选项A：Form1.print "新年快乐"选项B：Form1.caption=" "选项C：Form. print "新年快乐"选项D：Form.caption="新年快乐"答案：Form1.print "新年快乐"题目：以下能判断是否到达文件尾的函数是（）选项A：DOC选项B：EOF选项C：LOF选项D：BOF答案：EOF题目：MsgBox函数的返回值的类型是（）选项A：逻辑型选项B：整型选项C：字符串选项D：日期型答案：整型题目：当Winsock控件处于关闭状态时，其State属性的值是（）选项A：1选项B：0选项C：-1选项D：2答案：0题目：要以读方式打开D盘的一个顺序文件 Stu.dat，应使用的语句是（）选项A：Open "Stu.dat" For Output As选项B：Open "D:\Stu.dat" For Input As选项C：Open "D:\Stu.dat" For Output As选项D：Open "Stu.dat" For Input As答案：Open "D:\Stu.dat" For Input As题目：图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（）。
选项A：Appearance选项B：Autosize选项C：Stretch选项D：AutoRedraw答案：Stretch题目：以下叙述中正确的是（）。
选项A：对象的Name属性的值可以为空选项B：窗体的Name属性的值是显示在窗体标题栏中的文本选项C：窗体的Name属性指定窗体的名称，用来标识一个窗体选项D：可以在运行期间改变对象的Name属性的值答案：窗体的Name属性指定窗体的名称，用来标识一个窗体题目：以下叙述中错误的是（）。
《Visual Basic程序设计》形成性考核册作业及答案《Visual Basic程序设计》形成性考核册作业及答案作业1一、选择题1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。
A、窗体设计B、代码C、属性D、工程资源管理器窗口2、窗体的load事件的触发时机是（B）。
A、用户单击窗体时B、窗体被加载时C、窗体显示之后D、窗体卸载时3、与传统的程序设计语言相比，Visual Basic 最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术4、VB6.0集成开发环境的主窗口中不包括（C）。
A、标题栏B、菜单栏C、状态栏D、工具栏5、如果对象的名称为Mytext ,而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（B）。
A、 text.MytextB、Mytext.TextC、Mytext.(Text)D、Mytext*Text6、下列可以激活属性窗口的操作是（D）。
A、用鼠标双击窗体的任何部位B、执行“工程“菜单中的”属性窗口“命令C、按Ctrl+F4D、按F47、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（A）。
A、单击窗体上没有控件的地方B、单击任一个控件C、不执行任何操作D、双击窗体的标题栏8、如果要在文本框键入字符时，只显示某个字符，如果（*），应设置文本框的（B）属性。
A 、Caption B、PasswordChar C、Text D、Char9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.A Locked B、MultiLine C、TabStop DVisible10 对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）A、IndexB、TagC、EnabledD、Left11、要在窗口体Fornl 内显示“myfrm”使用的语句是（ C）A、Form.capt ion=“myfrm”B、Fornl.caption=“myfrm”C、forml.print“myfrm”D、form.print“myfrm”12、对象的性质和状态特征称为（C）A、事件B、方法C、属性D、类13、下列正确的赋值语句是（B）A、x+y=20B、y=x+20C、3x=yD、s=14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（D）键，就可出现MSDN窗口直接显示所需的帮助信息。
判断题：（共20题每题2分）1、一个对象可以响应一个或多个事件。
参考答案：正确2、一个窗体必须对应一个窗体模块，各种控件对象必须建立在窗体上。
参考答案：正确3、窗体事件和其中所有控件事件的代码都放在窗体文件（.frm）中。
参考答案：正确4、在VB中，控件的事件只能通过用户的操作触发。
参考答案：错误5、字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
参考答案：正确6、保存工程时，窗体文件和工程文件的文件名不能相同。
正确错误参考答案：错误7、改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
正确错误参考答案：正确8、同一过程中，数组和简单变量可以同名。
正确错误参考答案：错误9、VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
正确错误参考答案：正确10、代码Const Number1=15：Number1=10合法。
参考答案：错误11、允许将块If-Then语句结构中的所有语句都写在一行上。
正确错误参考答案：错误12、定义数组语句Dim a(b) As Integer 是正确的。
正确错误参考答案：错误13、在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
正确错误参考答案：正确14、case是合法的变量命名。
正确错误参考答案：错误15、按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。
正确错误参考答案：错误16、若一个工程包含多个窗体，则这些窗体之间是可以互相调用的。
参考答案：正确17、窗体间是通过窗体对象的caption来调用的。
参考答案：错误18、一个数组中的元素必须是相同的数据类型。
参考答案：错误19、用 Label1.Caption="你好" 与 Label1 ="你好" 均可以改变标签标题，且结果完全相同。
正确错误参考答案：正确20、定时器控件的时间间隔设为0 或 Enabled属性设为False，都将停止触发Timer事件。
Visual Bsdic程序设计形成性考核册作业答案二一、选择题1．按照变量的作用域可将变量划分为（ B ）。
A、公有、私有、系统B、全局变量、模块级变量、过程变量C、动态、常数、静态D、Public、Private、Protected2. 可获得字符的ASCII码的函数是（ C ）。
Ａ、Val Ｂ、Fix Ｃ、Asc Ｄ、Chr3、要退出Do….Loop循环，可使用的语句的（ D ）语句。
A、ExitB、Exit ForC、End DoD、Exit Do4. 把数值型转换为字符串型需要使用的函数是（B ）。
A、ValB、StrC、AscD、Chr5.关于语句行，下列说法正确的是（ B ）。
Ａ．一行只能写一条语句Ｂ．一条语句可以分多行书写Ｃ．每行的首字符必须大写Ｄ．长度不能超过255个字符６．表达式6+10 Mod 4*2+1的值是（ A ）．Ａ．９Ｂ．11 C．１ D.37.以下可以作为Ｖisual Basic 变量名的是（B）．Ａ．SIN B.CO1 C.COS(X) D.X(-1)8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．Ａ．5ABCDE Ｂ.－5ABCDE C.10 D.09.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．Ａ．一个空格加一个下划字符（＿）Ｂ．一个下划字符（＿）Ｃ．直接回车Ｄ．一个空格加一个字符（－）10.Sub过程与Function过程最根本的区别是（D）．Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．Ｂ．Function过程可以有参数，Sub过程不可以．Ｃ．两种过程参数的传递方式不同．Ｄ．Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值．11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）.A..0≤X<80B.0<=X<80C.0<=x and x<80D.0<=x Orx<8012.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B )A.加号(+)B.减号(-)C.星号(*)D.感叹号(!)13.如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic 中提供的方法是(D).A.PrintB.MoveC.RefreshD.PopupMenu14.下列可以用来存储图像供其他对象使用的控件是(C ).A.ToolBarB.StatursBarC.ImageListD.TreeView15.当单击工具拦上的按扭时,会触发的事件是(A ).A.ButtonClickB.ChangeC.LoadD.KeyPress16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的(B )方法.A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor17.对于窗体级变量,下列说法中错误的是(C ).A.所在窗体的各子程序都可以访问B.其他窗体的子程序不能访问C.所在窗体发子程序不能访问用Private定义的窗体级变量D.一定要在所在窗体的通用区内定义18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B)A.Len函数B.Mid函数C.Left函数D.Right函数19.用下面的语句所定义的数组的元素的个数是(D ).DimA(-3 To 5)As IntegerA.6B.7C.8D.920.有如下程序段:Dim strl As String*5Strl=”Visual Basic”当该段程序被执行完时,变量strl的值为(B ).A.”Visual”B.”Visua”C.”V”D.”Visual Basic”二、填空题1．菜单一般有_下拉式_和_弹出式__两种基本类型。
2．通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。
3．组合框具有__文本框_和__列表框_两种控件的基本功能。
4．要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句__Option Base 1_。
5．调用Sub过程时，使用__call__语句,语句用于把程序控制传送到一个Visual Basic的Sub过程。
6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。
通过_工程_菜单__属性_命令的_通用_选项卡，可将启动窗体设置为Form2。
在程序中若要显示Form1窗体，则执行_Form1.show_语句。
7．列表框中项目的序号是从_0_开始的。
8．Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值。
9．VB的代码存储在模块中。
在VB中提供了三种类型的模块：_类模块_、_窗体模块__和_标准模块_。
10．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体__卸载_，被调用的窗体中的属性等已处于_内存中_。
11．将下列数学式子写成VisualBasic表达式。
⑴答：2*cos(a)*sin(a)/(2*a)⑵答：sqr(s*(s-a)*(s-b)*(s-c))⑶sin45°:sin(45*2*3.1415/360)_12.将下列数学式子各条件写成VisualBasic逻辑表达式。
⑴1≤x<12: 1<=x and x<12⑵A+B≥C或a-c≤c: (A+B)>=C OR (a-c)<=c⑶a和b都为正整数或同为负数: (a>=0 and b>=0) or (a<=0 and b<=0)13．设A=2，B=3，C=4，D=5。
表达式Not A<=C Or4*B^2 And B< >A+C 的值为_False_。
14．在Visual Basic语言中有三种形式的循环结构。
其中，若循环的次数可以事先确定，可使用_For…next__循环；若要求先判断循环进行的条件，可使用_Do while…loop_循环或_ while…Wend_循环。
15．以下语句的输出结果是__3_。
a%=3.14159Print a%三、阅读下列程序，写出程序运行结果。
1、Private Sub Form_Click( )Static Sum As IntegerFor I= 1 to 100Sum=Sum+INext IPrint SumEnd Sub程序运行结果为：1+2+…….+99+100=50502、private Sub Form_Click( )A=10: b=15:c=20:d=25Print A;Spc(5);b;Spc(7);cPrint A;Spc(8);b;Space$(5);cPrint c;Spc(3);”+”;Spc(3);c+dEnd Sub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、Private Sub Form_click( )For i% =1 to3Forj% = 1 to iPrint L Trim(Str(i%))+ “*”+L Trim(Str(j%))+ “=”;i% * j%;Next j%PrintNext i%End Sub1*1= 12*1= 2 2*2= 43*1= 3 3*2= 6 3*3= 94、Private Sub Command1_Click( ) Dim a,b As IntegerA=3.4B=3.4Text1.Text=aText2.Text=bEnd SubText1显示3 、4Text2显示35、Private Sub Form_Click()For I =1 to 5Print Tab( 11 – I )For J =1 To I * 2 – 1Print “*”;NextNext iEnd Sub*************************四、程序设计题1、购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价格。
程序运行结果如图解所示。
If Val(text1)>=500 then text2=Val(text1)*0.7Else if Val(text1)>=300 then text2=Val(text1)*0.85Else if Val(text1)>=200 then text2=val(text1)*0.9Else if val(text1)>=100 then text2=val(text1)*0.95End if2、输出100~200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行结果如图5所示。
窗体的装入事件中加入如下代码：Dim a as integerA=100Do while a <=200If (a mod 3)<> 0 thenList1.additen str(a)End ifA=a+1loop3、编写程序，打印如下的乘积表：Dim I ,j as integerPrint”*”:space(5):For i=3 to 12 step 3Print str(i);space(5);Next iPrintFor I = 15 to18Print str(i);space(3);For j=3 to 12 step3Print str(i*j);space(4);Next jPrintNext j4、设计一个计算程序。
该程序用户界面如图7所示。
要求程序运行后，用户选中单击选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。
如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。
按结束，则退出。
乘法单选按钮的单击事件中添加如下代码：Text1=10*2除法单选按钮中添加如下代码：Text1=10/2加法单选按钮中添加如下代码：Text1=10+2减法单选按钮中添加如下代码：text1=10-2结束按钮中代码: end 或unload me5、编写输入一个0~6数字，显示汉字对照输出星期的Function过程。
