2022年vb程序填空课堂练习题.docx
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《2022年vb程序填空课堂练习题.docx》由会员分享,可在线阅读,更多相关《2022年vb程序填空课堂练习题.docx(16页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源程序填空课堂练习题在 SPACE 语句的下一行完成程序填空,第一将【?】删除;然后填入正确答案;答题终止后,必需在程序环境中做好储存、1.由输入对话框输入 n(n 必需为大于零且小于 30 的自然数),运算以下表达式的值,并在 标签框 lable1 上显示; Sum=1/2+1/6+ +1/k*k+1 k=n 请在【】处填入正确的内容Private Sub Form_Click Dim n As Integer, sum As Double, k As Integer N= ValInput
2、Box “n=” ,” 请重新输入 ” Loop Sum=0 K=0 Do *SPACE* K= 【.】Sum= sum+1/k*k+1 *SPACE* Loop Until 【?】Labell.Caption= “ sum= + Strsum End Sub 2.由 12 个文本框代表12 个位置;程序为A-J 10 个字母安排十个位置,并显示座位安排;在【】处填入正确内容Private Sub Form_Load Dim k, h, p As Integer Dim t12 As Sring Randomize *SPACE* For k = 1 To 【?】tk = ” Emty”Nex
3、t k *SPACE* For【?】 = 65 To 74 Do While True P = Int1+12*Rnd *SPCA* If tp=【?】Then Tp= Chrh Exit Do 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页,共 8 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源3.以下程序用于判定一个正整数(3)是否为素数; Private Sub Form_Click n = InputBox 请输入一个正整数(3) k =
4、 IntSqrn i = 2 swit = 0 *SPACE* Do While i = k And 【.】*SPACE* If 【.】 Then swit = 1 Else *SPACE* 【.】End If Loop If swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub 【程序填空】- 4.题目:从键盘上输入一串字符,以.终止,统计输入字符中的 大、小写字母和数字的个数;- Private Sub Form_Click Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch
5、= InputBox 请输入一个字符 *SPACE* Do While 【.】Select Case ch Case a To z n1 = n1 + 1 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页,共 8 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师整理 优秀资源*SPACE* Case 【.】n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Select ch = InputBox 请输入一个字符 *SPACE* 【.】
6、Print n1, n2, n3 End Sub 5. Option Explicit - 【程序填空】- 题目:写出程序运行时单击窗体后,Form1 上的输出结果 n=1 z=4 n=2 z=7 n=3 z=10 6.请在【 .】处填入正确的内容- Private Sub Form_Click Dim a As Integer, b As Integer, z As Integer *SPACE* Dim 【.】 As Integer a = 1 *SPACE* b = 【.】*SPACE* For n = 【.】To 3 z = chga, b Form1.Print n=; n, z=;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022 vb 程序 填空 课堂 练习题
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内