（vb程序设计）求代码：设计一个运行界面如下图所示的程序，要求单击单选按钮、复选框……
kuaidi.ping-jia.net 作者：佚名 更新日期：2024-05-21
【vb编程 求代码】设计一个运行界面如图所示的程序，要求输入购物金额，通过单选按钮选择不同的折扣率？
If Check1.Value Then
Text1.Font.Bold = True
Else
Text1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value Then
Text1.Font.Italic = True
Else
Text1.Font.Italic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value Then
Text1.Font.Underline = True
Else
Text1.Font.Underline = False
End If
End Sub
Private Sub Combo1_Click()
Text1.Font.Name = Combo1.Text
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
Combo1.ListIndex = 0
For i = 6 To 40 Step 2
Combo2.AddItem i
Next
Combo2.ListIndex = 12
Text1.Font.Size = Combo2.Text
End Sub
Private Sub Option1_Click()
Text1.ForeColor = vbBlack
End Sub
Private Sub Option2_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option3_Click()
Text1.ForeColor = vbBlue
End Sub
用VB做一个简单的加减乘除的计算器,代码是什么?
答：我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。我们现在要把command拉出四个，把里面command1-4都给成+-*/ 现在我们现在要双击+，我们开始进行输入代码 ...
VB设计一应用程序
答：1.private sub form_load()timer1.interval=100 end sub private sub timer1_timer()label1.left=label1.left-100 if label1.left<=0 then label1.left=form1.width end sub 2.form1窗体上的command1命令按钮 private sub command1_click()form2.show form1.hide end sub 3.form2窗体上的...
VB题目,求代码:新建一个工程,完成"字幕闪烁"程序设计,运行结果如图3所示...
答：Private Sub FlashTimer_Timer()If FLashLabel.ForeColor = vbRed ThenFLashLabel.ForeColor = vbGreenElseIf FLashLabel.ForeColor = vbGreen ThenFLashLabel.ForeColor = vbRedEnd IfEnd IfEnd Sub Private Sub Form_Click()FLashLabel.ForeColor = vbRedFlashTimer.Enabled = TrueEndFLashLabel Sub...
用VB编写一个计算器程序的代码
答：2、各控件组其属性设置如下：设置效果如下图所示：二、编写代码 Dim s1 As Single， s2 As Single， ysf As String ‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符 Private Sub Command1_Click（Index As Integer）Text1.Text = Text1.Text & Command1（Index）.Caption ’...
用VB设计一个类似于Windows 操作系统附件中“记事本”功能的应用...
答：帮助（第一层） mnuHelp 使用说明（第二层） mnuUsage 关于（第二层） mnuAbout (注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。现在进入：步骤三：编写代码。'声明查找变量 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub...
求VB高手设计一个算术运算自测程序!
答：朋友,以下代码,现为你专人.制作,呵呵...你试试效果...看合不合适...如果有什么需要改进的地方,请回百度消息,或在这里留言.'需要控件:command1,command2,command3,text1,text2,text3 Private Sub Command1_Click()Randomize Text1 = Int(Rnd() * 10)Text2 = Int(Rnd() * 10)If Text1 ...
vb程序设计,请写一下两道题的运行代码,谢谢,急
答：Private Sub Command1_Click()Dim x As IntegerDim s As Strings = InputBox("请输入X值(101<= X <= 200 ")If IsNumeric(s) Then x = CInt(s)Do While x > 200 Or x < 101s = InputBox("请输入X值(101<= X <= 200 ")If IsNumeric(s) Then x = CInt(s)Else x =...
用VB设计一个程序,将输入的字符串以反序显示
答：Private Sub Command1_Click()Dim S As String, T As String S = InputBox("输入一个字符串")Print T Dim I As Integer For I = Len(S) To 1 Step -1 T = T & Mid(S, I, 1)Next Print T End Sub最简单的Private Sub Command1_Click()Dim S As String, T As String S = ...
用VB设计一个程序使得
答：两种方法：Dim a Dim b(0 To 6) As Integer Dim c Private Sub Command1_Click()a = Array(1, 2, 3, 4, 5, 6, 7)Dim i, Num As Integer For j = 1 To 8 For i = 0 To 6 b(i) = a((i + Num) Mod 7)Next i For i = 0 To 6 Print b(i) & " ";Next i P...
帮忙设计一个最简单的VB程序(查询当前时间和日期的)要代码
答：哪有那么麻烦啊？这样就可以了！我先在电脑上运行了的。两个command,(分别是显示和清除）一个label来显示时间，一个timer.属性设置：label1清除内容，钟表的interva设为1000，表示1秒，enadled设为false表示为不可用。Private Sub Command1_Click()Timer1.Enabled = True Label1.Caption = Date + Time...
代码大约长这样，自己完善一下。
Private Sub Command1_Click()
Dim a#, b#, c#
a = Val(Text1)
If Option1 Then b = a * 0.8
If Option2 Then b = a * 0.9
If Option3 Then b = a
If a >= 1000 And Check1 Then c = b / 12
Label1.Caption = b & vbCrLf & c
End Sub
If Option1.Value = True Then Text1.FontName = "宋体"
If Option2.Value = True Then Text1.FontName = "隶书"
If Check1.Value = 1 Then
Text1.Font.Underline = True '下划线
Else
Text1.Font.Underline = False '下划线
End If
If Check2.Value = 1 Then
Text1.Font.Italic = True '斜体
Else
Text1.Font.Italic = False '斜体
End If
If Option2.Value = True And Check2.Value = 1 Then
MsgBox "隶书不能设为斜体"
Check2.Value = 0
End If
If Option2.Value = True And Check1.Value = 1 Then
MsgBox "隶书不能设为下划线"
Check1.Value = 0
End If
If Check1.Value Then
Text1.Font.Bold = True
Else
Text1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value Then
Text1.Font.Italic = True
Else
Text1.Font.Italic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value Then
Text1.Font.Underline = True
Else
Text1.Font.Underline = False
End If
End Sub
Private Sub Combo1_Click()
Text1.Font.Name = Combo1.Text
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
Combo1.ListIndex = 0
For i = 6 To 40 Step 2
Combo2.AddItem i
Next
Combo2.ListIndex = 12
Text1.Font.Size = Combo2.Text
End Sub
Private Sub Option1_Click()
Text1.ForeColor = vbBlack
End Sub
Private Sub Option2_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option3_Click()
Text1.ForeColor = vbBlue
End Sub
答：我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。我们现在要把command拉出四个，把里面command1-4都给成+-*/ 现在我们现在要双击+，我们开始进行输入代码 ...
答：1.private sub form_load()timer1.interval=100 end sub private sub timer1_timer()label1.left=label1.left-100 if label1.left<=0 then label1.left=form1.width end sub 2.form1窗体上的command1命令按钮 private sub command1_click()form2.show form1.hide end sub 3.form2窗体上的...
答：Private Sub FlashTimer_Timer()If FLashLabel.ForeColor = vbRed ThenFLashLabel.ForeColor = vbGreenElseIf FLashLabel.ForeColor = vbGreen ThenFLashLabel.ForeColor = vbRedEnd IfEnd IfEnd Sub Private Sub Form_Click()FLashLabel.ForeColor = vbRedFlashTimer.Enabled = TrueEndFLashLabel Sub...
答：2、各控件组其属性设置如下：设置效果如下图所示：二、编写代码 Dim s1 As Single， s2 As Single， ysf As String ‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符 Private Sub Command1_Click（Index As Integer）Text1.Text = Text1.Text & Command1（Index）.Caption ’...
答：帮助（第一层） mnuHelp 使用说明（第二层） mnuUsage 关于（第二层） mnuAbout (注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。现在进入：步骤三：编写代码。'声明查找变量 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub...
答：朋友,以下代码,现为你专人.制作,呵呵...你试试效果...看合不合适...如果有什么需要改进的地方,请回百度消息,或在这里留言.'需要控件:command1,command2,command3,text1,text2,text3 Private Sub Command1_Click()Randomize Text1 = Int(Rnd() * 10)Text2 = Int(Rnd() * 10)If Text1 ...
答：Private Sub Command1_Click()Dim x As IntegerDim s As Strings = InputBox("请输入X值(101<= X <= 200 ")If IsNumeric(s) Then x = CInt(s)Do While x > 200 Or x < 101s = InputBox("请输入X值(101<= X <= 200 ")If IsNumeric(s) Then x = CInt(s)Else x =...
答：Private Sub Command1_Click()Dim S As String, T As String S = InputBox("输入一个字符串")Print T Dim I As Integer For I = Len(S) To 1 Step -1 T = T & Mid(S, I, 1)Next Print T End Sub最简单的Private Sub Command1_Click()Dim S As String, T As String S = ...
答：两种方法：Dim a Dim b(0 To 6) As Integer Dim c Private Sub Command1_Click()a = Array(1, 2, 3, 4, 5, 6, 7)Dim i, Num As Integer For j = 1 To 8 For i = 0 To 6 b(i) = a((i + Num) Mod 7)Next i For i = 0 To 6 Print b(i) & " ";Next i P...
答：哪有那么麻烦啊？这样就可以了！我先在电脑上运行了的。两个command,(分别是显示和清除）一个label来显示时间，一个timer.属性设置：label1清除内容，钟表的interva设为1000，表示1秒，enadled设为false表示为不可用。Private Sub Command1_Click()Timer1.Enabled = True Label1.Caption = Date + Time...
