kwrl.net
当前位置:首页 >> VB编程,在线等,急 >>

VB编程,在线等,急

做好的例子 https://pan.baidu.com/s/1mhJJY1i

Dim a(1 To 60) As IntegerPrivate Sub Command1_Click() For i = 1 To 59 For j = i + 1 To 60 If a(j) < a(i) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i For i = 1 To 60 Print a(i); If i Mod 20 = 0 Then Print Next iEnd S...

假如最上面那个文本框取名text1,下面依次nian、yue、ri 那么就直接这样写 text1.Text=Format$(yue.Text,"00") + "/" + Format$(ri.Text,"00") + "/" + nian

都是一些很基本的操作,但是大部分都是控件设置问题,在这里贴代码估计你也不会用。

第一题: Private Sub form_Click() Dim A(5, 4) As Integer, I As Integer, J As Integer Dim T As Integer, Max As Integer Randomize Timer Print "原矩阵:" For I = 1 To 5 For J = 1 To 4 A(I, J) = Int(Rnd * 20 + 10) Print A(I, J); Ne...

我有一个,可以私信我

Private Sub About_Click() Text1.Visible = TrueEnd SubPrivate Sub Bold_Click() Text1.FontBold = TrueEnd SubPrivate Sub Eliminate_Click() Text1.Text = ""End SubPrivate Sub End_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text ...

Dim a(1 To 10) As String Dim i As Integer Dim Sum1, Sum2 As Double Sum1 = 0 Sum2 = 0 For i = 1 To 10 a(i) = CInt(Rnd(100) * 100) If i Mod 2 = 0 Then Sum1 = Sum1 + a(i) Else Sum2 = Sum2 + a(i) End If Next MsgBox "偶数下标的和" &...

s = _Chr____(KeyAscii) Case "A" ___to__ "Z" s = UCase(s)

通过Keypress事件做,Keyascii是Ascii吗,通过按下键盘系统会检测到他的Ascii值,再把它转换成你想要替换的就行了,很简单,不想帮你写,自己动手丰衣足食吧。

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