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)在线全文阅读。
相关推荐: