VB高手求解 程序设计基础题 O(∩_∩)O谢谢

1

"ABCDE " > " ABRA " 结果=True

2

ch=”AABCDEFGH”

print mid(right(ch,6),len(left(ch,4)),2)

结果：FG

3

a=”Visual Basic Programming”

b=”Quick”

c=b&Ucase(mid(a,7,6))&right(a,12)

变量c的值为：Quick Basic Programming

4

print chr(65)

结果：A

5

print sgn(2)

结果：1

6

s=”ABCDEFGHIJK”

print left(s,4)

print right(s,4)

结果：

ABCD

HIJK

四、转换题

将下列数学算式写成在VB中对应的表达式

15+(a+b)2

5+(a+b)2

2cos(x)(sin(x)+1)

如果x以“度”为单位：

cos(x314159/180)sin(x314159/180)+1)

3e2+2

如果e2是指e平方的话：

exp(2)+2

42a(7+b)

2a(7+b)

58e3•ln2

如果8e3是科学计数法表示的话：（若是e的3次方则按上一题，表示为exp(3))

8000log(2)

基本要求 1 掌握算法的基本概念。 2 掌握基本数据结构及其 *** 作。 3 掌握基本排序和查找算法。 4 掌握逐步求精的结构化程序设计方法。 5 掌握软件工程的基本方法，具有初步应用相关技术进行软件开发的能力。 6 掌握数据的基本知识，了解关系数据库的设计。 考试内容 一、 基本数据结构与算法 1 算法的基本概念；算法复杂度的概念和意义（时间复杂度与空间复杂度）。 2 数据结构的定义；数据的逻辑结构与存储结构；数据结构的图形表示；线性结构与非线性结构的概念。 3 线性表的定义；线性表的顺序存储结构及其插入与删除运算。 4 栈和队列的定义；栈和队列的顺序存储结构及其基本运算。 5 线性单链表、双向链表与循环链表的结构及其基本运算。 6 树的基本概念；二叉树的定义及其存储结构；二叉树的前序、中序和后序遍历。 7 顺序查找与二分法查找算法；基本排序算法（交换类排序，选择类排序，插入类排序）。 二、 程序设计基础 1 程序设计方法与风格。 2 结构化程序设计。 3 面向对象的程序设计方法，对象，方法，属性及继承与多态性。 三、 软件工程基础 1 软件工程基本概念，软件生命周戎概念，软件工具与软件开发环境。 2 结构化分析方法，数据流图，数据字典，软件需求规格说明书。 3 结构化设计方法，总体设计与详细设计。 4 软件测试的方法，白盒测试与黑盒测试，测试用例设计，软件测试的实施，单元测试、集成测试和系统测试。 5 程序的调试，静态调试与动态调试。 四、 数据库设计基础 1 数据库的基本概念：数据库，数据库管理系统，数据库系统。 2 数据模型，实体联系模型及E-R图，从E-R图导出关系数据模型。 3 关系代数运算，包括集合运算及选择、投影、连接运算，数据库规范化理论。 4 数据库设计方法和步骤：需求分析、概念设计、逻辑设计和物理设计的相关策略。 考试方式 1、 公共基础的考试方式为笔试，与C语言（VisualBASIC、Visual FoxPro、Java、Access、Visual C++）的笔试部分合为一张试卷。公共基础部分占全卷的30分。 2、 公共基础知识有10道选择题和5道填空题。 >

第一章 VB程序设计概述

二、选择题

CADAB ACDAB CBDBB

第二章 VB可视化编程基础

二、选择题

ABDCA CACBC DADAD BDBBB

三、填空题

1可视 2LEFT TOP WIDTH HEIGHT

3按字母序 4查看代码 5工具、选项

6Form1 Font 7Multiline

8只读属性

9工程 属性 通用 Form1show

10tabindex 0

第三章 VB语言基础

二、选择题

BCADB ADBBC DBCBA BAABB

三、填空题

1整型、长整型、单精度、双精度

2sin(30314/180)+sqr(x+exp(3))/abs(x-y)-log(3x)

3160 今天是：3-22

4False

5-4 3 -3 3 -4 4

6“CDEF”

7(x mod 10)10+x\10

8(35\20)20=20 ( 35 \ 20 ) 20 = 20

9x mod 3=0 or x mod 5=0

10276 82 8 1 100 397 true false

第四章 VB程序控制结构

二、选择题

DBCAD ABBAB D25BAC CBACB DAABC

三、填空题

1正确性、有穷性、可行性、有输入、有输出

21 2 3

3x>7

4x<amin 51024 611 712 86 I “”;

90 100 i+1 102I 6 “”;

三、编程题

1 Private Sub Form_Click()

Dim n As Integer, i As Integer, s As Long

s = 1

n = Val(InputBox("请输入一个整数:"))

For i = 1 To n

s = s i

Next i

MsgBox n & "！=" & s

End Sub

2．Private Sub Form_Click()

Dim i%, k%

For j = 3 To 100

k = Int(Sqr(j))

For i = 2 To k

If j Mod i = 0 Then Exit For

Next i

If i > k Then

y$ = y$ & " " & j

End If

Next j

MsgBox y, , "显示质数"

End Sub

3．Private Sub Form_Click()

Dim i%, s%

For i = 1 To 100

s = s + i

Next i

MsgBox "1+2+3+……+100=" & s

End Sub

4．Private Sub Form_Click()

Dim x%, y%

For x = 1 To 50

For y = 1 To 33

z = 100 - x - y

If 2 x + 3 y + 05 z = 100 Then

Print "小鸡、公鸡、母鸡分别为："; x; y; z

End If

Next y

Next x

End Sub

5Private Sub Command1_Click()

Dim a%, b%, c%, p!, s!

do

a = Val(InputBox("请输入三角形的第一条边"))

if a=-1 then exit do

b = Val(InputBox("请输入三角形的第二条边"))

c = Val(InputBox("请输入三角形的第三条边"))

If a + b > c And a + c > b And b + c > a Then

p = (a + b + c) / 2

s = Sqr(p (p - a) (p - b) (p - c))

Print s

Else

MsgBox "你输入的三边不能构成三角形，请重新输入"

End If

loop

End Sub

6 Private Sub Form_Click()

Dim i As Integer, j As Integer,k as integer

For i = 1 To 8

For k=1 to 8-i

Print spc(3);

Next k

For j = 1 To 2 i - 1

Print i;

Next j

Print

Next i

End Sub

7 Private Sub Form_Click()

Dim i As Integer, j As Integer, k As Integer

For i = 1 To 30

For j = 1 To 30

For k = 1 To 30

If i ^ 2 + j ^ 2 = k ^ 2 Then

Print i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"

End If

Next k

Next j

Next i

End Sub

8．Private Sub Form_Click()

Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String

ss = ""

For x = 100 To 999

a = Int(x / 100)

b = Int((x - 100 a) / 10)

c = x - 100 a - 10 b

If a ^ 3 + b ^ 3 + c ^ 3 = x Then

ss = ss & " " & x

End If

Next x

Print ss

End Sub

9．Dim sr As Long, r As Single

sr = Val(InputBox("请输入收入："))

Select Case sr

Case Is < 200

r = 0

Case 200 To 400

r = (sr - 200) 004

Case 400 To 5000

r = sr 004

Case Is >= 5000

r = sr 005

End Select

Print "收入为" & sr & "时所缴纳的税为：" & r

End Sub

10Private Sub Form_Click()

Dim t As Single, wf As Single

t = Val(InputBox("请输入上网时间:"))

Select Case t

Case Is < 10

wf = 50

Case 10 To 60

wf = t 6

Case Is >= 60

wf = t 4

End Select

If wf >= 200 Then

wf = 200

End If

Print "上网时间为" & t & "小时上网的费用为：" & wf

End Sub

11 Private Sub Form_Click()

Dim yf As Integer

yf = Val(InputBox("请输入月份"))

Select Case yf

Case 12, 1, 2

MsgBox yf & "月份是冬季"

Case 3, 4, 5

MsgBox yf & "月份是冬季"

Case 6, 7, 8

MsgBox yf & "月份是冬季"

Case 9, 10, 11

MsgBox yf & "月份是冬季"

Case Else

MsgBox "输入错误，请重新输入"

End Select

End Sub

12if的方法

Private Sub Form_Click()

Dim x As Single, f As Single

x = Val(InputBox("请输入一个数"))

If x < 0 Then

f = 2 x - 1

ElseIf x = 0 Then

f = 4 x

ElseIf x > 0 Then

f = 7 x - 5

End If

Print "f(" & x & ")=" & f

End Sub

Select case语句：

Private Sub Form_Click()

Dim x As Single, f As Single

x = Val(InputBox("请输入一个数"))

Select Case x

Case Is < 0

f = 2 x - 1

Case 0

f = 4 x

Case Is > 0

f = 7 x - 5

End Select

Print "f(" & x & ")=" & f

End Sub

第五章 数组

一、选择题

DCACD DBCDC BADAD

二、填空题

1名称 Index 2preserve 3变体 42

3

51 2 3 1 4 1 61 2 3 2 4 6 7 max max=arr1(i)

三、编程题

1 Option Base 1

Private Sub Form_Click()

Dim a(10) As Integer, i%, temp%

For i = 1 To 10

a(i) = Val(InputBox("请输入第" & i & "个整数"))

Next i

能将高级语言编写的源程序转换成目标程序的是（B、编译程序）。

以下类型选项中，不属于C语言的类型是（A、signed short）

下列叙述中，合法的C语言赋值语句是（B、i++;）。

若变量c为char类型，能正确判断出c为小写字母的表达式为（D、(c>='a')&& (c<='z')）。

若有int a[4][5];则数组a包含的元素个数是（D、20）。

在主函数中定义的变量（A、只有主函数中有效。）。

若有func((v1,v2),(v3,v4,v5),v6)调用，说明函数func有（A、3）个参数。

若有int a[10];p=a;，则（C、p++可以使p指向下一元素，即a[1]的首地址。）。

设有数组定义：char array[]="Chian";，则数组所占有的存储空间为（B、6）个字节。

下列函数中，不能用于对文件进行输入输出 *** 作的是（B、printf()  ）。

思路:

通过while循环来 *** 作，条件是输入的数值大于0就执行循环体的内容

例如7027大于0进入循环体，然后通过取余

7027%10取出来的数字进行判断是否为7，是的话计数一次

然后7027/10得到的值就是702。再判断这个值是否大于0

最后当值为7的时候再进入循环，计数一次，此时7/10就是0，循环不成立结束循环，此时就知道了7总共出现了几次

printf(“\101\x42C\n”);

\101是‘A’

\x42是‘B’

输出ABC

以上是转义字符，\是转义符号，其后可跟8进制数或16进制数来表示相应的ASCII字符，格式为：

\nnn 三位8进制

\xaa 以x开头，二位16进制数

以上就是关于VB高手求解 程序设计基础题 O(∩_∩)O谢谢全部的内容，包括:VB高手求解 程序设计基础题 O(∩_∩)O谢谢、程序设计有什么内容、求《程序设计基础》课后题答案等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！