99问答网
所有问题
当前搜索:
vb程序设计经典例题
谁帮忙
设计
个
vb程序
计算跳水比赛!急~~
答:
Sub aa()Dim a(12)Dim i Dim t, tma, tmi t = 0 tma = 0 tmi = 999999 For i = 1 To 12 lab: s = InputBox("输入第" + CStr(i) + "载判分值", "载判给分:", 9)On Err GoTo lab a(i) = CSng(s)If tma < a(i) Then tma = a(i)If tmi > a(i) Then ...
vb
语句
设计
一个随机数
程序
,生成10个范围是1到100随机整数,并求出这...
答:
'声明变量 dim Min_num as int dim Max_num as int dim Sum_num as int dim Arr_num(9) as int '赋予初始值 Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10个随机数 for i=1 to 10 randomize Arr_num(i-1)=int(rnd*100)+1 '判断后赋值最小值 if Arr_num(i-1)<Min_...
用
VB设计程序
,输出一个100∼200能被3和5整除的数,结果存放在列表框里...
答:
Private Sub Command1_Click()Dim i For i = 100 To 200 If (i Mod 3 = 0) And (i Mod 5 = 0) Then List1.AddItem i Next End Sub
vb程序设计
选择题 求高手解答~!
答:
A. Sin30 B. Sin(30) C. SIN(30°) D. Sin(30*3.14/180) 4. 以下哪一种结构不是Visual Basic语言的循环控制结构是( B )。 A. For结构 B. Select Case结构 C. While结构 D. Do结构 5. 结构化
程序设计
由3种基本结构组成,下面属于3种基本结构之一的是( B )。 A...
VB程序设计
问题求教
答:
Function ish(ByRef n$) as string t = Len(n)For i = 1 To (t - 1) / 2 If Not Mid(n, i, 1) = Mid(n, t + 1 - i, 1) Then ish = ""exit for End If Next i ish = n End Function Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If ...
设计
一个
VB程序
,单击窗体,每单击一下窗体向右移动一下,并且窗体变大...
答:
Dim w As Integer, h As Integer, l As Integer, t As IntegerPrivate Sub Command1_Click()'还原到原始位置和原始尺寸Me.Width = w: Me.Height = h: Me.Left = l: Me.Top = tEnd SubPrivate Sub Form_Click()Me.Left = Me.Left + 100 '向右移动100Me.Width = Me.Width + 100...
vb 程序设计
设变量s的值为“ABCDEFGHIJK” 编程求下列函数
答:
编程很简单啊,我想应该是求这几个函数的执行结果吧?下面是结果 left(s,4)=ABCD Right (s,4)=HIJK mid(s,3,4)=CDEF mid (s,4 )=CDEFGHIJK len (s)=11 instr (s,"EFG") =5 Lcase(Right (s,5))=ghijk len (mid(s,3))=9 ...
vb设计
一个
程序
,用户界面如图所示
答:
Private Sub Command1_Click()Command1.Left = Command1.Left + Val(Text1.Text)End Sub Private Sub Command2_Click()Command2.Top = Command2.Top + Val(Text2.Text)End Sub Private Sub Command3_Click()Command3.Left = Command3.Left + Val(Text1.Text)Command3.Top = Command3.Top ...
两道
vb
编程题
答:
1 Private Sub Form_Load()List1.Clear List1.AddItem ""大学计算机基础""List1.AddItem ""
VB程序设计
""List1.AddItem ""数据库技术与应用""List1.AddItem ""C程序设计""List1.AddItem ""多媒体技术""List1.AddItem ""硬件技术基础""List1.AddItem ""网络技术与应用""List1.AddItem ""WEB...
vb程序设计
:编写一函数,求两数中较大数,利用窗体单击事件给函数传值并...
答:
Private Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" Then Call qiuzhi(CInt(Text1.Text), CInt(Text2.Text))Else MsgBox "请输入两个数"End If End Sub Private Function qiuzhi(ByVal m, n As Integer)Dim max, min As Integer If m > n Then max = m m...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜