为您找到"

帮忙做一下Vb题

"相关结果约100,000,000个

VB期末考试

VB期末考试  我来答 1个回答 #热议# 鹤岗爆火背后的原因是什么?柒超夕6118 2011-01-12 · TA获得超过110个赞知道答主回答量:128 采纳率:100% 帮助的人:31.6万我也去答题访问个人页关注展开全部第一套一、判断题1、Visual Basic程序开发的特点是面向对象的事件驱动。 (√)2、...

在窗体上建立2个列表框和2个命令按钮，将List2控件的Style属性改为1-checkbox，sorted属性改为True，代码如下：Private Sub Command1_Click()If List1.SelCount > 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click()If List2....

做一道VB程序题

'添加控件 Label1、Label2、Label3、Text1、Text2、Command1、Command2 Private Sub Command1_Click()'计算男孩身高 Label3.Caption = (Val(Text1.Text) + Val(Text2.Text)) * 1.08 / 2 End Sub Private Sub Command2_Click()'计算女孩身高 Label3.Caption = (Val(Text1.Text) * 0.923...

急~`请高手帮忙做个VB题

'同时将最大数?最小数?产生的随机数个数及平均值显示在对应的标签中?''生成N个随机数（对应快捷键F4）和数据统计排序（对应快捷键F12）以及退出 3个命令 '要用一个右键弹出菜单实现 '本程序所需控件及相关属性 'Form1的KeyPreview属性设为True '一级菜单标题：菜单名称：vbMenu 设为不...

求VB6.0编程问题,帮忙一下下,做做题,最好六题都回答、、、

第一题 Private Sub Command1_Click()Dim m%, n m = Val(Text1.Text)n = Val(Text2.Text)If m ^ 2 + n ^ 2 > 99 Then Text3.Text = "大于"Else Text3.Text = "小于或等于"End If End Sub 第二题 Private Sub Command1_Click()Dim m%, n m = Val(Text1.Text)n = Val...

求好心人帮做几道vb编程题。。给分求全对。。。

第1题：Dim i As Integer Dim j As Long Dim s As Double s = 0 j = 1 For i = 1 To 10 j = j * i s = s + j Next i Print s 第2题：Dim i As Integer Dim j As Integer Dim H As Integer H = Val(InputBox("输入一个不超过5的正整数："))For i = 1 To H P...

求vb大神帮忙做一道题。要求;只需要要程序写出来,界面的截图;_百度...

基本思路，是把数字作为字符串处理，然后运算的时候，先把它截取成长度一定的（比如4位）若干段，分段转换成数字求和（要考虑进位），然后转换成字符，在连接起来输出：界面如下：代码如下：Option Explicit Private Sub Command1_Click()Dim ssss As String ssss = PPP(Text1.Text, Text2.Text)Text3....

一道VB题目,求各位会的大哥帮忙做下(填空题)

请和你原来的代码比对一下：Option Explicit Private Sub Command1_Click()Dim i As Integer For i = 3 To 200 If prime(i) And prime(i + 2) Then List1.AddItem i & " " & i + 2 '注释：列出孪生素数，两个数用空格分开 End If Next i End Sub Private Sub Command2_Click()Dim...

用vb语言做下面这个题目,谢谢啊

Dim i As Integer Dim j As Integer Randomize Picture1.Cls Text1.Text = ""For i = 0 To 7 '产生8个随机数 a(i) = Rnd() * 100 Text1.Text = Text1.Text & a(i) & " "Next i For i = 8 To 13 '把8个随机数的前7位复制到a(8)-a(13),组成一个0-13的数组...

VB程序设计题(高手帮着做一下啊,是两个简单题)

///第一题，把代码复制就可以了/// Private Sub Form_Click()Cls Dim a(1 To 10) As String '学生姓名 Dim b(1 To 10) As Integer '学生学号 Dim c(1 To 10) As Single '学生成绩 For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个学生姓名：")b(i) = InputBox...

1 2 3 4 5 6 7 8 9