VisualBasic程序设计学习与实验指导

时间：2024.4.30

Visual Basic 程序设计学习与实验指导答案

上篇 学习指导

第1章 Visual Basic 概述

一.选择题

二．填空题

1.事件

2.查看对象

3.工程

4.视图属性窗口

5窗体编辑器

第2章 面向对象程序设计初步

一.选择题

二．填空题

1.控件

2.事件

3.类属性

4.属性

6.Name

第3章 Visual Basic 语言基础

一.选择题

二．填空题

1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1

2.mod

3.X=Int(X) And Y=Int(Y) And X*Y>0

4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0

5.x=Int((99-10+1)*Rnd+10)

6.0 “”

7.空格

8.6，845.30

（1）8

（2）1

（3）abcd

（4）出错，类型不匹配

（5）False

（6）20##-6-29

（7）I likeVB

（8）4

（9）4 4

（10）3 4

（11）10 -10

（12）-1

（13）aa

（14）3

（15）0

（16）1

（17）C

（18）5

（19）8

（20）34.54

（21）中国

（22）上海

（23）VISUAL BASIC

（24）visual basic

10.

（1）x<-100 or x>100

（2）a=Int(a) And b =Int(b) Or a<0 And b<0

（3）x<=y or x>=z

（4）a>0 And a<>Int(a)

（5）a=0 xor b=0

（6）Len(S)<10

（7）UCase(S)=S

（8）Left(S,1)=”a” And Right(S,1)=”a”

（9）Instr(S,”@”)<>0

（10）Trim(S)=S

（11）Date=#8/8/2008#

（12）Weekday(Date)=2

第4章 程序控制结构与算法基础

一.简单填空

1.Randomize

2.N=Int((99-10+1)*Rnd+10)

3.M=(Int((100-10+1)*Rnd+10))/10

4.Exit For

5.Exit Do

二．读程序写结果

1.150 12

2.22 23 -1

3.5 3 0

4.20 40 60

三．程序填空

1. Len(s)

Mid(s,i,1)

c>=”A” And c<=”Z”

c>=”a” And c<=”z”

c>=”0” And c<=”9”

n3=n3+1

2.0

1 n-1

n Mod i=0

sum+i

sum=n

3.1000

CStr(n)

CStr(n*n)

Right(s2,Len(s1))=s1

4.100 200

2 N-1

Exit For

count+1

count Mod 5=0 Print

5.sum=1

a*x^2/((2*n-1)*(2*n))

sum+a

Abs(a)<=0.0000001

下篇 实验教程

实验2 Visual Basic 变量、函数与表达式的使用

实验2-1 算术运算符的使用

-2

20##-10-15

3 2.857143 2.85714285714286

实验2-2 字符运算符的使用

200710

20##

20##-10-1010

20##-10-20

出错，类型不匹配

实验2-3 关系运算符的使用

False

True

False

True

实验2-4 逻辑运算符的使用

True

False

True

False

True

False

-5

实验2-5 常用函数的使用

3.14 3.14

7.38905609893065

1 -1 .999999998205103

-1 1 0

.7055475

25 25

1250 0

A a

65 97

48 68

8 -9

8 -8

9 -9

aaa 4.5 aaa4.5

16 5

Visua 6.0

sua Basic Basic 6.0

abcde EFG

Basic Basic Basic

Visual Basic 6.0 Basic

8 8

aaa dd

20##-3-15

20##-3-15 14:35:52

20##

001.73

1.73

17.32E-01

0173%

实验3 算法基础及程序控制结构

实验3-1 三个数的交换

A=C

C=B

B=T

实验3-2 求周长和面积

Const PI=3.1415926

2*PI*R

PI*R*R

Picture1.Cls

Format(L, ".00")

Format(M, ".00")

实验3-3 求分段函数的值

x=Val(Text1.Text)

y=1+Sin(x)

y=Log(x)

Text1.Text = ""

Text2.Text = ""

实验3-4 求一元二次方程的根

Val(Text2.Text)

Val(Text3.Text)

b ^ 2 - 4 * a * c

"x1=" & (-b + Sqr(delt)) / (2 * a)

"x2=" & (-b - Sqr(delt)) / (2 * a)

Text2.Text = ""

Text3.Text = ""

End

实验3-5 判断素数

N Mod k = 0

k=N

N Mod i=0

k=2

实验3-6 求最大公约数和最小公倍数

M<N

L=M

L=N

M Mod k = 0 And N Mod k = 0

Text3.Text = k

Exit For

M>N

L=M

L=N

k Mod M = 0 And k Mod N = 0

Text4.Text = k

Exit For

实验3-7 判断升序数、降序数

CStr(N)

Len(S) – 1

Mid(S, k, 1) >= Mid(S, k + 1, 1)

k = Len(S)

N = Val(Text1.Text)

S = CStr(N)

For k = 1 To Len(S) - 1

If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For

Next k

k = Len(S)

实验3-8 判断回文数

Len(s)\2-1

Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)

k = Len(S) \ 2

Mid(S, k, 1) + S1

S = S1

实验3-9 求级数的值

Val(Text1.Text)

x ^ n

s * n

t / s <= 10 ^ -6

Text2.Text = y

实验3-10 查找数字串并求和

Text1.Text = ""

Text2.Text = ""

List1.Clear

Text1.Text

False

While Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9"

Flag = True

k = k * 10 + Mid(s, i, 1)

i = i + 1

Flag = True

sum + k

Text2.Text = sum

实验3-11 随机产生20个奇数

Int((99 - 10 + 1) * Rnd) + 10

a Mod 2 = 1

n Mod 5 = 0

Picture1.Cls

实验3-12 加密解密

Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)

c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26)

c & s2

Text2.Text

Len(s2)

Mid(s2, i, 1)

c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26)

c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26)

c & s1

Text1.Text = ""

Text2.Text = ""

实验3-13 统计单词个数

Text1.Text

Mid(s, i, 1) <> " " And i <= Len(s)

i = i + 1

Mid(s, start, i - start)

Text1.Text = ""

List1.Clear

实验4 数组的使用

实验4-1 一维数组的产生及输出

i = 1 To 20

Int((9 - 0 + 1) * Rnd + 0)

i = 1 To 20

Print a(i);

i = 1 To 20

Picture1.Print a(i);

If i Mod 5 = 0 Then Picture1.Print

i = 1 To 20

Text1.Text & Space(2) & a(i)

If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf

v In a

If i Mod 5 = 0 Then Picture2.Print

实验4-2 选手得分

Int((50 - 10 + 1) * Rnd + 10) / 10

i = 1 To 6

sum = sum + score(i)

max = score(1)

min = score(1)

score(i) > max Then max = score(i)

score(i) < min Then min = score(i)

(sum - max - min) / 4

实验4-3 产生10个互不相同的整数

Int((999 - 10 + 1) * Rnd + 10)

t Mod 10 = 5

Then Exit For

n= n + 1

a(i) = t

For i = 1 To 10

Print a(i);

If i Mod 5 = 0 Then Print

Next i

实验4-4 统计数字出现的次数

IsNumeric(S) = False

Exit Sub

Len(S)

c >= "0" And c <= "9"

A(c) = A(c) + 1

A(k) <> 0

m = m + 1

实验4-5 排序

1 To 10

Int((99 - 10 + 1) * Rnd + 10)

Text1.Text & A(n) & " "

1 To 9

i + 1 To 10

A(i) > A(j)

T = A(j)

A(j) = A(i)

A(i) = T

1 To 9

10 - i

A(j) > A(j + 1)

T = A(j + 1)

A(j + 1) = A(j)

A(j) = T

1 To 10

Text3.Text = Text3.Text & A(i) & " "

T = A(i)

i - 1

k + 1

1 To 10

Text4.Text = Text4.Text & A(i) & " "

实验4-6 二维数组的产生及输出

1 To 4

1 To 5

Int((9 - 0 + 1) * Rnd + 0)

1 To 4

1 To 5

Print A(i, j);

1 To 4

1 To 5

Picture1.Print A(i, j);

Picture1.Print

1 To 4

1 To 5

Text1.Text = Text1.Text & A(i, j) & " "

Text1.Text = Text1.Text & vbCrLf

实验4-6 查找最大和最小元素及其位置

1 To 3

1 To 4

A(i, j) = Int((99 - 10 + 1) * Rnd + 10)

Picture1.Print A(i, j);

Picture1.Print

A(1, 1)， 1， 1

A(i, j)

A(i, j) < min

A(i, j)

"最大元素" & "A(" & maxi & "," & maxj & ")=" & max

"最小元素" & "A(" & mini & "," & minj & ")=" & min

实验4-7 矩阵转置

Dim A() As Integer

"请输入N的值"

ReDim A(N, N) As Integer

For i = 1 To N

For j = 1 To N

A(i, j) = Int((99 - 10 + 1) * Rnd + 10)

Text1.Text = Text1.Text & A(i, j) & " "

Next j

Text1.Text = Text1.Text & vbCrLf

Next i

t = A(i, j)

A(i, j) = A(j, i)

A(j, i) = t

For i = 1 To N

For j = 1 To N

Text2.Text = Text2.Text & A(i, j) & " "

Next j

Text2.Text = Text2.Text & vbCrLf

Next i

实验6 界面设计

实验6-1 用户登陆

MsgBox "请登录！"

PassWordInput=TxtPassW.Text

UserIdInput=UserId And PassWordInput=PassWord

CmdReset_Click

实验6-2 学籍登记

OptXb(0).Value = True

List1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)

List1.RemoveItem List1.ListIndex

实验6-3 字体格式设置

Select Case OpFont

Check2.Value = 1

OpColor = Index

OpFont = Index

实验6-4 兴趣调查

List1.AddItem Item

End

Select Case Index

Item = Text1.Text

实验6-5 调色板

更多相关推荐：

C++程序设计实验报告: C++程序设计实验报告学号：姓名：班级：指导老师：实验一、字符和格式的输出实验一，实验目的1、重点把握各种内部数据类型、数值和逻辑运算，各种表达式、函数声明、定义和调用。2、掌握过程控制编程方法，正确编制多重循…
C程序设计实验报告: C语言程序设计实验报告学号不告诉你哦班级信管一班姓名你猜猜哈哈一实验题目一编程实验猜数问题输入两个整数并求这两个整数的和输入所猜的结果如果输入数比正确的结果要大提示猜大了如果输入数比正确的结果要小提示猜小了当猜...
实验三最简单的C程序设计实验报告: 实验三最简单的程序设计一实验目的1掌握语言中使用最多的一种语句赋值语句的使用方法2掌握各种类型数据的输入输出方法能正确使用各种格式输出符二实验内容和步骤掌握各种格式输出符的使用方法includeltstdioh...
C程序设计综合实验报告: 华北科技学院计算机系综合性实验实验报告课程名称C程序设计实验学期20xx至20xx学年第二学期学生所在系部年级专业班级学生姓名学号任课教师孙改平实验成绩计算机系制华北科技学院计算机系综合性实验报告C程序设计课程...
C程序设计实验报告5: 工学院工业设计专业10级20xx至20xx学年度第1学期学号2104021638姓名杨芹芹20xx年9月22日第34节综合楼325教室
《C语言程序设计》课程实验报告: 《C语言程序设计》课程实验报告学院名称：建筑工程学院专业年级：土木104学生姓名：学号：联系电话：Email:2010年4月13日
C程序设计实验报告3-: 院专业20xx级20xx至20xx学年度第1学期学号姓名20xx年10月8日第34节综合楼325教室

C程序设计教程与实验吉顺如主编实验报告4参考答案: 实验四选择结构程序设计解答1改错题1下列程序的功能为输入1个字母如果它是小写字母则首先将其转换成大写字母再输出该字母的前序字母该字母该字母的后序字母例如输入g则输出FGH输入a则输出ZAB输入M则输出LMN输入...
C循环结构程序设计实验报告: 韩师实验五循环结构程序设计实验时间20xx507同组人员实验目的1熟悉掌握用while语句dowhile语句和for语句实现循环的方法2掌握在程序设计中用循环的反方法实现一些常用的算法3进一步学习调试程序实验内...
C程序设计实验指导: C语言程序设计实验指导韶关学院计算机科学学院庄景明课程性质非独立设置的实验课课程类别专业基础课学时学分总学时72总学分4实验学时18实验学分1适用专业计算机科学与技术信息管理与信息系统专业层次本科专科第一部分上...
C程序设计实验指导: C语言程序设计实验指导韶关学院计算机科学学院庄景明课程类别专业基础课学时学分总学时72总学分4实验学时18实验学分1适用专业计算机科学与技术信息管理与信息系统专业层次本科第一部分上机实验的指导思想和要求1上机实...
C程序设计综合性实验报告模版: C程序设计综合性实验实验报告题目学生成绩管理姓名班级学号指导教师完成时间一实验题目学生成绩管理二实验目的1掌握一维数组二维数组的使用方法2掌握结构体数组的定义和使用3综合应用数据文件的读写语句保存结构体数组中的...

热门关注

《C语言程序设计》-综合性实验实验报告(参考格式)

C语言程序设计实验报告——张蒙蒙

深圳大学C程序设计Lab Assignment3实验报告(四则运算)