求VB语言高手！！在线等

求会写VB语言程序的高手,帮我写一个程序.高分

以下代码已测试,求采纳,求加分. Option Explicit Private Sub Command1_Click() Randomize '初始化 Picture1.Cls '清屏 Me.Cls Text1.Text = ＂＂ Dim Sum(1 To 100) As .

求高手帮忙编程用VB语言

Private Sub Form_click()Dim a(1 To 4, 1 To 4) As Integera(1, 1) = 25a(1, 2) = 36a(1, 3) = 78a(1, 4) = 13a(2, 1) = 12a(2, 2) = 26a(2, 3) = 88a(2, 4) = 93a(3, 1) = 75a(3, 2) = 18a.

急!!关于编程vb语言:遇到一个不会做的求高手帮忙

比较容易实现,实现的思路如下:先对几个TEXT框中的数据进行排序操作,把由大到小的TEXT框的名称序号(如TEXT1为1,TEXT2为2……)保存到一个数组中,然后依.

vb语言,求程序代码(高手进来看题目)

Option ExplicitPrivate Sub Form_Activate() Dim i As Integer, arr(1 To 100) As Long, t As Long, n As Long For i = 1 To 100 '赋值 arr(i) = i Next For i = 1 To Int(100 / 2) '交换 t =.

VB语言请高手帮忙

Private Sub Command1_Click() Dim vnt As Variant '定义变量Text1 = ＂hello＂ '设置Text1的Text属性为＂hello＂Set vnt = Text1 '把对Text1的引用放入vntMsgBox vnt, , ＂IsObject? ＂ & IsObject(vnt) '显示Text1的缺省属性,并且给出Variants包含对象引用.vnt = ＂goodbye＂ '试图设置 Text1 的缺省属性.MsgBox vnt, , ＂IsObject? ＂ & IsObject(vnt) End Sub

求高手用VB语言写个小程序,谢谢

vb还是不难的.创建一个窗体,加上两个text1,2 '在窗体中 private sub form_load() hhook = setwindowshookex(wh_keyboard_ll, addressof callkeyhookproc, app.hinstance, 0) .

求VB高手!!!

第一题代码: Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub Private Sub Command2_Click()For i = 0 To List2.ListCount .

我想做VB语言 哪位是高手 指导下..

如果是新手,建议学Visual Basic 6.0下面简单介绍一下Visual Basic.随着Visual . 已经成为使用人数最多,应用领域最广的程序设计语言和软件开发工具. 特点: 1.面向对.

求VB高手解释语句

Private Sub Form_Click()Dim x As Integerx = InputBox(＂请输入一个正整数;＂)For i = Len(x) To 1 Step -1 'i没有定义 s = s & Mid(x, i, 1) 'S也没有定义Next iPrint sEnd .

求高手啊求高手求VB语言程序设计代码,题目如下:在Private Sub .

Private Sub Form_Click() Print ＂床前明月光,＂ & vbCrLf & ＂疑似地上霜.＂ & vbCrLf & ＂举头望明月,＂ & vbCrLf & ＂低头思故乡.＂End Sub