当前位置 > 求一个简单vb编程实例求一个简单vb编程实例解析

• 

  vb编程超简单

  Private Sub Command1_Click()   Text2.Text = ""   Text2.Text = Text2.Text + Text1.Text   For i = 0 To 2     If Option1(i).Va...

  2024-07-24 网络 更多内容 374 ℃ 147
• 

  求一个vb的简单编程,要求简单易懂的

  Private Sub Command1_Click()Dim s1 As String, s2 As String, i As Integer  s1 = "ABCDEFGHIJ"  For i = Len(s1) To 1 Step 1&nbs...

  2024-07-24 网络 更多内容 481 ℃ 53
• 

  简单的VB编程

  Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And Text1.Text <> "" And IsNumeric(Text1.Text) Then Dim vSum% for i=1 to val(text1.text) vSum = vS...

  2024-07-24 网络 更多内容 377 ℃ 811
• 

  VB编程 非常简单

  三个文本框text1,text2,text3 一个按钮command1 代码: private sub command1_Click() dim A as single Dim B as single Dim C as single a=val(text1.text) b=val(text2.text) c=val(text3.text) if a+b>c then msgbox "OK. 两边长之和大于第三边,三角形成立" else msgbox "FA...

  2024-07-24 网络 更多内容 958 ℃ 625
• 

  vb编程(很简单的)

  作业还是尽可能自己完成呀! 既然“很简单的”,自己写呀?何必求别人写?还望眼欲穿,在这里苦苦地等呢? 下不为例哈! Dim a Private Sub Command1_Click() a = 0 Lop: If a < 100 Then a = a + 1 If Int(a / 7) * 7 = a Then Print a End If GoTo Lop Else: End If End Sub

  2024-07-24 网络 更多内容 251 ℃ 698
• 

  怎样用vb编程一部简单的计算器呢?

  1、打开VB新建一个EXE。2、如图画上4个按钮控件表示加减乘除,再画上3个文本控件表示两个数与和数,再画一个标签控件加入“=”号。当... 其实代码很简单,就这一句只要更换把‘+’分别换成‘-’‘*’‘/’即可。5、好了,现在可以点击运行或者F5键运行,即可得到第一个简单的计...

  2024-07-24 网络 更多内容 140 ℃ 361
• 

  一个简单的VB编程题

  Private Sub Form_click() Dim a(5) As Integer For i = 1 To 5 a(i) = Val(InputBox("输入一个数")) Print a(i); Next i Print For i = 1 To 4 For j = i + 1 To 5 If a(i) < a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i Print "排列后的数为" For i = 1 To 5 Print a(i); Next i End Su...

  2024-07-24 网络 更多内容 185 ℃ 905
• 

  一道简单的VB编程题

  dim 数组(50) as single dim a as single for i = 1 to 50 数组(i)=val(inputbox("请输入第" & i & "个数")) next for i=1 to 49 for j=i+1 to 50 if 数组(i) > 数组(j) then a=数组(i) 数组(i)=数组(j) 数组(j)=a endif next j next i for i=1 to 50 print 数组(i); if i mod 10=0 then print next i

  2024-07-24 网络 更多内容 771 ℃ 772
• 

  简单VB编程

  DIM xs(N1) for i=0 to N1 xs(i)=0 for k=1 to M xs(i)=xs(i)+CJ(k) '这里是学生的每门成绩相加 next next 唉,实在没法写了,不知道你是不是用数据库来存的还是其他的什么方法

  2024-07-24 网络 更多内容 863 ℃ 290
• 

  简单VB编程题

  '两个文本框,一个按钮Private Sub Command1_Click()Dim T1 As String, I As Integer, J As IntegerT1 = Text1.TextJ = Len(T1)For I = 1 To J Mid(T1, I, 1) = StrZm(Mid(T1, I, 1))Next IText2 = T1End SubPrivate Function StrZm(StrZf As String) As String If Asc(StrZf) > 64 And Asc(StrZf) &...

  2024-07-24 网络 更多内容 393 ℃ 691