我设计了一个vb程序,现在遇到了两个问题不能解决,希望各位高手可以帮忙解决。
太难了
a=inputbox("输入第一门课成绩")
b=inputbox("输入第二门课成绩")
c=inputbox("输入第三门课成绩")
if (a+b+c)/3>95 or (a=100 and b=100 and c>80 or a=100 and c=100 and b>80 or b=100 and c=100 and a>80) then print "一等奖"
if (a+b+c)/3>90 or (a=100 and b>75 and c>75 or b=100 and a>75 and c>75 or c=100 and a>75 and b>75) then print "二等奖"
if a>=70 and b>=70 and c>=70 then print "三等奖"
这里又定义了两个文本框:TextX、TextY,用于存放你计算出来的x、y,也可根据自己的需要做其它处理。
程序启动时进入密码校验程序,这里的密码为“123”,可根据需要设置
Private ComputYN As Boolean
Private Sub Form_Load()
ComputYN = False
Command4.Caption = "Command4"
Dim Mima As String, mima1 As String
Dim Nci As Integer
Mima = "123"
Nci = 0
While Nci < 3
mima1 = InputBox("请输入密码(第" & Nci + 1 & "次):", "输入密码", "")
mima1 = Trim(mima1)
If Mima = mima1 Then GoTo 10
Nci = Nci + 1
If Nci = 3 And Mima <> mima1 Then
'Form1.Hide
End
End If
Wend
10 '
End Sub
Private Sub Command4_Click()
If ComputYN = False Then
Comput1
ComputYN = True
Command4.Caption = "计算"
Else
ComputYN = False
Command4.Caption = "Command4"
End If
End Sub
Private Sub Comput1()
'测绘重心
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim e As Single
Dim G As Single
Dim X As Single
Dim Y As Single
a = Val(Text1.Text) + 0.0000000001
b = Val(Text2.Text) + 0.0000000001
c = Val(Text3.Text) + 0.0000000001
d = Val(Text4.Text) + 0.0000000001
e = Val(Text5.Text) + 0.0000000001
G = (a + b + c + d) / 9.8 - e
X = (4000 * a + 4000 * b + 10400 * c + 10400 * d) / (a + b + c + d)
Y = (3600 * a + 6000 * b + 3600 * c + 6000 * d) / (a + b + c + d)
TextX.Text = X
TextY.Text = Y
End Sub
Private Sub Text1_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text2_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text3_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text4_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text5_Change()
If ComputYN = True Then Comput1
End Sub
1.
if 密码错误次数=3 then end
2.
你的这个想法不错,但是编程比较复杂,要设置一个全局变量作为开关, 计算过程作为一个单独的子程序,当文本框的change事件发生,就调用一次。
vb程序设计
解释:VB程序设计是使用Visual Basic编程语言来创建应用程序的过程。Visual Basic是一种高级编程语言,拥有直观和易于学习的语法结构,使得编程过程相对简单。它在微软的开发环境中特别受欢迎,并广泛应用于各种应用程序的开发。VB程序设计的特点:1. 易于学习:VB语法清晰,结构简洁,对于初学者来说是一个很...
什么是VB程序设计?
VB程序设计是一种使用Visual Basic编程语言进行软件开发的过程。Visual Basic(简称VB)是由微软公司开发的一种高级编程语言,它采用面向对象和事件驱动的编程方式,旨在让程序员能够更快速、更简单地开发出Windows应用程序。VB程序设计的特点之一是易于学习。它采用了类似英语的自然语法,使得程序员可以更容易...
vb设计一个计算功能的程序
vb功能很强大,制作也方便,这里制作一个输入数字计算结果的程序。首先新建一个工程。打开后,输入三个标签,用来标识的,其实也可以不用,但是为了描述这里写上去。也可以文字进行剧中放置美观点。输入三个文本框,注意,这里是和标签对应的,上面是三个标签,这里还是输入三个文本框。然后输入四个按钮,...
一个VB程序设计
1、添加两个文本框和两个命令按钮,把两文本框的text属性中的Text1和Text2删除,再把命令按钮1的Caption属性改为“复制”,命令按钮2的Caption属性改为“粘贴”。2、源代码如下: Private Sub Command1_Click()Command2.Enabled = TrueCommand1.Enabled = FalseEnd Sub Private Sub Command2_Click()T...
设计一个VB程序
'设置三个滚动条为控件数组HScroll1(),其中max为255,min为0,largechange为10,smallchange为1 Private Sub Command1_Click()Label3.ForeColor = Label1.BackColor '文字颜色 End Sub Private Sub Form_Load()Dim hr As Integer, hg As Integer, hb As Integer hr = HScroll1(0).Value ...
关于一个VB程序设计
程序界面如上图所示:一个标签(名称为Label1),三个复选框(名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝)一个命令按钮(名称为Command1,Caption属性为结束),完成程序功能的代码如下:Dim red As IntegerDim green As IntegerDim blue As Integer Private Sub Check1_Click()If ...
设计一个vb程序 求高人
End Sub Private Sub Command2_Click()List1.AddItem Text1.Text End Sub Private Sub Command3_Click()List1.RemoveItem List1.ListIndex End Sub Private Sub Command4_Click()For i = 0 To List1.ListCount Text2.Text = Text2.Text & List1.List(i) & ","Next End Sub Private Sub...
设计一个VB 程序
Private Sub Form_Load()a = 0 b = 0 End Sub Private Sub Timer1_Timer()If Shape1.Left <= Form1.Width - 1.2 * Shape1.Width And a = 0 Then Shape1.Left = Shape1.Left + 100 Else a = 1 Shape1.Left = Shape1.Left - 100 If Shape1.Left <= -50 And a = 1 Then...
用VB设计一个程序?
VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。VbMinimizedNoFocus 6 窗口会以一个图标...
设计一个VB程序题
Private Sub Command1_Click() '退出程序 MMControl1.Command = "close" '关闭播放器设备 MMControl1.Shareable = True '允许别人使用播放器 End End Sub Private Sub Form_DblClick()'双击退出 MMControl1.Command = "close" '关闭播放器 MMControl1.Shareable = True End End Sub Private Sub Form...
策胥甘风: 有两种可能. 我认为最大的可能是运行时错误.因为你在调用Recordset.Update之前没有往Recordset里加入数据,结果具体实现将数据写入数据库的DLL找不到数据,造成访问它无权访问的内存,被操作系统拦截了. 第二种可能是确实损坏了,你重新安装VB6.0能解决. 注意你的VB6CHS.DLL这个文件的版本.因为老版本的DLL没有处理内存访问异常,而新版本则有.如果你的是新版本,则肯定为第一种.
永新县18743399979: 【VB编程求助】【菜鸟编程】我变了个小程序,出现一线错误,求解决! - ?
策胥甘风: 你把变量的定义,全都放到IF语句外边去,别在流程语句内定义
永新县18743399979: 我在用VB做一个小功能,但是遇到了麻烦,我做的是考试系统. - ?
策胥甘风: 不是很理解您的意思,你的每一题的按钮也是按钮控件做的吗 但是不管怎样 你应该有一个指向每一题的索引,比如说CurIndex,那么不管你是按下面的数字还是上面的上一题和下一题,CurIndex=CurIndex+1 或减1,在每个数字按钮用command...
永新县18743399979: 我用VB编了个计算程序,遇到问题了,求解?
策胥甘风: Private Sub Command1_Click() rem Text1 = InputBox Text2.Text = Text1.Text * Text1.Text * 3.14 End Sub呵呵,希望帮助到你.
永新县18743399979: 我做VB打开了一个程序.那个程序界面有2个可以输入的,我想用VB自动输入,怎么办??
策胥甘风: 那就在Form_Load 里对文本框(假设输入框为文本框)赋初值 代码如下: text1="A" text2="B" 加上这个语句,当运行的时候就会自动输入了.
永新县18743399979: VB 程序暂停与继续运行 - ?
策胥甘风: 暂停键下加上这两个 Timer1(0).Enabled = False Timer1(1).Enabled = False 继续键再把时间控键=真就可以了
永新县18743399979: vb 设计了选择题程序 在用户做完之后 有两个列表框 一个显示题号 一个显示用户的正误情况 然后点击某一个 - ?
策胥甘风: 你在form_load中将rs给销毁了(set rs = nothing)所以在form_load过程后,全局变量rs其实已经不存在了,所以...
永新县18743399979: 我设计完的vb小程序运行不了 - ?
策胥甘风: 你有生成.EXE文件嘛?光保存是不行的.在“文件”菜单里有一个生成***.EXE的选一下.
永新县18743399979: 我做的一个vb软件保存打不开了,保存成了Form1.vb和Form1.Designer.vb两个文件!请高手帮忙! - ?
策胥甘风: 你是直接双击Form1.vb的吧?这样没用的,只能打开Form1.vb这一个文件,里面只有代码,窗体设计在Form1.Designer.vb中,应该用下面方法: 1、运行VS2010 2、选择“新建项目”,选择“Visual Basic”模板中的“Windows窗体应用程序” 3、在“解决方案资源管理器”中,右键点击“Form1.vb”,选“删除”,点确定 4、在“解决方案资源管理器”中,右键点击“Windows Application1”,选“添加”-->“现有项”,将“Form1.vb”添加进来 5、重复第4步,将“Form1.Designer.vb”添加进来 OK了,也许还不能运行,但至少代码和窗体控件找回来了.
永新县18743399979: 两个VB设计问题!!~~~求助!!~~~~ - ?
策胥甘风: 窗体上的控件就自己画上去吧.事件代码如下:1:Private Sub Text1_Change()dim i as longi=Text1.SelStartText1.Text=UCase$(Text1.Text)Text1.SelStart=iEnd SubPrivate Sub Command1_...