77问答网
所有问题
当前搜索:
vb程序设计实例100
急!关于
VB
,简单的
程序设计
答:
一个简单VB程序设计过程程序设计——编程人员使用程序设计语言设计一个计算机程序。【引例】简单
VB程序设计实例
。功能要求:单击←、→、↑、↓中的任何一个命令按钮,红色小球就会向相应方向移动一定距离。1.3.1程序设计准备1、分析问题根据程序的功能要求,可见程序必须具有以下具体功能。(1)程序必须能够接收程序用户输入...
VB程序设计
题~麻烦帮我编写一下~最好能够解释一下,详细一些~可以发图...
答:
Then For i = 1 To 30 '核对正确率 If Mid(Text1, i, 1) = Mid(Text2, i, 1) Then n = n + 1 '区分大小写 Next '显示结果 Text3 = Format(n / 30 *
100
, "#0.0") & "
帮忙用
vb
写段
程序
答:
Private Sub Command1_Click()Dim s1(9) As String '运动员号码 Dim s2(9) As Single '运动员成绩 '开始定义运动员号码 s1(0) = "011": s1(1) = "095": s1(2) = "233": s1(3) = "246"s1(4) = "008": s1(5) = "476": s1(6) = "476": s1(7) = "173"s1(8) ...
编一
VB程序
,随机产生10个30~
100
(包括30,100)的正整数,求最大值,最小...
答:
Private Sub Command1_Click()Dim a(10)Randomize Dim sum As Integer, min As Integer, max As Integer sum = 0: min =
100
: max = 30 For i = 0 To 9 a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max =...
vb
:编写一
程序
产生10个
100
~200间的随机整数,找出其中的最大数和最...
答:
Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i, min, max As Integer For i = 1 To 10 a(i) = Int((200 -
100
+ 1) * Rnd + 100)Next i max = a(1)min = a(1)For i = 2 To 10 If max < a(i) Then max = a(i)If min > a(i) Then min =...
VB程序设计
里的题目求详细编程,谢谢!
答:
Private Sub Command1_Click()Dim a As Single, b As LongDim n As Long, f As IntegerDim c As Singlef = 1For n = 1 To Val(Text1.Text) b = b * 10 + 3 a = b + 0.3 c = c + a * f f = -fNextLabel2.Caption = cEnd SubPrivate Sub Form_Load()Label1....
VB程序设计
急用 在线等
答:
'下面代??生不重?的随机数Private Sub Command1_Click()Dim a(1 To 20) As Integer, tmp As IntegerDim i As IntegerDim max As IntegerDim maxCount As IntegerDim sRandomize TimerFor i = 1 To 20a(i) = Rnd * 99 + 1Debug.Print a(i)Nextmax = a(1)maxCount = 1For i = ...
VB程序设计
题,求大神解答:用inputbox函数输入一个百分制的成绩,用ms...
答:
参考代码:Option ExplicitPublic Function GetGradeByScore(ByVal Score As Byte) As String If (Score >= 0) And (Score <=
100
) Then Dim strGrade As String Select Case Score Case 90 To 100 strGrade = ChrW$(&H4F18) Case 80 To 89 strGrade = ChrW$(&H826...
大一
VB
使用循环结构编写
程序
,求2+4+6+8+到
100
答:
这个用循环语句计算比较方便,例如 do while 语句 ,do loop语句,for next 语句都可以 for next 语句举例:Private Sub Command1_Click()Dim i%, iSum For i = 0 To 4 Step 2 iSum = i + iSum Debug.Print i Debug.Print Next Debug.Print iSum End Sub 更多帮助请登录www.shangying.com...
VB
编写
程序
,在窗体的加栽事件中,计算1到
100
之间所有偶数的和
答:
Private Sub Form_Load()Dim i As Byte Dim n As Integer n = 0 For i = 2 To
100
Step 2 '不包刮100,就改成99 n = n + i Next msgbox "1到100之间所有偶数的和为:” & n End Sub 还是这样效率要高一点点,循环次数少了一半,循环内还不用判断 ...
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜