当前位置 > 简单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-08-27 网络 更多内容 259 ℃ 589 -
VB简单的编程
Private Sub Command1_Click() Cls Dim a(10) As Integer s = 0 Randomize Print "10个随机数:" Me.FontSize = 17 Me.ForeColor = vbBlue For i = 1 To 10 a(i) = 1 + Int(Rnd * 100) Print a(i);  ...
2024-08-27 网络 更多内容 626 ℃ 57 -
简单VB程序设计
分太低,不过还是给你做了 Option Base 1 Private Type Stu StuName As String StuEnglish As String StuMath As String StuChem As String StuPhys As String End Type Dim StuFile() As Stu Dim Counter As Integer Private Sub Command1_Click() Counter = Counter + 1 ReDim Preserve S...
2024-08-27 网络 更多内容 378 ℃ 120 -
VB简单编程问题
Private Sub Command1_Click() t = Text1.Text Dim F As Boolean F = True For i = 1 To Len(t) If F Then If (Mid(t, i, 1) >= "a") Then Mid(t, i, 1) = Chr(Asc(Mid(t, i, 1)) Asc("a") + Asc("A")) F = False ElseIf Mid(t, i, 1) = "?" Or Mid(t, i, 1) = &quo...
2024-08-27 网络 更多内容 645 ℃ 958 -
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-08-27 网络 更多内容 695 ℃ 939 -
简单的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-08-27 网络 更多内容 494 ℃ 940 -
简单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-08-27 网络 更多内容 409 ℃ 736 -
简单VB编程
{根号下(3x+y)z}/(xy)^4用VB表达 sqr((3*x+y)z)/((x*y)^4) 下面这个DO WHILE...LOOP语句表达 Dim x As Integer,iAS iNTEGR '原来的定义Dim x As Integer错了,应当定义为Double X=0 For i=1to100 x=x+1/(i+1) Next i Private Sub Command1_Click() Dim x As Double, i As Integer x = 0 ...
2024-08-27 网络 更多内容 992 ℃ 508 -
一道简单的VB编程题
添加一个TextBox(Text1),一个ListBox(List1),三个按钮(Command1、Command2、Command3) 设置List1的Sorted属性为True Private Sub Command1_Click() For i = 0 To List1.ListCount 1 If Text1.Text = List1.List(i) Then Exit For ElseIf i = List1.ListCount 1 And List1.List(i) <> Tex...
2024-08-27 网络 更多内容 735 ℃ 229 -
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-08-27 网络 更多内容 680 ℃ 964