ldcf.net
当前位置:首页 >> vB程序题求代码 >>

vB程序题求代码

程序图标自己更改,基本功能已实现,详见附件。form1代码Private Sub about_Click() Form2.ShowEnd SubPrivate Sub Comm...

'这题目,对于初学者是很有难度的,'运行效果如上图,代码如下:'有问题可以问我Private Sub Command1_Click()Dim arr(1 To 20) As IntegerDim i, a, b As IntegerDim Ave As DoubleDim sum As IntegerDim Mx, Mn As IntegerPrint "随机数数组...

设计界面: 修改属性: 窗体Frm1代码: Public n% '定义公共变量Private Sub Command1_Click() Frm2.ShowEnd SubPublic Sub Command2_Click() Print nEnd Sub窗体Frm2代码: Private Sub Command1_Click() If MsgBox("退出程序吗?", vbYesNo, "...

Private Sub Command1_Click() x = InputBox("键入第一个数") y = InputBox("键入第二个数") z = InputBox("键入第三个数") Max = x If Max < y Then Max = y If Max < z Then Max = z Print "最大值"; Max End Sub

代码: Dim t As SinglePrivate Sub Command1_Click() Dim d() As String t = t + Val(Text2.Text) d() = Split(Text1.Text, "-") Label3.Caption = Label3.Caption + "20" + d(0) + "年" + d(1) + "月" + d(2) + "日" + vbCrLf Label4.Caption ...

Dim Sign As String, Flag As BooleanPrivate Sub Command1_Click() Dim DecimalNumber As Double DecimalNumber = TransformBtoD(Text1.Text) Label2.Caption = "转换成十进制数为:" + Sign + CStr(DecimalNumber)End SubPrivate Function Tra...

Function getMax() As Integer Dim i As Integer, rt As Integer rt = Num(0) For i = 1 To 9 If Num(i) > t Then t = Num(i) Next getMax = rt End Function Function getMin() As Integer Dim i As Integer, rt As Integer rt = Num(0) For i ...

1.建立用户界面 设置属性 编写代码 2.窗体设计窗口 3.ctrl 4.缇 5.工程 窗体 6.F4 7.caption 8.透明 9.2 10.宽度 11.text 12.Label TextBox 13. 14. _(续行符) (空格) 15.click 16.双击 17.dblclick picture1 picturebox 18.rem 19.逻辑 20.time...

'代码功能: 求 1! + 2! + ……10!的值? '请在【】处填入正确的内容? Private Sub Form_Click() '**********SPACE********** t=1 s = 1 For I = 2 To 10 t = t * I '**********SPACE********** s=s+t '**********SPACE********** Next I Print s En...

使用循环体做 for i=1 to 10 for j=1 to 10 print "*"; next j print next i

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com