vb题怎么写

1. VB 这道题怎么写语句

1、t1,t2是变量,用于存储临时信息

2、InputBox("请输入身高", , Int(Rnd * 70 + 100)) 是弹出一个输入对话框,"请输入身高",是该对话框显示的提示内容 接着的两个逗号之间的内容本来是该输入对话框的标题 没有就是默认 Int(Rnd * 70 + 100)就是默认值, 这里表示随机出现一个 int 数据 这里他的意思就是 一个人的默认身高为 170-179 cm 可以换成其他的数字

这样也行,只是 输入非数字的话 会出现错误

Private Sub Command1_Click() t1 = InputBox("请输入身高", , ) Text1.Text = int(t1); t2 = InputBox("请输入体重", , ) Text2.Text = int(t2);//忘记VB中 这里要不要加分号了 End Sub

2. 请问这个VB题怎么写呀

hiphotos.baidu.com/zhidao/wh%3D450%2C600/sign=2761f8c95d4e9258a6618eeaa9b2fd6e/b7003af33a87e9501b68e3c11b385343fbf2b41b!

Private Sub Command1_Click()

Dim t As String

t = List1.List(List1.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=1aea7b4286b1cb133e3c3415ed647a76/b7003af33a87e9501b68e3c11b385343fbf2b41b.Caption = &quot.AddItem "

If InStr(Text2;确定&quot

3. 这道VB题的代码怎么写呢

Private Sub Form_Click()

Dim A(1 To 4, 1 To 4) As Integer

Dim s

As String

' 如果需要以“输入”数据的形式,可以用 InputBox 输入

's = InputBox("输入第一行数据(用空格分格): "): GetIn A, 1, s

's = InputBox("输入第二行数据(用空格分格): "): GetIn A, 2, s

's = InputBox("输入第三行数据(用空格分格): "): GetIn A, 3, s

's = InputBox("输入第四行数据(用空格分格): "): GetIn A, 4, s

s = "25 36 78 13": GetIn A, 1, s

s = "12 26 88 93": GetIn A, 2, s

s = "75 18 22 32": GetIn A, 3, s

s = "56 44 36 58": GetIn A, 4, s

Dim i

As Integer

Dim j

As Integer

'1 输出数组对角线上的数:

Cls

Print "第一条对条线"

For i = 1 To 4

Print A(i, i);

Next

Print

Print "第二条对条线"

For i = 1 To 4

Print A(i, 5 - i);

Next

Print

'2 交换第一和第三行

For i = 1 To 4

t = A(1, i)

A(1, i) = A(3, i)

A(3, i) = t

Next

'3 交换第二列和第四列

For i = 1 To 4

t = A(i, 2)

A(i, 2) = A(i, 4)

A(i, 4) = t

Next

'4 输出处理后数组

Print "4 输出处理后数组"

For i = 1 To 4

For j = 1 To 4

Print A(i, j);

Next

Print

Next

End Sub

Private Sub Do1(A() As Integer)

Dim i

As Integer

Cls

Print "第一条对条线"

For i = 1 To 4

Print A(i, i);

Next

Print

Print "第二条对条线"

For i = 1 To 4

Print A(i, 4 - i);

Next

Print

End Sub

Private Sub GetIn(A() As Integer, iRow As Integer, s As String)

On Error Resume Next

Dim i

As Integer

Dim arr

arr = Split(s, " ")

For i = 0 To 3

A(iRow, i + 1) = arr(i)

Next

End Sub

4. VB题怎么做

dim a(8) as integer,i as integer,j as ingeter

for i = 1 to 7 '输入分数

a(i)=inputbox("请输入分数",,0)

next i

for i = 1 to 6 '以下是排序,从小到大

for j = i+1 to 7

if a(i)> a(j) then a(8)= a(j):a(j)=a(i):a(i)=a(8)

next j

next i

a(0)=0

for i = 2 to 6 '以下是从第二个开始到第六个求和,去掉了一个最大值和最小值

a(0) = a(0)+a(i)

next i

text2=a(0) '把结果输入到对话框中

5. 编程,vb,这道题怎么写

Private Sub Command1_Click()Dim a(10) As IntegerDim sum As IntegerDim avg As DoubleDim n As Integern = 0sum = 0For i = 1 To 10 Randomize a(i) = Int(Rnd * 90) + 10 sum = sum + a(i)Next iavg = sum / 10For i = 1 To 10 If a(i) > avg Then n = n + 1 End IfNext iMsgBox ("平均数是" & avg & ",比平均数大的数字有" & n & "个")End Sub。

6. vb编程题代码如何写

Public Function jiecheng(i As Integer) As Double

a = 1

For j = 2 To i

a = a * j

Next j

jiecheng = a

End Function

Private Sub Command1_Click()

Dim i As Integer

Dim e As Double

i = 1: e = 1

While jiecheng(i) < 10000000

e = e + 1 / jiecheng(i)

i = i + 1

Wend

Label1.Caption = e

End Sub

Private Sub Command2_Click()

End

End Sub

7. (此题的VB编程怎么写)

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, x1 As Single, x2 As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If b ^ 2 - 4 * a * c < 0 Then

v = MsgBox("此方程没有实根")

End If

If b ^ 2 - 4 * a * c >= 0 Then

x1 = (-b + S(b ^ 2 - 4 * a * c < 0) / (2 * a))

x2 = (-b - S(b ^ 2 - 4 * a * c < 0) / (2 * a))

Text4.Text = x1

Text5.Text = x2

End If

End Sub

8. 问大家一个关于VB的超简单题

代码:

Private Sub Command1_Click()

Dim s As String

s = InputBox("请输入2个字符")

Print "反向后的结果是:"

Print Right(s, 1) + Left(s, 1)

End Sub

图:

转载请注明出处育才学习网 » vb题怎么写

知识

贺岁怎么写

阅读(121)

本文主要为您介绍贺岁怎么写,内容包括给朋友的除夕贺岁短信该怎么写,给父母的贺岁信怎么写,怎么写贺岁家书500字左右。努力把成绩提高上去.真的.过去种种已经随风而逝,我看到了.我知道我的顽皮刁蛮多么令你们伤透脑筋..你们从不逼我学我不喜

知识

牡蛎子怎么写

阅读(197)

本文主要为您介绍牡蛎子怎么写,内容包括牡蛎的作文,牡蛎杞草用拼音怎么写,周记写烤生蚝怎么写。在平阳一个偏远的小山村,因为挖了一次牡蛎,我获得了前所未有的欢乐。三沙,一个与世外桃源有得一拼的地方。迎着海风,我与弟弟哼着童谣,奔跑在

知识

安吉怎么写呀

阅读(144)

本文主要为您介绍安吉怎么写呀,内容包括安吉繁体字怎么写,安吉的英文名怎么写,用安吉的特色写一段话200字。我的家乡在湖州,湖州有个安吉,安吉是一个美丽的地方,这儿也有许多著名的特产,有竹席、笋干、冬笋等,其中最有名的要算是安吉白茶了。 白

知识

白好事怎么写

阅读(214)

本文主要为您介绍白好事怎么写,内容包括白喜事对联怎么写,白喜事红包怎么写,白喜事的红包应该怎样写。是合在一起写还是分开写呢?合着的有:1.红喜事白喜事红白喜事哭不得笑不得哭笑不得2. 办丧事 行婚礼 哭呼 笑呼 细思量 哭笑不得 辞灵

知识

嘬就怎么写

阅读(142)

本文主要为您介绍嘬就怎么写,内容包括嘬的繁体字怎么写,上海话zuo到底是“作”还是“嘬”啊到底怎么写啊,用力吸的那个zuo怎么写。嘬 chuài 【动】 大口吞食〖swallow〗。如:嘬嘬(疾食貌);嘬嘬(吞食) 叮,咬〖bite〗。如:嘬樘(咬,叮) 刘绍棠《蒲

知识

小偷怎么写的

阅读(152)

本文主要为您介绍小偷怎么写的,内容包括小偷一般长什么样怎么写作文,小偷的偷怎么写,小偷在门前写了#√2/4暗号主要是根号有什么意义呢。大家都知道,社会中经常有一些人不务正业,小偷小摸的,不打工赚钱,却在一些人多的地方乘着某些人不注意,将手

知识

二旁怎么写

阅读(148)

本文主要为您介绍二旁怎么写,内容包括两字拼音怎么写,二年级写字标准,走之旁该怎么写。走之旁由三个部分组成:点、横折弯撇、平捺,分三笔完成。2、点画一般都能搞定,第二笔其实是一个S形。3、第三笔平捺,但是它并不平,而是有一

知识

投诉求怎么写

阅读(166)

本文主要为您介绍投诉求怎么写,内容包括请问一下投诉书怎么写,怎么样来写投诉请求,向公安机关投诉求书该怎么写。投诉书及其格式: 投诉书,权益争议纠纷以后,受害者请求主管机关出面解决时向其递交的书面材料。 二、投诉书主要内容 (一)投诉人的

知识

中字是怎么写

阅读(186)

本文主要为您介绍中字是怎么写,内容包括繁体字中字是怎么写的,中字在田字格怎么写,中字有几种写法。中字在田字格的写法如下:

知识

中的三怎么写

阅读(145)

本文主要为您介绍中的三怎么写,内容包括三中的繁体字怎么写,“”三中的古代写法,写水浒传中三个人物的评价赏析,每个人300字分三篇写要好300字哦。爱的故事男孩和女孩初恋的时候,男孩为女孩折了一千只纸鹤,挂在女孩 的房间里。男孩对女孩说,这

知识

它主格怎么写

阅读(320)

本文主要为您介绍它主格怎么写,内容包括我、你、他、她、它、我们、你们、他\她\它们,主格是怎么写的,他(主格)用英语怎么他(主格)用英语怎么写,它英文怎么写。它:itit,英 [ɪt] 美 [ɪt] pron.它;他;正好是所需的;事实[情况]n.&lt;美俚&gt;傻瓜,笨蛋

知识

倒着写怎么念

阅读(193)

本文主要为您介绍倒着写怎么念,内容包括倒着写的△是什么,怎么读,四倒着写念什么怎么写,拼音中e上面V倒着写的是什么读音。● 爿pánㄆㄢˊ◎ 劈开的成片的木柴。◎ 量词,指商店、田地、工厂等:一~商店。一~水田。English◎ half of tree

知识

日记后面怎么写

阅读(205)

本文主要为您介绍日记后面怎么写,内容包括日记的结尾一般怎么写,怎样才能写好一篇日记可是我不会观察,从小写日记都是流水帐,,日记怎么写。怎么才能写好日记?心一开学的第一篇日记,我看了,大体上是个流水帐,日记写了今日开学,第一节课是什么课,第

知识

颜体百怎么写

阅读(231)

本文主要为您介绍颜体百怎么写,内容包括用颜体写百,天,快,乐字,颜体字从怎么写,颜体安字怎么写。起笔与收笔:关于起笔,求其方圆分明,完美洁净,包世臣称:「起笔处:顺入者无缺峰,逆入者无涨墨。」无缺峰则形状完美,无涨墨则笔画洁净,起笔

知识

vb打印出杨辉三角的代码怎么写啊?它有什么规律哪????

阅读(170)

本文主要为您介绍vb打印出杨辉三角的代码怎么写啊?它有什么规律哪????,内容包括vb打印出杨辉三角的代码怎么写啊它有什么规律哪爱问知识,vb打印出杨辉三角的代码怎么写,谁知道VB输出杨辉三角形的代码怎么写/。Private Sub Form_Click() Con

知识

vb回文数程序怎么写

阅读(645)

本文主要为您介绍vb回文数程序怎么写,内容包括VB判断回文数程序怎么打,VB判断回文数程序怎么打,VB判断回文数程序怎么打。建一个Text1,Text2,Command1。Text1,Text2的Multiline都设置为True。代码如下。Private S

知识

vb代码怎么写

阅读(179)

本文主要为您介绍vb代码怎么写,内容包括vb代码怎么写,VB添加代码怎么写,vb代码怎么写。Private Sub Command1_Click()Text1.Text = Replace(Text1.Text, [要查找的字符

知识

为什么有些rmvb文件手机打不开

阅读(247)

rmvb格式的文件在手机上打不开的原因是:1.手机分辨率与rmvb格式的文件在播放时所支持的分辨率不同,造成rmvb格式的文件在手机上打不开的现象;2.rmvb格式的文件在传输过程中,丢失了重要文本信息或已经损坏,造成rmvb格式的文件在手机上打不开的

知识

vb怎么用

阅读(223)

本文主要为您介绍vb怎么用,内容包括VB怎么用,VB使用循环语句描述“求1500的自然数中不含4的自然数有多少个,VB里怎么用反三角函数请详细点。【datou985】:下载crystal report,然后安装,安装好以后就可以在vb中使用了也可以用crystal report设

知识

TVB电视《降魔的》可以在哪个软件看

阅读(220)

看TVB电视《降魔的》的软件很多,下面推荐5个。1.爱奇艺。爱奇艺,原名奇艺,是一个百度旗下的独立视频网站。2010年4月22日,奇艺正式上线,创始人龚宇担任CEO。2.腾讯视频。腾讯视频致力于打造中国领先的在线视频媒体平台,以丰富的内容,极致的观看

知识

怎么查福建省VB考试成绩

阅读(291)

1.个人查询计算机二级的成绩,首先需要进入网页,在网页搜索输入自己需要查询的具体事件,查询人输入教育部考试中心成绩查询系统,然后便可进入相关页面。2.打开教育部的考试中心系统后,个人需要输入相应的信息,这样便可查询自己的考试结果,注意此

知识

在VB中怎么往text中加垂直滚动条

阅读(242)

1.新建一个Text控件,在控件中存在垂直滚动条需要涉及2个属性。2.设置允许多行文本,否则文字会一直向右,不会换行。3.设置对象有垂直滚动条,这个属性默认是None,垂直要用Vertical,如果垂直水平都要的话就选Both。4.这样就可以使用带垂直滚动条

[/e:loop]