[急用！高中优秀班干部申请用第一人称 1000字！谢！]花开花落年复年，08的秋季我踏进了高中的大门。担任起了班长的职务。一个学期的学习生活，使我在思想、学习、工作、实践等方面都取得了丰硕的成果。做班长的经历也将是我终生受...+阅读
'计算两个数的和和积
Option Explicit
Dim x As Double
Dim y As Double
Private Sub Cmd1_Click()
x = InputBox（＂请输入一个数：＂， ， 0#）
y = InputBox（＂请再输入一个数：＂， ， 0#）
Text1.Text = CStr(Add(x, y))
End Sub
Private Sub Cmd2_Click()
x = InputBox（＂请输入一个数：＂， ， 0#）
y = InputBox（＂请再输入一个数：＂， ， 0#）
Text1.Text = CStr(Add(x, y))
End Sub
Public Function Add(x As Double, y As Double) As Double
Add = x + y
End Function
Public Function Multi(x As Double, y As Double) As Double
Multi = x * y
End Function
'求最小数
Option Explicit
Dim data(1 To 10) As Long
Private Sub Form_Click()
Dim i As Integer
List1.Clear
For i = 1 To 10
data(i) = CLng(100 * Rnd() - 50)
List1.AddItem CStr(data(i))
Next i
Text1.Text = CStr(MinNumber())
End Sub
Public Function MinNumber() As Long
Dim i As Integer
Dim templng As Long
templng = data(1)
For i = 2 To 10
If templng >= data(i) Then templng = data(i)
Next i
MinNumber = templng
End Function
延伸阅读：
求一篇关于大学生实践三创三先精神的演讲稿急用啊参考一下吧 新时期、新阶段、新任务需要新精神 从“三创”到“三创三先”是时代发展的客观需求。精神来源于实践，不同的社会实践会产生不同的精神，不同历史阶段、历史时期的重...
求一篇1500字的贫困申请本人才疏学浅求各位帮忙朋友急用贫困申请书1500字 尊敬的领导： 你们好！ 我是xx学校xxxx院系xx班的xx同学，我来自xxx市xx县xx镇xxx村。那里交通阻塞，经济落后。我现在十分需要领导、学校、国家帮助我，帮我和我的...
三好学生事迹材料 300 500字求求了急用。以第三人称写xxx同学是xxx学校xx班学生。自入学以来一直品学兼优、多才多艺、能力突出，每学期均被评为校五星少年、全优生，一直担任班级中队长职务。在学校、老师的关心、教育和帮助下，在父...
java小程序设计设计一个窗口程序import java.awt.*; import java.awt.event.*; import javax.swing.*; public class FrameTest { private JFrame jf; private JButton yellow,blue,green; private JPanel...
汇编语言程序设计1、用减奇数法开平方。（算法：N个自然数中的奇数之和等于N的平方。） 程序清单：内存datum中存要开方数 ，result中存放结果 data segment datum db 16 result db 0 data ends ss_seg...
汇编语言程序设计红旗慢慢升起code segment assume cs:code start: push cs pop ds mov ax,12h int 10h mov ax,0a000h mov es,ax mov ah,2；画旗杆 call color mov di,510 mov ax,0aeh mov cx,450 n1:stos...
VB选择循环和数组综合程序设计实验报告Private Sub Form_Click() Dim r(1 To 60) As Integer Dim e(1 To 60) As Integer Dim o(1 To 60) As Integer Dim ec As Integer, oc As Integer Dim i As Integer, j As I...
求大神帮忙做一下这个大学VB程序设计的实验报告Private Sub Command1_Click() Dim a As Integer, b As String, i As Integer, c() As String a = Len(Text1.Text) Print a ReDim c(a) As String For i = 1 To a b = Mid(...
VB程序设计实验报告1.实验名称 实验二 Visual Basic基本语句 2.实验目的 (1)掌握Visual Basic的数据类型和变量定义方法。 (2)正确使用Visual Basic的运算符和表达式。 (3)掌握Visual Basic中...
