大一VB程序设计 题目求 大神帮忙
具体要求：
基本表达式和部分常用函数的使用，如rnd()、isnumeric()；
rnd()虽然可随机生成数据，但每次运行后随机生成的次序有一定规律，可在rnd语句行前添加randomize语句行，实现完全每次运行均生成随机数据；
一个应用的功能逐步完善的步骤，应从体验者和设计者的角度分别考虑很多；
通过自动生成“大数-小数”的算式，了解后测型循环的使用；
通过减法功能的加入，了解多分支语句的使用。
操作步骤： 设计一个随机题板，可随机生成两个1-2位正整数的算式，用户填入算式结果后，单击“计算判断”可提示结果对错等信息。请按下列步骤逐一完善题板功能，并将完成的所有代码复制粘贴并提交问题1-2（红色文字）的答案：
题板最初应有三个控件分别显示两个随机数和接收用户结果的输入，应有一个控件提示计算结果对错，一个算式连接还必须有两个label显示运算符和等号，还需要两个commandbutton分别实现出题和计算判断的功能；
单击“再出一题”，随机生成算式的两个计算数，并不允许自行修改算式，单击“计算判断”实现计算结果的对错判断并显示。提示：控件textbox输入的内容默认为字符串，需通过val(s)转换s（全部为数字）为数值才能计算；
结果输入后，默认回车即进行“计算判断”，且算式结果应不允许“计算判断”后再提交判断。问题1：为什么设计中会有如此的功能考虑？
除能“计算判断”，还有“给出提示”的功能即显示算式的答案；
“计算判断”后除能提示结果对错外，还能实现对错的计数，即正确m次或错误n次；
既然对错次数能累计，就应该设置一个按钮“清空记录”用以清除已有对错的累计次数；
没有“计算判断”前不允许“再出一题”。问题2：为什么设计中会有如此的功能考虑？；
算式结果不允许输入非数值。提示：函数isnumeric(s)可判断字符串s是否为数值；
算式默认为加法运算，再添加功能可切换至减法运算。提示：如果使用控件optionbutton来切换加减法，则optionbutton.value=true代表该单选项被选定，此时不仅算式中运算符要改变，“计算判断”中也要相应增加功能。提示：可使用多分支判断语句如下：select case label.captioncase "+"语句块case "-"语句块end select
对于减法算式，若出现“小数-大数”的算式时自动重新生成“大数-小数”的算式。提示：自动重新生成“大数-小数”的算式可使用do...loop循环；
到此为止，该随机题板的应用功能基本设计完整，如要体验性更好，可为各commandbutton添加快捷键，且默认输入位置（即焦点）均在算式结果处，还可同样扩展生成乘除算式且被除数不能为0等。提示：为控件设置焦点如textbox.setfocus即为设置当前焦点在textbox中；
如你觉得设计的题板功能不甚完善，请在上机心得中进行设计的补充，将根据你记录的功能设计或上机心得、窗体及代码设计给予评语或评分！
注：分享我设计的随机题板窗体界面如下。
Private Sub Command1_Click()
If Option1.Value = True Then
MsgBox a & "+" & b & "=" & Str(a + b)
Else
If Option2.Value = True Then
MsgBox a & "-" & b & "=" & Str(a - b)
End If
End If
Text3.SetFocus
End Sub
Private Sub Command2_Click()
Randomize (Time())
If Label1.Caption = "-" Then
Do
a = Rnd(Time()) * 99
b = Rnd(Time()) * 99
Loop While a < b
Else
If Label1.Caption = "+" Then
a = Rnd(Time()) * 99
b = Rnd(Time()) * 99
End If
End If
Text1.Text = Str(a)
Text2.Text = Str(b)
If IsNumeric(Text1.Text) = False Or IsNumeric(Text2.Text) = False Then
MsgBox "生成题目出错！"
Else
Command2.Enabled = False
End If
Text1.Enabled = False
Text2.Enabled = False
Text3.SetFocus
End Sub
Private Sub Command3_Click()
Select Case Label1.Caption
Case "+":
If IsNumeric(Text3.Text) = False Then
MsgBox "答案输入出错！"
Else
If (a + b) = Val(Text3.Text) Then
MsgBox "正确！"
Command2.Caption = "再出一题(ALT+&Q)"
Command2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
s = s + 1
Label4.Caption = "已答对" & s & "道题目！"
Else
MsgBox "错误！"
End If
End If
Case "-"
If IsNumeric(Text3.Text) = False Then
MsgBox "答案输入出错！"
Else
If (a - b) = Val(Text3.Text) Then
MsgBox "正确！"
Command2.Caption = "再出一题(ALT+&Q)"
Command2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
s = s + 1
Label4.Caption = "已答对" & s & "道题目！"
Else
MsgBox "错误！"
End If
End If
End Select
Text3.Text = ""
Text3.SetFocus
End Sub
Private Sub Command4_Click()
s = 0
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Form_Load()
Option1.Value = True
s = 0
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label1.Caption = "+"
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label1.Caption = "-"
End If
End Sub
急!80分求解答大一VB题目(2)
1．Visual Basic程序设计的完整的步骤是 C．可视性程序设计和代码程序设计 2．在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是 B．新建一个工程 3．要求改变窗体的标题时，应当在属性窗口中改变的属性是 A． Caption 4．窗体能响应的事件是 C．Load 5．在以下事件过程...
一道VB程序设计题
输入行数和列数，程序生成随机矩阵，矩阵的每一行元素之和放在该行最后一个位置。程序通过以下步骤实现：首先接收输入的行数和列数。接着，根据输入的行数和列数创建一个数组，并填充随机数。然后，对矩阵每一行的元素求和，将结果存入最后一列。最后，输出整个矩阵。
一道vb程序设计题
设计一个VB程序，用户通过输入五个文本框的数据，计算并显示等边三角形的面积。程序主界面包含一个按钮Command1和五个文本框。五个文本框分别用于输入三角形的三边长、形状以及面积。程序代码如下：Private Sub Command1_Click()Dim A As Single, B As Single, C As Single, S As Single, I As Si...
大学VB题目 请VB高手帮忙 万分感激
把文件保存为 csz.txt,再把扩展名改为 .frm 即最终文件全名为: csz.frm 然后,在装有VB6.0的机器上双击就可以了.VERSION 5.00 Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "猜数字"ClientHeight = 3480 ClientLeft = 45 ClientTop = 330...
vb程序设计题,请高手解答
Vb程序代码如下：Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)Dim c(1000)pa = 0: pb = 0: pc = 0 ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBO...
一个关于vb程序设计的问题
一个简单的VB程序设计案例，利用Timer控件和WindowsMediaPlayer，结合显示时间和操作按钮的控件，实现了一个闹钟功能。下面将详细解释代码逻辑和功能实现。首先，定义一个全局变量nl，用于控制闹钟功能的启用状态。当用户点击“设置闹钟时间”按钮时，程序会检查输入的三个时间值是否为空。如果所有时间值均非空...
Visual Basic程序设计 选择题4 求大神指导~~
1－每个 VB 书籍都讲到 IDE 时，首先是标题栏，然后是菜单栏，然后是工具栏，好像没有讲到状态栏的，所以可能选 C，但是状态栏也是 IDE 的一部分啊，倒是可以不显示菜单栏、工具栏，没法不显示状态栏吧？2－A，先算加减再算关系，所以左边等于11，右边等于－7，所以得到 False。其他为 True。3－...
vb程序设计题求解!!!谢谢各位了!!
min = n_left(1) '求剩下最小的距离 j = 1 '保存剩下最小距离的那组组合的序号 For i = 2 To k '我这里只求了一组解，也许有不同的组合而剩下距离相同的情况 我就没有再列出来的··If min > n_left(i) Then j = i min = n_left(i)End If Next Print "最小剩余组合：...
我是一名VB程序设计学习者,不知道该选什么主题,请各位哥哥姐姐帮帮忙...
或者用vb做一个学习工具管理系统，管理铅笔阿，钢笔啊，圆珠笔啊，橡皮擦阿，课外辅导书啊，课本啊，汉语词典啊。。。之类的学习工具，并且把这些工具的存放位置也弄进取。按类分开，那样的话，在电脑上一看就知道你有多少学习工具，然后养成没种学习工具变动的时候，在电脑上也变动的好习惯，比如铅笔从...
大一程序设计VB题:设计程序,界面如图所示,要求标签控件及标题在窗体上...
Private Sub Form_Load()Label1.FontName = "黑体"Label1.FontSize = 24Label1.FontBold = TrueLabel1.Alignment = 2Label1.Caption = ""End SubPrivate Sub Option1_Click(Index As Integer)Dim KK As IntegerKK = IndexLabel1.Caption = "我是：" & Option1(KK).CaptionEnd Sub ...
