vb试题，帮忙做下，谢谢

Posted 2023-03-21

判断题:10道,每道4分,总分40 1.相对于UPD协议而言，TCP协议是一种无连接的协议。 正确错误2.如果希望得到本地计算机的IP地址，可以使用Winsock控件的LocalIP属性。 正确错误3.采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是ADOrs(“学号”)。 正确错误4.VB应用程序中与数据库通信的主要机制称为数据库引擎。 正确错误5.假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是Dim ADOcn As Connection。 正确错误6.Err对象中，用来表示错误描述的属性是Description。 正确错误7.ADO模型中一般可通过Connection对象的Execute方法执行增加、删除、修改SQL语句。 正确错误8.Winsock控件主要用来编制TCP/IP或UDP协议的通话程序。 正确错误9.使用ADO模型时，可通过ActiveConnection属性建立Recordset和Connection对象的连接。 正确错误10.Winsock控件的BytesReceived属性返回接收到的数据，通常使用SendData方法来获取这些数据。 正确错误  单选题:15道,每道3分,总分45 1.VB程序中设置断点的按键是（      ）。 F5键F6键F9键F10键2.当Winsock控件处于关闭状态时，其State属性的值是（    ）。 10263.ADOrs为RecordSet对象，从Table1获取所有记录的语句是（    ）。 ADOrs.New “Select * From Table1”ADOrs.Open “Select * From Table1”ADOrs.Execute “Select * From Table1”ADOrs.Select “Select * From Table1”4.VB中将变量x1声明为Excel应用程序对象的方法是（      ）。 Dim x1 As Excel.ApplicationDim x1 As Excel.WorkbookDim x1 As Excel.WorksheetDim x1 As Excel.Worksheets5.一旦数据到达，将首先触发Winsock控件的（    ）。 DataArrival事件ConnectionRequest事件DataSend事件DataGet事件6.VB程序通常不会产生错误提示的是（      ）。 编译错误实时错误运行时错误逻辑错误7.DAO、RDO和ADO三种数据库对象中采用OLE DB访问数据库的是（    ）。 DAORDOADO以上都不是8.在VB中，Access数据库属于（    ）。 本地数据库网络数据库外部数据库远程数据库9.ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（      ）。  CommandConnectionRecordset Field10.Winsock控件的LocalPort属性的作用是（    ）。 仅返回所有端口仅设置所有端口返回或设置所用端口返回或设置IP地址11.当使用SendData将数据发送到主机后时，将触发的Winsock控件的是（    ）。 SendProgressMouseDownClickKeyPress12.要发送数据，通常使用Winsock控件的（    ）。 SendData方法Listen方法Accept方法GetData方法13.ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（      ）。  CommandConnectionRecordset Field14.On Error Go To ErrLB语句中，ErrLB的含义是（      ）。 行标识符Sub过程名Function过程名错误号15.在VB程序中逐语句调试的键是（　　）。 F8键F9键CtrlF8键CtrlF9键  多选题:5道,每道3分,总分15多选题:5道,每道3分,

我随便做的，仅供参考哈

判断题

1.相对于UPD协议而言，TCP协议是一种无连接的协议。
错误 TCP协议当然是有连接的啦

2.如果希望得到本地计算机的IP地址，可以使用Winsock控件的LocalIP属性。
正确

3.采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是ADOrs(“学号”)。
错误 好像没有这种写法，但是可以直接写 ADOrs！学号

4.VB应用程序中与数据库通信的主要机制称为数据库引擎。
错误 这个不太确定，感觉是不对的，好像Access或者SqlServer这种才叫数据库引擎吧

5.假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是Dim ADOcn As Connection。
错误 应该是Public ADOcn As ADODB.Connection

6.Err对象中，用来表示错误描述的属性是Description。
正确

7.ADO模型中一般可通过Connection对象的Execute方法执行增加、删除、修改SQL语句。
正确

8.Winsock控件主要用来编制TCP/IP或UDP协议的通话程序。
正确

9.使用ADO模型时，可通过ActiveConnection属性建立Recordset和Connection对象的连接。
正确

10.Winsock控件的BytesReceived属性返回接收到的数据，通常使用SendData方法来获取这些数据。
错误 接收数据得用GetData方法

单选题

1.VB程序中设置断点的按键是（ ）。 F5键F6键F9键F10键
F9

2.当Winsock控件处于关闭状态时，其State属性的值是（ ）。 1026
0

3.ADOrs为RecordSet对象，从Table1获取所有记录的语句是（ ）。
ADOrs.New “Select * From Table1”
ADOrs.Open “Select * From Table1”
ADOrs.Execute “Select * From Table1”
ADOrs.Select “Select * From Table1”

ADOrs.Open “Select * From Table1”

4.VB中将变量x1声明为Excel应用程序对象的方法是（ ）。
Dim x1 As Excel.Application
Dim x1 As Excel.Workbook
Dim x1 As Excel.Worksheet
Dim x1 As Excel.Worksheets

Dim x1 As Excel.Application

5.一旦数据到达，将首先触发Winsock控件的（ ）。 DataArrival事件ConnectionRequest事件DataSend事件DataGet事件
DataArrival事件

6.VB程序通常不会产生错误提示的是（ ）。 编译错误 实时错误 运行时错误 逻辑错误
逻辑错误

7.DAO、RDO和ADO三种数据库对象中采用OLE DB访问数据库的是（ ）。 DAORDOADO以上都不是
ADO

8.在VB中，Access数据库属于（ ）。 本地数据库 网络数据库 外部数据库 远程数据库
本地数据库

9.ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ ）。 Command Connection Recordset Field
Connection

10.Winsock控件的LocalPort属性的作用是（ ）。 仅返回所有端口 仅设置所有端口 返回或设置所用端口 返回或设置IP地址
返回或设置所用端口

11.当使用SendData将数据发送到主机后时，将触发的Winsock控件的是（ ）。 SendProgress MouseDown Click KeyPress
SendProgress

12.要发送数据，通常使用Winsock控件的（ ）。 SendData方法 Listen方法 Accept方法 GetData方法
SendData方法

13.ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（ ）。 Command Connection Recordset Field
Recordset

14.On Error Go To ErrLB语句中，ErrLB的含义是（ ）。 行标识符 Sub过程名 Function过程名 错误号
行标识符

15.在VB程序中逐语句调试的键是（　　）。 F8键 F9键 CtrlF8键 CtrlF9键
F8键 参考技术A 与传统的程序设计语言相比，Visual
Basuc最突出的特点是事件驱动编程机制。
正确
欲设置定时器的时间间隔为1秒，则属性的Interval属性设置为1。
错误
用鼠标双击窗体的任何部位都可以激活属性窗口。
错误
可视化编程是指无需编程，仅通过直观的操作方式即可完成界面的设计工作。
正确
MsgBox函数的返回值为整型。
正确
当运行程序时，系统自发执行启动窗体的load事件过程。
正确
.要使标签框的大小随Caption属性作自动调整，应将AutoSize属性设置为true。
正确
能够改变标签（Label）控件显示标题的属性是Name。
错误
面向对象编程方法的基本机制是方法、事件、属性、名称。
错误
应用程序打包后，其包文件的后缀为exe。
错误
一个VB应用程序可以包含几个.vbp文件？（
1个
） Visual
Basic是一种面向对象的可视化编程语言，采取了（
事件驱动
）的编程机制。
如果想让文本框中的内容在运行时不能编辑，需将文本框的（
Locked
）属性设置为True。 Visual
Basic应用程序处于运行模式时，这时（既不能设计界面，也不能编写代码
）。
后缀为.frm的文件表示（
窗体文件
）。
工程文件的扩展名是（
.vbp
）。
VB集成开发环境中用于编写程序代码的窗口是（
代码编辑器窗口
）。
如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（
Mytext.text
）。
假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（
单击窗体上没有控件的地方
）。
VB提供控件的窗口是（
工具箱
）。
计时器控件响应的事件是（Timer
）。
后缀为.cls的文件表示VB
的（类模块文件　　）
如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（
PasswordChar
）属性。
下列正确的赋值语句是（
y=x+20
）。 .在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（
工程资源管理器窗口
）。 对象的性质和状态特性称为（属性
）。
将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（运行的机器上无VB系统
）。
要在窗体Form1内显示“myfrm”，使用的语句是（
Form1.Print
“myfrm”
）。
对于定时器（Timer）控件，设计其定时是否开启的属性是（
Enabled
）。
有程序代码如下：
Text1.Text
=
"欢迎学习VB程序设计"则Text1，Text
，和"欢迎学习VB程序设计"分别代表（
对象，属性，值
）。 多选题：Visual
Basic6.0集成开发环境有三种工作模式，分别是（
）。
设计模式
执行模式
中断模式
关于窗体的Load事件的触发时，错误是（
）。
用户单击窗体时
窗体显示之后
窗体被卸载时
下列属于VB应用程序构成的是（
）。
cls文件
res文件
ocx文件
在Visual
Basic中，关于程序的执行顺序，错误是（
）。
由事件驱动
由代码行的顺序决定
随意执行
对象是代码和数据的集合，例如，Visual
Basic中的（
）等都是对象。
窗体
文本框
命令按钮
标签
以下属于Visual
Basic中变量的数据类型是（
）。
Integer
Double
Variant
Currency
VB6.0集成开发环境的主窗口包括（
）。
标题栏
菜单栏
状态栏
工具栏
下列赋值语句错误的是（
）。
B+C=A
–B=A
2=A+B
在下列有关Visual
Basic的叙述中，正确的是（
）。
采用了事件驱动的编程机制
是面向对象的编程语言
是可视化的程序设计语言
下列控件中，能改变大小的是（
）。
TextBox
Label
PictureBox 参考技术B 就是，支持楼上 参考技术C 这种题还是要自己做。

C#中添加AxWindowsMediaPlayer控件后如何使用 谢谢好心人帮帮忙

利用axWindowsMediaPlayer（Windows Media Player）制作MP3播放器 2
在制作mp3播放器之前，我们需要了解axWindowsMediaPlayer 媒体主要方法属性：
属性/方法名： 说明：
[基本属性] 　
URL:String; 指定媒体位置，本机或网络地址
uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible
playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
//播放器基本控制
Ctlcontrols.play; 播放
Ctlcontrols.pause; 暂停
Ctlcontrols.stop; 停止
Ctlcontrols.currentPosition:double; 当前进度
Ctlcontrols.currentPositionString:string; 当前进度，字符串格式。如“00:23”
Ctlcontrols.fastForward; 快进
Ctlcontrols.fastReverse; 快退
Ctlcontrols.next; 下一曲
Ctlcontrols.previous; 上一曲
[settings] wmp.settings //播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia //当前媒体属性
currentMedia.duration:double; 媒体总长度
currentMedia.durationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述， "Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia
axWindowsMediaPlayer1.currentMedia.sourceURL; //获取正在播放的媒体文件的路径
axWindowsMediaPlayer1.currentMedia.name; //获取正在播放的媒体文件的名称
axWindowsMediaPlayer1.Ctlcontrols.Play　　　　　　　　　　播放
axWindowsMediaPlayer1.Ctlcontrols.Stop　　　　　　　　　　停止
axWindowsMediaPlayer1.Ctlcontrols.Pause　　　　　　　　　 暂停
axWindowsMediaPlayer1.Ctlcontrols.PlayCount　　　　　　　　文件播放次数
axWindowsMediaPlayer1.Ctlcontrols.AutoRewind　　　　　　　是否循环播放
axWindowsMediaPlayer1.Ctlcontrols.Balance　　　　　　　　　声道
axWindowsMediaPlayer1.Ctlcontrols.Volume　　　　　　　　　音量
axWindowsMediaPlayer1.Ctlcontrols.Mute　　　　　　　　　　静音
axWindowsMediaPlayer1.Ctlcontrols.EnableContextMenu　　　　是否允许在控件上点击鼠标右键时弹出快捷菜单
axWindowsMediaPlayer1.Ctlcontrols.AnimationAtStart　　　　是否在播放前先播放动画
axWindowsMediaPlayer1.Ctlcontrols.ShowControls　　　　　　是否显示控件工具栏
axWindowsMediaPlayer1.Ctlcontrols.ShowAudioControls　　　　是否显示声音控制按钮
axWindowsMediaPlayer1.Ctlcontrols.ShowDisplay　　　　　　　是否显示数据文件的相关信息
axWindowsMediaPlayer1.Ctlcontrols.ShowGotoBar　　　　　　　是否显示Goto栏
axWindowsMediaPlayer1.Ctlcontrols.ShowPositionControls　　是否显示位置调节按钮
axWindowsMediaPlayer1.Ctlcontrols.ShowStatusBar　　　　　　是否显示状态栏
axWindowsMediaPlayer1.Ctlcontrols.ShowTracker　　　　　　　是否显示进度条
axWindowsMediaPlayer1.Ctlcontrols.FastForward　　　　　　　快进
axWindowsMediaPlayer1.Ctlcontrols.FastReverse　　　　　　　快退
axWindowsMediaPlayer1.Ctlcontrols.Rate　　　　　　　　　　快进／快退速率
axWindowsMediaPlayer1.AllowChangeDisplaySize　是否允许自由设置播放图象大小
axWindowsMediaPlayer1.DisplaySize　　　　　　　设置播放图象大小
　　　　1-MpDefaultSize　　　　　　　　　原始大小
　　　　2-MpHalfSize　　　　　　　　　　 原始大小的一半
　　　　3-MpDoubleSize　　　　　　　　　 原始大小的两倍
　　　　4-MpFullScreen　　　　　　　　　 全屏
　　　　5-MpOneSixteenthScreen　　　　　 屏幕大小的1/16
　　　　6-MpOneFourthScreen　　　　　　　屏幕大小的1/4
　　　　7-MpOneHalfScreen　　　　　　　　屏幕大小的1/2
axWindowsMediaPlayer1.ClickToPlay　　　　　　　是否允许单击播放窗口启动Media Player
在视频播放之后,可以通过如下方式读取源视频的宽度和高度,然后设置其还原为原始的大小.
private void ResizeOriginal()

int intWidth = axWindowsMediaPlayer1.currentMedia.imageSourceWidth;
int intHeight = axWindowsMediaPlayer1.currentMedia.imageSourceHeight;
axWindowsMediaPlayer1.Width = intWidth + 2;
axWindowsMediaPlayer1.Height = intHeight + 2;

打开媒体文件并播放:
Dim filePath As String
With Me.OpenFileDialog1
.Title = "打开语音文件"
.CheckPathExists = True
.CheckFileExists = True
.Multiselect = False
.Filter = "mp3文件(*.mp3)|*.mp3|所有文件(*.*)|*.*"
If .ShowDialog = DialogResult.Cancel Then
Exit Sub
End If
filePath = .FileName
End With
Me.Text = "PC复读机-文件 " & filePath
AxWindowsMediaPlayer1.URL = filePath
Try
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Catch ex As Exception
MsgBox("对不起，不能播放此格式语音文件", MsgBoxStyle.OKOnly, "PC复读机")
Exit Sub
End Try
注意:
AxWindowsMediaPlayer1.URL 中URL是表示要播放的文件名,取消了原来的Name属性.
AxWindowsMediaPlayer1.Ctlcontrols.play()播放,同样还有Pause,Stop等其他属性.
AxWindowsMediaPlayer1.settings.balance表示媒体播放的声道设置,0表示均衡,-1和1表示左右声道.
AxWindowsMediaPlayer1.currentMedia.duration 表示要播放的文件的时间长度.可用它获取文件长度.
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition表示正在播放的文件的当前播放位置,可用这个属性来对媒体文件进行前进后退等设置.如
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition+1 表示前进1个时间单位.
AxWindowsMediaPlayer1.settings.rate播放速率,一般乘以16后再显示kbps单位.
注意:在上面程序中,如果在后面加上一个：
msgbox(AxWindowsMediaPlayer1.currentMedia.duration.ToString )
则显示结果很可能为0，因此，这时候很可能获取不到文件的播放时间长度，容易出错。所以在利用的时候可以加一个timer控件：
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
EndPoint = AxWindowsMediaPlayer1.currentMedia.duration
If EndPoint = 0 Then Exit Sub \'可能因为媒体文件的打开需要一定时间，这里等待媒体文件的打开
msgbox(AxWindowsMediaPlayer1.currentMedia.duration.ToString )
End Sub
此时msgbox便会显示文件播放长度。
2. Ctlcontrols属性
Ctlcontrols属性是AxWindowsMediaPlayer的一个重要属性， 此控件中有许多常用成员。
(1) 方法play
用于播放多媒体文件，其格式为：
窗体名.控件名.Ctlcontrols.play()
如： AxWindowsMediaPlayer1.Ctlcontrols.play() ‘此处缺省窗体名是Me
(2) 方法pause
用于暂停正在播放的多媒体文件，其格式为：
窗体名.控件名.Ctlcontrols.pause()
如： AxWindowsMediaPlayer1.Ctlcontrols.pause()
(3) 方法stop
用于停止正在播放的多媒体文件，其格式为：
窗体名.控件名.Ctlcontrols.stop()
如： AxWindowsMediaPlayer1.Ctlcontrols.stop()
(4) 方法fastforward
用于将正在播放的多媒体文件快进，其格式为：
窗体名.控件名.Ctlcontrols.fastforward()
如： AxWindowsMediaPlayer1.Ctlcontrols.forward()
(5) 方法fastreverse
窗体名.控件名.Ctlcontrols.fastreverse()
如： AxWindowsMediaPlayer1.Ctlcontrols.fastreverse()
6. 属性CurrentPosition
用于获取多媒体文件当前的播放进度，其值是数值类型，使用格式为：
窗体名.控件名.Ctlcontrols.currentPosition
d1 =AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
其中d1 是一个整型变量。
7. 属性Duration
用于获取当前多媒体文件的播放的总时间，其值为数值类型，其使用格式为：
窗体名.控件名.currentMedia.duration
如：d2 =AxWindowsMediaPlayer1.currentMedia.duration
其中d2是一个整型变量。追问

就是运行这个程序号能执行简单的音乐播放，最好能有代码

追答

你想怎样使它播放音乐？你想播放文件夹里面的歌吗？我做过一个是播放文件夹里的歌的音乐器，但是我只做到播放之后就没做了！要是你需要，我可以发给你看看！

参考技术A 右键点击，属性，有功能菜单，如要播放的音频文件等等。 参考技术B using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace vrrun

class Player

private AxWMPLib.AxWindowsMediaPlayer myPlayer;
private string[] playList;
private int numOfMusic;
private int currentPlay;

public int NumOfMusic

get

return numOfMusic;


public void Pause()

myPlayer.Ctlcontrols.pause();

public WMPLib.WMPPlayState playstate

get

return myPlayer.playState;



public string PlayList(int num)

return playList[num];


public Player(AxWMPLib.AxWindowsMediaPlayer mediaPlayer)

myPlayer = mediaPlayer;
playList = new string[1000];
numOfMusic = 0;


public void AddFile(string path)

if (numOfMusic < 1000)

playList[numOfMusic] = path;
numOfMusic++;



public void DelFile(int selectNum)

for (int i = selectNum; i <= numOfMusic - 1; i++)

playList[i] = playList[i + 1];

numOfMusic--;


public void play(int selectNum)

myPlayer.URL = playList[selectNum];
currentPlay = selectNum;


public int NextPlay(int type)

/* type = 0 顺序

type = 1 重复播放全部
type = 2 重复播放一首
type = 3 随机播放

*/

switch (type)

case 0:
currentPlay++;
if (currentPlay > numOfMusic) return 0;
else return currentPlay;
case 1:
currentPlay++;
if (currentPlay > numOfMusic) return 1;
else return currentPlay;
case 2:
return currentPlay;
case 3:
Random rdm = new Random(unchecked((int)DateTime.Now.Ticks));
currentPlay = rdm.Next() % numOfMusic;
if (currentPlay == 0) return numOfMusic;
else return currentPlay;
default:
return 0;