VisualBasic程序设计—实验报告册-参考答案

内容发布更新时间 : 2025/6/14 4:40:19星期一 下面是文章的全部内容请认真阅读。

ClientTop = 450 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 2160 TabIndex = 0 Top = 1800 Width = 1215 End End

Attribute VB_Name = \

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() For n = 999 To 100 Step -1 For i = 2 To n - 1

If n Mod i = 0 Then Exit For Next i

If i = n Then Print n k = k + 1 End If

If k = 3 Then Exit For Next n End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = \ ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 8025 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 8025

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 1800 TabIndex = 0 Top = 1320 Width = 1215 End End

Attribute VB_Name = \

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click() s = 0: Max = 0: Min = 1000 For i = 1 To 20 Randomize

x = Int(Rnd * 49 + 51) Print x;

If x > Max Then Max = x If x < Min Then Min = x s = s + x Next i

aver = s / 20 Print