77范文网 - 专业文章范例文档资料分享平台

VB练习题(上机)含答案(3)

来源:网络收集 时间:2019-01-10 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:或QQ: 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer() Text1 = Val(Text1) + 1 End Sub

'在属性窗口设置定时器的interval属性值为1000 6 以下程序运行界面如下图所示。其功能如下:

1) 单击\读数据\按钮(Command1),可将随机产生100个三位正整数存到数组a中; 2) 单击\计算\按钮(Command2),则根据从组合框Combo1中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。

题目提供的程序代码不完整,请设计下图界面并录入代码,将程序中的 ? 改为正确的内容。注意:不能修改程序的其他部分。

x = x + a(i): j = j + 1

Else

y = y + a(i) ?

End If Next k

题目提供的程序代码: x = Int(x / j + 0.5):y = Int(y / k + Dim a(100) As Integer 0.5) Private Sub Command1 Click() z = Int((x + y) / (j + k) + 0.5)

Dim n As Integer Select Case Combo1.Text For n = 1 To 100 Case \所有偶数\ a(n)=Int(Rnd * ? ) Text1 = ?

Next n Case \所有奇数\End Sub Text1 = ? Private Sub Command2 Click() Case \所有数\ Dim x& ,y& , z& ,i% , j% , k% Text1 = ?

For i = 1 To 100 End Select

If a(i) Mod ? Then End Sub

Dim a(1 To 100) As Integer

11

Private Sub Command1_Click() Dim n As Integer For n = 1 To 100

a(n) = Int(Rnd * 900 + 100) Next n End Sub

Private Sub Command2_Click() Dim x&, y&, z&, i%, j%, k% For i = 1 To 100

If a(i) Mod 2 = 0 Then x = x + a(i): j = j + 1 Else

y = y + a(i): k = k + 1 End If Next i

x = Int(x / j + 0.5): y = Int(y / k + 0.5) z = Int((x + y) / (j + k) + 0.5) Select Case Combo1.Text Case \所有偶数\

Text1 = x Case \所有奇数\

Text1 = y Case \所有数\

Text1 = x + y End Select

End Sub

'在combo1的属性窗口设置list属性,添加列表项 Private Sub Label1_Click()

End Sub

7 编写程序。要求:程序运行后,单击“开始”按钮,则随机产生20个2位数输出到窗体上,每行10个数。同时对所产生的20个数从小到大排序,将排序后的数再次输出在窗体上。程序运行界面如下图。

12

Private Sub Command1_Click() Dim a%(1 To 20), i%

Print \排序前数据排列:\For i = 1 To 20

a(i) = Int(Rnd * 90 + 10) Print a(i);

If i Mod 10 = 0 Then Print Next i

For i = 1 To 20 '冒泡排序 For j = 1 To 20 - i

If a(j) > a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i

Print \排序后数据排列:\For i = 1 To 20 Print a(i);

If i Mod 10 = 0 Then Print Next i End Sub

Private Sub Form_Load()

End Sub

8 编写程序,程序的功能是:程序运行后,在文本框中输入一串字符, 单击标题为\统计\的命令按钮,分别统计输入字符串中大写字母、小写字母以及其他字符的个数,并将统计结果分别在相应的标签框中显示。程序运行界面如下图。

13

Private Sub Command1_Click() Dim i%, m%, n%, z% For i = 1 To Len(Text1)

If Asc(Mid(Text1, i, 1)) >= 65 And Asc(Mid(Text1, i, 1)) <= 90 Then n = n + 1

ElseIf Asc(Mid(Text1, i, 1)) >= 97 And Asc(Mid(Text1, i, 1)) <= 122 Then m = m + 1 Else

z = z + 1 End If Next i Label2 = n Label4 = m Label6 = z End Sub

Private Sub Form_Load()

End Sub

9 编写程序。程序功能是:程序运行后在文本框中输入一个正整数,单击“判断”按钮,在标签框中输出“该数是一个素数”或“该数不是一个素数”的信息。程序运行界面如下图。

Private Sub Command1_Click()

14

Dim n%

n = Val(Text1) For i = 2 To n - 1

If n Mod i = 0 Then Label1 = n & \不是素数\ Next i

Label1 = n & \是素数\notm: End Sub

Private Sub Form_Load()

End Sub

10 编写程序,程序的功能是:程序运行后,单击“开始”按钮,在窗体上显示出10个小于100的随机正整数,单击“查找”按钮,则在窗体的下一行显示出这10个数中的最大的数以及最大数在此数列中的位置号。程序运行界面如下图。

Dim a%(1 To 10)

Private Sub Command1_Click() Dim i% Randomize

For i = 1 To 10

a(i) = Int(Rnd * 101) Print a(i); Next i End Sub

Private Sub Command2_Click() Dim max%, imax%

max = a(1): imax = 1 For i = 2 To 10

If a(i) > max Then max = a(i): imax = i Next i Print Print

Print \最大数是:\位置号是:\End Sub

Private Sub Form_Load() End Sub

15

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库VB练习题(上机)含答案(3)在线全文阅读。

VB练习题(上机)含答案(3).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.77cn.com.cn/wenku/zonghe/416436.html(转载请注明文章来源)
Copyright © 2008-2022 免费范文网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ: 邮箱:tiandhx2@hotmail.com
苏ICP备16052595号-18
× 注册会员免费下载(下载后可以自由复制和排版)
注册会员下载
全站内容免费自由复制
注册会员下载
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: