VB程序设计练习题(二）
文章目录
文章目录
前言
内容
一、编写程序，点击相应的按钮在图片框中输出相对应的图形。
二、界面如图所示。编写程序实现图片框输出图形
三、界面如图所示。编写程序实现图片框输出图形
四、界面如图所示。编写程序实现图片框输出图形
五、（多项选择和多项删除）
六、有一个5*5的矩阵，各元素都是随机产生的两位整数，找出最大值、最小值以及它们的下标并求出平均值。如下图所示输出。
七、计算：n+nn+nnn+nnn......
八、单击窗体，生成0~10之间的随机整数矩阵，分别放在两个图画框内，求两个矩阵之和放入第三个图画框内。
九、编写一个程序，用随机函数产生4行5列的两位整数并输出。然后分别实现第1行和第三行数据交换和第2行和第4行交换，输出交换前和交换后的结果。（利用图片框）
十、在文本框输入大于10的偶数，找出最接近这个数的素数，输出在窗体上
前言
备考技能考时的一些练习题
题目难度较大
答案都是小编自己打出来的，也需会有错。
内容
一、编写程序，点击相应的按钮在图片框中输出相对应的图形。
答案：
Private Sub Command1_Click()
Dim i As Integer
P1.Cls
For i = 1 To 6
P1.Print Space(10 - i); String(6, "*"); Space(2 * i - 2); String(6, "*")
Next
End Sub
Private Sub Command2_Click()
P1.Cls
For i = 1 To 6
P1.Print Space(10 - i); String(6, CStr(Chr(64 + i))); Space(2 * i - 2); String(6, CStr(Chr(64 + i)))
Next ‘转换为字符串就可以用string输出了。
End Sub
二、界面如图所示。编写程序实现图片框输出图形
答案：
Private Sub Command1_Click()
Dim i As Integer
P1.Cls
P1.Print
s = 0
b = 1
For i = 1 To 5
If i = 2 Then
s = s + 1
End If
If i >= 3 Then
b = b + 2
End If
P1.Print Space(7 - i); "*"; Space(b); String(s, "*")
Next
For i = 1 To 3
P1.Print Space(i + 2); "*"; Space(b - 2); String(1, "*")
b = b - 2
Next
P1.Print Space(6); "*"
End Sub
Private Sub Command2_Click()
P1.Cls
Dim i As Integer
P1.Print
s = 0
b = 1
For i = 1 To 5
If i = 2 Then
s = s + 1
End If
If i >= 3 Then
b = b + 2
End If
P1.Print Space(7 - i); String(1, CStr(Chr(64 + i))); Space(b); String(s, CStr(Chr(64 + i)))
Next
For i = 1 To 3
P1.Print Space(i + 2); String(1, CStr(Chr(69 - i))); Space(b - 2); String(1, CStr(Chr(69 - i)))
b = b - 2
Next
P1.Print Space(6); "A"
End Sub
三、界面如图所示。编写程序实现图片框输出图形
答案：
Private Sub Command1_Click()
Dim i, j As Integer
P1.Cls ‘清除图片框内容
s = 0
For i = 1 To 6 ‘定义6行
P1.Print Space(24 - (i * 3)); ‘定义前面的空格数
s = I ‘定义变量s，用于输出靠后的降序数；
For j = 1 To 2 * i – 1 ‘定义每行的个数
If j <= i Then ‘当小于等于改行的i时，
P1.Print j; ‘就升序输出1到i
Else
s = s – 1 ‘否则，就s=s-1，s就会每一次循环就减一
P1.Print s; ‘就能降序输出到1了
End If
Next
s = 0 ‘s记得到最后要重置为0
P1.Print
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim j As Integer
P1.Cls
For i = 1 To 6
P1.Print Space(24 - i * 3);
s = s + i
For j = 1 To 2 * i - 1
If j <= i Then
P1.Print Chr(64 + j) & " ";
Else
s = s - 1
P1.Print Chr(s) & " ";
End If
Next
s = 64
P1.Print
Next
End Sub
四、界面如图所示。编写程序实现图片框输出图形
答案：
Private Sub Command1_Click()
Dim i, j As Integer
P1.Cls
For i = 1 To 6
For j = i To 1 Step -1
P1.Print j;
Next
P1.Print
Next
End Sub
Private Sub Command2_Click()
Dim i, j As Integer
P1.Cls
For i = 6 To 1 Step -1
P1.Print Space(18 - i * 3);
For j = 1 To i
P1.Print j;
Next
P1.Print
Next
End Sub
Private Sub Command3_Click()
Dim i, j As Integer
P1.Cls
For i = 6 To 1 Step -1
P1.Print Space(3 * (i - 1));
For j = i To 6
P1.Print j;
Next
P1.Print
Next
End Sub
Private Sub Command4_Click()
Dim i, j As Integer
P1.Cls
For i = 6 To 1 Step -1
For j = i To 1 Step -1
P1.Print j;
Next
P1.Print
Next
End Sub
五、（多项选择和多项删除）
答案：（首先把列表框的sorted的属性改为true）按字母排列
答案：
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = (List1.ListCount - 1) To 0 Step -1 ‘从后往前就不会改变索引值了。
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
List1.RemoveItem i
End If
Next
End Sub
Private Sub Command2_Click()
For i = (List1.ListCount - 1) To 0 Step -1 ‘先把所有的添加进list1中
List2.AddItem List1.List(i)
Next
For i = (List1.ListCount - 1) To 0 Step -1 ‘再删除所有
List1.RemoveItem i
Next
End Sub
Private Sub Command3_Click()
Dim i As Integer
s = 0
For i = (List2.ListCount - 1) To 0 Step -1
If List2.Selected(i) = True Then
List1.AddItem List2.List(i)
List2.RemoveItem i
End If
Next
End Sub
答案（2）
答案：
Private Sub Command5_Click()
For i = 0 To List1.ListCount – 1 ‘首先定义i循环从0到list1的最后一项的索引值。
If List1.Selected(i) = True Then ‘如果被选择就添加。（跟常规一样）
List2.AddItem List1.List(i)
End If
Next
For i = (List1.ListCount - 1) To 0 Step -1 ‘从最后一项的索引值到第一项的索引值，从后
If List1.Selected(i) = True Then ‘往前，这样就不会导致前面被删除导致索引值
List1.RemoveItem I ‘改变。这样就可以删除了。
End If
Next
End Sub
六、有一个5*5的矩阵，各元素都是随机产生的两位整数，找出最大值、最小值以及它们的下标并求出平均值。如下图所示输出。
答案：
Dim a(1 To 5, 1 To 5)
Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * (99 - 10 + 1) + 10)
P1.Print CStr(a(i, j)) & " ";
Next
P1.Print
Next
End Sub
Private Sub Command2_Click()
Dim i, j, s As Integer
s = 0
Min = a(1, 1)
For i = 1 To 5
For j = 1 To 5
If a(i, j) > Max Then
Max = a(i, j)
End If
If a(i, j) < Min Then
Min = a(i, j)
End If
s = s + a(i, j)
Next
Next
For i = 1 To 5
For j = 1 To 5
If a(i, j) = Max Then
P2.Print "MAX=" & Max
P2.Print " 行 " & i & " " & "列 " & j
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
If a(i, j) = Min Then
P2.Print "MIN=" & Min
P2.Print " 行 " & i & " " & "列 " & j
End If
Next
Next
P2.Print "平均值= " & (Int((s / 25) * 10)) / 10
End Sub
七、计算：n+nn+nnn+nnn......
例：输入a=1，n=5，输出1+11+111+1111+11111=12345
答案：
Private Sub Command1_Click()
Dim s As Single
Dim b As String
Dim i, j As Integer
Sum = 0
a = Val(Text1.Text)
n = Val(Text2.Text)
For i = 1 To n
For j = 1 To i
b = b & CStr(a)
Next
c = c & b & "+"
Sum = Sum + Val(b)
If i = n Then
Print Left(c, Len(c) - 1) & "=" & CStr(Sum)
End If
b = ""
Next
End Sub
八、单击窗体，生成0~10之间的随机整数矩阵，分别放在两个图画框内，求两个矩阵之和放入第三个图画框内。
答案：
Dim a(1 To 5, 1 To 4)
Dim b(1 To 5, 1 To 4)
Dim c(1 To 5, 1 To 4)
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
P3.Print c(i, j);
Next
P3.Print
Next
End Sub
Private Sub Form_Click()
Dim i, j As Integer
Randomize
For i = 1 To 5
For j = 1 To 4
a(i, j) = Int(Rnd * (10 - 0 + 1) + 0)
P1.Print a(i, j);
Next
P1.Print
Next
For n = 1 To 5
For m = 1 To 4
b(n, m) = Int(Rnd * (10 - 0 + 1) + 0)
P2.Print b(n, m);
Next
P2.Print
Next
End Sub
九、编写一个程序，用随机函数产生4行5列的两位整数并输出。然后分别实现第1行和第三行数据交换和第2行和第4行交换，输出交换前和交换后的结果。（利用图片框）
答案：
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To 5
If i = 1 Then
t(j) = a(i, j)
a(i, j) = a(3, j)
End If
If i = 3 Then
a(i, j) = t(j)
End If
If i = 2 Then
m(j) = a(i, j)
a(i, j) = a(4, j)
End If
If i = 4 Then
a(i, j) = m(j)
End If
Next
Next
For i = 1 To 4
For j = 1 To 5
P2.Print a(i, j);
Next
P2.Print
Next
End Sub
Private Sub Form_Load()
Dim i, j As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * (99 - 10 + 1) + 10)
P1.Print a(i, j);
Next
P1.Print
Next
End Sub
十、在文本框输入大于10的偶数，找出最接近这个数的素数，输出在窗体上
答案：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
min = 10
b = 0
a = Val(Text1.Text)
If a > 10 And a Mod 2 = 0 Then
For i = 2 To Val(a + 10)
f = 0
For j = 2 To i - 1
If i Mod j = 0 Then
f = 1
Exit For
Else
f = 0
End If
Next
If f = 0 Then
If Abs(a - i) < min Then
min = Abs(a - i)
b = i
End I
End If
Next
Print b
Else
MsgBox "请输入大于10的偶数"
End If
End Sub
总结：这些题难度比较大，考试出的难度大概率比这个小。多练习多做题考试没问题。
VB程序设计练习题(二）相关推荐
- vb编写一个计算机配置选择程序,2016计算机二级《VB程序设计》练习题及答案
2016计算机二级<VB程序设计>练习题及答案 一.选择题 1.以下能够触发文本框Change事件的操作是(C) A.文本框失去焦点 B.文本框获得焦点 C.设置文本框的焦点 D.改变文本 ...
- 判断二整数互质 c语言,C语言程序设计练习题
<C语言程序设计练习题>由会员分享,可在线阅读,更多相关<C语言程序设计练习题(55页珍藏版)>请在人人文库网上搜索. 1.C语言练习题(所提供的源程序均采用自定义函数方式解决 ...
- 省二计算机二级vb程序设计题,江苏省计算机二级考试VB程序设计复习题(分类汇总)...
<VB程序设计>综合复习资料 一.填空题:(第一章 Visual Basic程序设计概述) 1.Visual Basic是一种面向_对象_的可视化程序设计语言,采取了__事件驱动__的编程 ...
- 设计计算机程序时 要考虑计算的过程,算法和程序设计练习题复习课程（6页）-原创力文档...
算法和程序设计练习题 一.选择题: 1.使用计算机解题的步骤,以下描述正确的是:＿＿ B＿＿. A ．正确理解题意→设计正确算法→寻找解题方法→编写程序→调试运行 B ．正确理解题意→寻找解题方法→设 ...
- 2017年9月计算机二级c语言,2017年9月计算机二级C语言程序设计练习题
2017年9月计算机二级C语言程序设计练习题 2017年计算机二级考试即将在九月份进行,你准备好了吗?下面是小编为大家带来的计算机二级C语言程序设计练习题,欢迎阅读. 练习题一: 阅读程序题 1.in ...
- c语言程序编写字体,c语言程序设计练习题
c语言程序设计练习题 篇一:c语言程序设计基础单元总结与练习题及答案 <C语言程序设计>单元总结与练习题 答 案 单元一 程序设计宏观认识 单元总结提升 本单元中,核心内容有C语言程序框架 ...
- 教资初级中学计算机真题,初中信息技术教资面试真题：VB程序设计语言的操作环境...
初中信息技术教师资格面试的题型和其他学科有些许区别,对专业知识的把控比较严格.学霸君准备了初中信息技术教师资格面试真题:VB程序设计语言的操作环境,希望考生在学习中成长.进步. 此题目为2019下半年 ...
- 设计计算机程序时 要考虑计算的过程,算法和程序设计练习题
<算法和程序设计练习题>由会员分享,可在线阅读,更多相关<算法和程序设计练习题(10页珍藏版)>请在技术文库上搜索. 1.算法和程序设计练习题一.选择题:1.使用计算机解题的步 ...
- 计算机二级vb应用,计算机二级VB考试练习题及答案
计算机二级VB考试练习题及答案 为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是小编搜索整理的计算机二级VB考试练习题及答案,供参考练习,预祝考生们考出自己理想的成绩! 计算机二级V ...
最新文章
- python获取用户输入中文_python中的用户输入
- 详细解析LTE调度算法
- DataParallel 笔记
- Mybatis:传输多个参数
- NAVICAT连接oracle数据库的时候出现ora-01033
- LIVE555再学习 -- testRTSPClient 源码分析
- RequireJS 主要函数
- CISCO路由器/交换机的配置文件备份及还原
- 转正后的感悟(对正在实习的朋友的建议吧)
- 前端特效（css3）
- LaTeX参考文献取消doi输出
- SharePoint - CAML
- 《量子信息与量子计算简明教程》第一章·基本概念(上)
- 太牛了！某大佬程序猿北漂16年，从睡天桥到身价数千万，衣锦还乡重庆住豪宅！...
- idea 如何将本地新建项目上传到gitlab
- 改造Android手机为,便携式linux服务器,跑tomcat
- LeetCode：974. Subarray Sums Divisible by K - Python
- 我，94年山西人，矿山地质专业，自学Python当程序员，
- linux 时间戳转换/dmesg 时间转换
- 如何在Windows上安装Ghost