程序代码简单小程序

2022-05-19 12:50:16 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《程序代码简单小程序》，欢迎阅读！
程序,代码,简单

实验一（带有进度条的倒计时程序）

Public Class Form1

Dim timers As Integer Dim temp As Integer

Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles If + / timers < Then += / timers Else

= False =

("进度完成！") End If temp += 1 = () End Sub

Private Sub Form1_Load(ByVal sender As , ByVal e As Handles timers = 30 End Sub

Private Sub Button2_Click(ByVal sender As , ByVal e As Handles timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub

Private Sub Button1_Click(ByVal sender As , ByVal e As Handles = True End Sub End Class

实验二（定时器控制蝴蝶飞舞）

Public Class Form1 Dim t As Integer

Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles ’Dim t As Boolean ' If t = True Then ' =

' t = False 'Else ' =

' t = True 'End If

Select Case t Case 0 =

t = 1 Case 1 = t = 2 Case 2 = t = 3 Case 3 = t = 0 End Select End Sub End Class

实验三（递推法迭代法--猴子吃桃）

Public Class Form1

Private Sub Button1_Click(ByVal sender As , ByVal e As Handles Dim n, y As Integer n = Val y = Val

Dim xi As Double xi = y

= "第" + () + "天的桃子为：" + () + "个。" + vbCrLf For i As Integer = n - 1 To 1 Step -1 xi = (xi + 1) * 2

+= "第" + () + "天的桃子为：" + () + "个。" + vbCrLf Next

End Sub End Class

实验四（加减乘除随机数题）

Public Class Form1

Dim x, y As Integer Dim i As Integer Dim sum As Integer

Private Sub Button2_Click(ByVal sender As , ByVal e As Handles If <> "") Then

+= +

+= " 结果"

If (sum = Val) Then += "√" + vbCrLf Else

+= "×" + vbCrLf End If

End If

Randomize()

x = Int(Rnd() * 999 + 1) y = Int(Rnd() * 999 + 1) i = Int(Rnd() * 4 + 1) Select Case i Case 1

= () + "＋" + () + "＝" sum = x + y Case 2

= () + "－" + () + "＝" sum = x - y Case 3

= () + "×" + () + "＝" sum = x * y Case 4

= () + "÷" + () + "＝" sum = x / y End Select End Sub End Class 谢谢大家！！！！！！

本文来源：https://www.dywdw.cn/617c9bfc5b8102d276a20029bd64783e09127db8.html