vb实验作业参考答案

VBVB 实验作业参考答案实验作业参考答案 作业一窗体设计 2 作业二计算器 4 作业三人民币张数 求电阻值 6 作业四 必做 建康城 8 作业五阶乘累加 9 作业六 必做 九九乘法表 11 作业七 必做 INPUTBOX 函数输入 12 个整数 赋值给 3 4 的二维数组 12 作业八递归函数计算两个正整数的最大公约数 递归公式为 13 作业九 必做 家电提货单 15 作业十统计某个文本文件中各英文字母出现的次数 不区分大小写 并将结果打印到窗体上 17 作业十一设计一个程序 用于打开 1 个 windows 应用程序 如打开 记事本 画图 计算器 等 19 作业十二通过菜单选择 对字体 字号进行设置 20 作业一作业一 1 简答题 略 2 编程题 1 单击窗体后在窗体上显示 您好 同学 要求 1 程序中用自己的姓名替代 2 文字以红色 仿宋体 加粗 三号 字显示 并在字下加横线 3 建立一个命令按钮 结束时单击此按钮退出 答案参照课本 P27 的例 1 6 2 设计一窗体 窗体上有 1 个文本框 Text1 1 个命令按钮 Command1 运行时文本 框中显示 Visual Basic 程序设计 命令按钮标题为 结束 文本框及命令按钮能随窗体大 小的调整而自动调整大小及位置 其中调整文本框使其 Left 0 Top 0 宽度和高度都为 窗体的一半 命令按钮 始终位于窗体右下角位置 请编写 1 用代码初始化各控件 提示 可写在 Form Load 事件中 2 文本框控件随窗体的大小而调整大小的代码 以及调整命令按钮位置始终位于窗体右 下角的代码 提示 调整大小位置的代码写在 Form Resize 事件中 3 结束程序运行的代码 命令按钮 程序代码 Private Sub Form Load Text1 Left 0 Text1 Top 0 Text1 Width Form1 Width 2 Text1 Height Form1 Height 2 Command1 Left Form1 ScaleWidth Command1 Width Command1 Top Form1 ScaleHeight Command1 Height End Sub Private Sub Form Resize Call Form Load End Sub Private Sub Command1 Click End End Sub 作业二作业二 1 填空题 1 Visual Basic 算术表达式 a b b c d e Sqr 2 a b 对应的数学表达式 ab e d c b b a 2 2 产生一个 10 99 之间的随机整数的表达式 int rnd 90 10 3 整形变量 X 中存放了一个两位数 要将两位数交换位置 例如 73 变成 37 实现的 表达式是 x mod 10 10 x 10 4 算术表达式 Fix 3 95 int 3 02 Cint 3 5 25 mod 10 3 的值是 10 5 表达式 Ucase Mid abcdefgh 3 4 的值是 CDEF 2 使用立即窗口显示下列表达式的值 设x 5 y 15 z 3 并分析所输出的结果 1 Len x 1 下面程序执行的结果是 A 2 B 3 C 2 Private Sub Form Click a 1 b 2 c 3 a b b c c a Print a a b b c c End Sub 2 下面程序执行的结果是 5 Private Sub Form Click a 123 b 456 c Val a Val b Print c 100 End Sub 3 下面程序执行的结果是 BABCBACBC Private Sub Form Click x a y b z c x y y x End Sub 5 当程序运行后 在文本框 Text1 中输入 1234 窗体上的输出结果是 1 12 123 1234 Private Sub Text1 Change Print Text1 End Sub 2 编程题 1 编写程序 输入一个职工的工资 打印输出发给该职工的人民币张数最少的方案 程序代码 Public Sub Form click Dim hundred As Integer 100 元票面数量 Dim fifty As Integer 50 元票面数量 Dim Twenty As Integer 20 元票面数量 Dim ten As Integer 10 元票面数量 Dim five As Integer 5 元票面数量 Dim two As Integer 2 元票面数量 Dim one As Integer 1 元票面数量 Dim total As Integer 总计最小钞票数量 Dim X As Integer 职工工资 Dim tmp As Integer X Val InputBox 输入职工工资 X 输入框 hundred X 100 求 100 元票面数量 tmp X Mod 100 求剩余金额 fifty tmp 50 tmp tmp Mod 50 Twenty tmp 20 tmp tmp Mod 20 ten tmp 10 tmp tmp Mod 10 five tmp 5 tmp tmp Mod 5 two tmp 2 one tmp Mod 2 total hundred fifty Twenty ten five two one Form1 Print 100 元票 f 2 下面的程序是在一个字符串变量中找 at 并用消息框给出查找结果的报告 没有找到 或找到的个数 程序如下 Private Sub Form Click Dim str1 As String 在字符串 str1 中查找 at Dim length As Integer 字符串长度 Dim sum As Integer 查到的个数 Dim i As Integer str1 InputBox 请输入一个字符串 length Len str1 i 1 sum 0 do while i0 000001 Print sum End Sub 作业六 必做 作业六 必做 编程序 按下图形式打印输出九九乘法表 要求在窗体上输出既可 程序代码 程序代码 Private Sub Command1 Click Dim i j a For i 1 To 9 For j 1 To i a CStr j Next j Print Next i End Sub 作业七 必做 编程题 编一程序 用 InputBox 函数输入 12 个整数 赋值给 3 4 的二维数组 求出其中最大元素及它的行 列坐标 并将数组按行 矩阵形式 输出到窗体 最大元素及行 列下标输出在数组的下方 程序代码 程序代码 Private Sub Form Click Dim a 1 To 3 1 To 4 As Integer i j max imax jmax For i 1 To 3 For j 1 To 4 a i j Val InputBox Input a data Next j Next i For i 1 To 3 For j 1 To 4 Print a i j Next j Print Next i max a 1 1 imax 1 jmax 1 For i 1 To 3 For j 1 To 4 If max dem End Sub Private Function convert s As String As Long Dim n i subc As String 1 p s End Sub Public Function number n as integer As Single Dim i As Integer number 0 For i 1 To n number 10 number 7 Next i End Function 2 编程题 1 编写递归函数计算两个正整数的最大公约数 递归公式为 0 0 nm Mod n gcd m n gcd n m Mod nm Mod n 程序代码 Function gcd m n If m Mod n 0 Then gcd n Else gcd gcd n m Mod n End Function Private Sub Form Click Print gcd 36 81 End Sub 2 设计一个删除子串的函数过程Delstr s1 s2 其功能是将字符串s1中出现的s2子字符串删 去 程序运行效果如下图所示 程序代码 程序代码 Private Sub Command1 Click Dim T1 As String Dim T2 As String T1 Text1 Text T2 Text2 Text MsgBox DelStr T1 T2 End Sub Private Function DelStr S1 As String S2 As String 这个就是 delstr 函数 Dim Sa As String Dim Sb As String Dim i As Long Sa S1 Sb S2 Do DoEvents i InStr Sa Sb If i 0 Then Sa Left Sa i 1 Right Sa Len Sa Len Sb i 1 Else Exit Do End If Loop DelStr Sa End Function Private Sub Form Click Dim a As String b As String a dsklg 67mweeankjg mwekat b mwe Print a 字符串是 a Print b 字符串是 b a Replace a b Print 得到的 a 字符串是 a End Sub 作业九 必做 编程题 设计一个家电提货单管理程序 程序运行界面如下图所示 具体要求 1 根据选项中选择的家电及数量 单击 确定 后 将选择的清单及总价在列 表框中列出 2 每选择一种家电 光标 自动定位在相应的文本框中 取消选择时 相应 的文本框自动清空 3 清除 按钮用于清空列表框中的项目 4 所有文本框只接受数字 程序代码 Private Sub Command1 Click Dim i As Integer Dim sum As Long n Dim title As String price As Integer sum 0 For i 0 To 4 Select Case i Case 0 title 电视机 price 3580 Case 1 title 微波炉 price 660 Case 2 title 电冰箱 price 1850 Case 3 title DVD price 2880 Case 4 title 分体空调 price 5500 End Select If Check1 i Value 1 And Text1 i Text Then List1 AddItem title Text1 i Text 台 sum sum Val Text1 i price n n Val Text1 i End If Next i If sum 0 Then List1 AddItem 共 n 台 合计金额 sum 元 End If End Sub Private Sub Command2 Click List1 Clear Text1 Index Check1 Index Value 0 End Sub Private Sub Text1 KeyPress Index As Integer KeyAscii As Integer If Chr KeyAscii 9 Or Chr KeyAscii a And LCase strIn z Then Count Count 1 识别字母 并统计 Loop Close 1 Print Count End Sub Private Sub cmdOpen Click txtFile Text CmmDlog DialogTitle 打开文件 CmmDlog Filter 文本文件 txt txt CmmDlog Action 1 txtFile CmmDlog FileName End Sub 作业十一作业十一 1 判断题 1 在设计时可以改变通用对话框的大小 2 在 打开 对话框内过滤文件类型的属性是古 Filter 属性 3 在使用 字体 对话框之前必须设置 Flag 属性 4 在一个窗体的程序代码中不可以访问另一个窗体上控件的属性 2 选择题 1 要使窗体在运行时不可改变大小且没有最大化和最小化按钮 要对窗体的 D 属性 进行设置 A MaxButton B Width C MinButton D BorderStyle 2 以下叙述中错误的是 B A 一个工程可以包括多个窗体文件 B 在一个窗体文件中用 Private 定义的通用过程能被其他窗体调用 C 在设计 Visua lBasic 程序时 窗体 标准模块及类模块等需要分别保存为不同类型的磁 盘文件 D 全局变量可以在标准模块中定义 也可以在窗体模块的通用声明段中定义 3 在下列关于通用对话框的叙述中 错误的是 C A CommonDialogl ShowFont 显示字体对话框 B 在打开或另存为对话框中 用户选择的文件名可以经 FileTitle 属性返回 C 在打开或另存为对话框中 用户选择的文件名及其路径可以经 FileTitle 属 性返回 D 通过对话框可以用来制作和显示帮助对话框 4 要退出 Form2 窗体 应使用 D 语句 A Form2 Unload B Hide Form2 C Unload Form2 D Unload Form2 编程题 设计一个程序 用于打开 1 个 windows 应用程序 如打开 记事本 画图 计算器 等 程序代码 Private Sub Command1 Click CommonDialog1 Action 1 调用打开对话框 Call Shell CommonDialog1 FileName 执行所选择的文件 End Sub Private Sub Command2 Click End End Sub 作业十二作业十二 1 判断题 1 每个菜单都必须有 Name 属性 2 显示弹出菜单的方法是 PopupMenu 2 选择题 1 用菜