vb,,选择加综合操作,个人意见

时间：2020-11-25 11:55:08 来源：蒲公英阅读网 本文已影响人

相关热词搜索：意见 操作 选择

　1、下面（ A ）是合法的变量名。

　A、X_YZ B、123ABC C、integer D、X-Y --------------------------------------------------------------------------------------

　2、工程文件的扩展名为（C

　）。

　A、.frx B、.bas C、.vbp D、.frm --------------------------------------------------------------------------------------

　3、设置（ A ）属性可以使图片显示在图片框或影像框中。

　A、Picture B、Image C、Icon D、DownPicture --------------------------------------------------------------------------------------

　4、已知 A$=”12345678” 则表达式 Val(Left$(A$,4)+Mid(A$,4,2))的值为（ B ）。

　A、123456 B、123445 C、8 D、6 --------------------------------------------------------------------------------------

　5、通用对话框控件所不具有的属性为（A

　）。

　A、BackColor B、FileName C、Flags D、Filter --------------------------------------------------------------------------------------

　6、在下面程序运行时键入 2，则该程序的运行结果是（ C ）。

　Private sub command1_click() X=inputbox(“请输入一个整数”) Select case x

　 Case Is<-3

　Print (x+1)/(x+3)

　 Case –3 To 3

　Print x*x+1

　 Case Is>3

　 Print (x+1)/(x-3) End select End sub

　A、2 B、0.6 C、5 D、-3 --------------------------------------------------------------------------------------

　7、在程序中执行 Close 命令，其作用是（ D

　）。

　A、关闭当前正在使用的一个文件 B、关闭第一个打开的文件 C、关闭最近一次打开的文件 D、关闭所有文件 --------------------------------------------------------------------------------------

　8、在任何情况下，（D

　）控件在运行时都不可见。

　A、标签 B、按钮 C、复选框 D、定时器 --------------------------------------------------------------------------------------

　9、在参数传递过程中，使用关键字（ A ）来修饰参数，可以使之按值传递。

　A、ByVal B、ByRef C、Value D、Reference --------------------------------------------------------------------------------------

　10、窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界（ B ）。

　A、下界必须为 1 B、缺省的下界为 1 C、下界必须为 0 D、缺省的下界为 0 --------------------------------------------------------------------------------------

　11、滚动条的（ B ）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

　A、LargeChange B、SmallChange C、Value D、Change --------------------------------------------------------------------------------------

　 12、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（ A ）。

　A、File1.Path=Dir1.Path B、Dir1.Path =File1 .Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path --------------------------------------------------------------------------------------

　13、选中单选按钮控件时，Value 属性的值为（ A ）。

　A、真 B、假 C、0 D、1 --------------------------------------------------------------------------------------

　14、以下说法中不正确的是（ C

　）。

　A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑 --------------------------------------------------------------------------------------

　15、下列（ B ）对象具有编辑功能，即运行时可以进行输入或修改。

　A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签 --------------------------------------------------------------------------------------

　16、表达式 16/4-2^5*8/4 MOD 5\2 的值为（ B ）。

　A、14 B、4 C、20 D、2 --------------------------------------------------------------------------------------

　17、文本框中输入一个字符，下列 （C

　）事件不会发生。

　A、Change B、KeyPress C、mousemove D、KeyDown --------------------------------------------------------------------------------------

　 18、要为按钮设计一个访问键 A，应该在 Caption 中加入（A

　）。

　A、&A B、@A C、$A D、#A --------------------------------------------------------------------------------------

　19、要使 Shape 控件以实心方式填充，应设置（B

　）属性。

　A、FillColor B、FillStyle C、ForeColor D、BackStyle --------------------------------------------------------------------------------------

　20、在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：

　Private Sub Command1_Click()

　Dim i As Integer,n As Integer

　For i=0 To 50

　 i=i+3

　 n=n+1

　 If i>10 Then Exit For

　Next

　Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ C ）。

　A、2 B、3 C、4 D、5 1、下面（ A ）是合法的变量名。

　A、X_YZ B、123ABC C、integer D、X-Y --------------------------------------------------------------------------------------

　2、控件在窗体上的上下位置由下列（A

　）属性决定。

　A、Top B、Left C、Width D、Height

　--------------------------------------------------------------------------------------

　3、要删除 Picturebox 中的图片应当使用（B

　）。

　A、选中控件，按<del>键 B、picture1.picture=loadpicture(“”)语句 C、picture1.cls 方法 D、picture1.enabled=false 语句 --------------------------------------------------------------------------------------

　4、已知 A$=”12345678” 则表达式 Val(Left$(A$,4)+Mid(A$,4,2))的值为（ B ）。

　A、123456 B、123445 C、8 D、6 --------------------------------------------------------------------------------------

　5、通用对话框控件所不具有的属性为（ A ）。

　A、BackColor B、FileName C、Flags D、Filter --------------------------------------------------------------------------------------

　6、在下面程序运行时键入 2，则该程序的运行结果是（ C ）。

　Private sub command1_click() X=inputbox(“请输入一个整数”) Select case x

　 Case Is<-3

　Print (x+1)/(x+3)

　 Case –3 To 3

　Print x*x+1

　 Case Is>3

　Print (x+1)/(x-3) End select End sub

　A、2 B、0.6 C、5 D、-3 --------------------------------------------------------------------------------------

　7、在程序中执行 Close 命令，其作用是（ D

　）。

　A、关闭当前正在使用的一个文件

　B、关闭第一个打开的文件 C、关闭最近一次打开的文件 D、关闭所有文件 --------------------------------------------------------------------------------------

　8、在任何情况下，（D

　）控件在运行时都不可见。

　A、标签 B、按钮 C、复选框 D、定时器 --------------------------------------------------------------------------------------

　9、在参数传递过程中，使用关键字（A

　）来修饰参数，可以使之按值传递。

　A、ByVal B、ByRef C、Value D、Reference --------------------------------------------------------------------------------------

　10、语句 Dim A(-3 to 5)As Integer 定义的数组的元素个数是（ D ）。

　A、6 B、7 C、8 D、9 --------------------------------------------------------------------------------------

　11、滚动条的（ B ）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

　A、LargeChange B、SmallChange C、Value D、Change --------------------------------------------------------------------------------------

　12、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A

　）。

　A、File1.Path=Dir1.Path B、Dir1.Path =File1 .Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path --------------------------------------------------------------------------------------

　13、选中单选按钮控件时，Value 属性的值为（A

　）。

　A、真 B、假

　C、0 D、1 --------------------------------------------------------------------------------------

　14、以下说法中不正确的是（ C

　）。

　A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑 --------------------------------------------------------------------------------------

　15、下列（B ）对象具有编辑功能，即运行时可以进行输入或修改。

　A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签 --------------------------------------------------------------------------------------

　16、表达式 16/4-2^5*8/4 MOD 5\2 的值为（B

　）。

　A、14 B、4 C、20 D、2 --------------------------------------------------------------------------------------

　17、要使文本框显示滚动条，需先设置（ B ）属性。

　A、AutoSize B、MultiLine C、Alignment D、ScrollBars --------------------------------------------------------------------------------------

　18、要为按钮设计一个访问键 A，应该在 Caption 中加入（ A ）。

　A、&A B、@A C、$A D、#A --------------------------------------------------------------------------------------

　19、要使 Shape 控件以实心方式填充，应设置（B

　）属性。

　A、FillColor B、FillStyle C、ForeColor

　D、BackStyle --------------------------------------------------------------------------------------

　20、若要处理一个值为 50000 的整数，应采用哪种 VB 基本数据类型描述更合适？（B

　）

　A、Integer B、Long C、Single D、String --1、工程文件的扩展名为（

　C）。

　A、.frx B、.bas C、.vbp D、.frm --------------------------------------------------------------------------------------

　2、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A

　）。

　A、File1.Path=Dir1.Path B、Dir1.Path =File1 .Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path --------------------------------------------------------------------------------------

　3、在任何情况下，（ D ）控件在运行时都不可见。

　A、标签 B、按钮 C、复选框 D、定时器 --------------------------------------------------------------------------------------

　4、下面（A

　）是合法的变量名。

　A、X_YZ B、123ABC C、integer D、X-Y --------------------------------------------------------------------------------------

　5、要使 Shape 控件以实心方式填充，应设置（B

　）属性。

　A、FillColor B、FillStyle C、ForeColor D、BackStyle --------------------------------------------------------------------------------------

　6、下列程序段的执行结果为（ A ）。

　X=2

　Print X+1；X+1

　A、3

　3 B、X+1

　X+1 C、3

　4 D、2+1

　2+1 --------------------------------------------------------------------------------------

　7、以下说法中不正确的是（ C

　）。

　A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑 --------------------------------------------------------------------------------------

　8、通用对话框控件所不具有的属性为（ A ）。

　A、BackColor B、FileName C、Flags D、Filter --------------------------------------------------------------------------------------

　9、下列（B

　）对象具有编辑功能，即运行时可以进行输入或修改。

　A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签 --------------------------------------------------------------------------------------

　10、由“For i=1 To 16 Step 3”决定的循环结构被执行（ C ）次。

　A、4 B、5 C、6 D、7 --------------------------------------------------------------------------------------

　11、在下面程序运行时键入 2，则该程序的运行结果是（ C ）。

　Private sub command1_click() X=inputbox(“请输入一个整数”) Select case x

　 Case Is<-3

　 Print (x+1)/(x+3)

　 Case –3 To 3

　Print x*x+1

　 Case Is>3

　Print (x+1)/(x-3) End select End sub

　A、2 B、0.6 C、5 D、-3 --------------------------------------------------------------------------------------

　12、复选框的 Value 属性为 1 时，表示（ B）。

　A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有误 --------------------------------------------------------------------------------------

　13、要为按钮设计一个访问键 A，应该在 Caption 中加入（ A ）。

　A、&A B、@A C、$A D、#A --------------------------------------------------------------------------------------

　14、设置（A

　）属性可以使图片显示在图片框或影像框中。

　A、Picture B、Image C、Icon D、DownPicture --------------------------------------------------------------------------------------

　15、要使文本框显示滚动条，需先设置（B

　）属性。

　A、AutoSize B、MultiLine C、Alignment D、ScrollBars --------------------------------------------------------------------------------------

　16、Integer 类型的变量可存的最大整数是（ D ）。

　A、255

　B、256 C、32768 D、32767 --------------------------------------------------------------------------------------

　17、在参数传递过程中，使用关键字（A

　）来修饰参数，可以使之按值传递。

　A、ByVal B、ByRef C、Value D、Reference --------------------------------------------------------------------------------------

　18、语句 Dim A(-3 to 5)As Integer 定义的数组的元素个数是（ D ）。

　A、6 B、7 C、8 D、9 --------------------------------------------------------------------------------------

　19、滚动条的（ B ）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

　A、LargeChange B、SmallChange C、Value D、Change --------------------------------------------------------------------------------------

　20、表达式 16/4-2^5*8/4 MOD 5\2 的值为（ B ）。

　A、14 B、4 C、20 D、2 ----1、通用对话框控件所不具有的属性为（A

　）。

　A、BackColor B、FileName C、Flags D、Filter --------------------------------------------------------------------------------------

　2、形状控件所显示的图形不可能是（ D ）。

　A、圆 B、椭圆 C、圆角正方形 D、等边三角形 --------------------------------------------------------------------------------------

　 3、要使文本框显示滚动条，需先设置（B

　）属性。

　A、AutoSize B、MultiLine C、Alignment D、ScrollBars --------------------------------------------------------------------------------------

　4、当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在 Dir1_change 事件过程中使用的命令是（A

　）。

　A、File1.Path=Dir1.Path B、Dir1.Path =File1 .Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path --------------------------------------------------------------------------------------

　5、选中单选按钮控件时，Value 属性的值为（ A ）。

　A、真 B、假 C、0 D、1 --------------------------------------------------------------------------------------

　6、控件在窗体上的上下位置由下列（A

　）属性决定。

　A、Top B、Left C、Width D、Height --------------------------------------------------------------------------------------

　7、在任何情况下，（ D ）控件在运行时都不可见。

　A、标签 B、按钮 C、复选框 D、定时器 --------------------------------------------------------------------------------------

　8、在参数传递过程中，使用关键字（A

　）来修饰参数，可以使之按值传递。

　A、ByVal B、ByRef C、Value D、Reference --------------------------------------------------------------------------------------

　9、表达式 Len(“123 程序设计 ABC”)的值为（ A ）。

　A、10 B、14 C、20 D、17 --------------------------------------------------------------------------------------

　10、下面（ A ）是合法的变量名。

　A、X_YZ B、123ABC C、integer D、X-Y --------------------------------------------------------------------------------------

　11、窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界（B

　）。

　A、下界必须为 1 B、缺省的下界为 1 C、下界必须为 0 D、缺省的下界为 0 --------------------------------------------------------------------------------------

　12、滚动条的（ B ）属性用于指定用户单击滚动条的滚动箭头时，Value 属性值的增减量。

　A、LargeChange B、SmallChange C、Value D、Change --------------------------------------------------------------------------------------

　13、在下面程序运行时键入 2，则该程序的运行结果是（C

　）。

　Private sub command1_click() X=inputbox(“请输入一个整数”) Select case x

　 Case Is<-3

　Print (x+1)/(x+3)

　 Case –3 To 3

　Print x*x+1

　 Case Is>3

　Print (x+1)/(x-3) End select End sub

　A、2 B、0.6 C、5

　D、-3 --------------------------------------------------------------------------------------

　14、下列（ B ）对象具有编辑功能，即运行时可以进行输入或修改。

　A、下拉式列表框 B、下拉式组合框 C、复选框 D、标签 --------------------------------------------------------------------------------------

　15、在窗体上画一个命令按钮，然后编写如下事件过程：

　Private Sub Command1_Click()

　 Dim Str1 As String, Str2 As String

　 Str1=InputBox("请输入一个字符串"）

　 For i=1 To Len(Str1)

　Str2=UCase(Mid(Str1,i,1))+Str2

　 Next i

　 Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"

　 B A、abcdefg B、ABCDEFG C、gfedcba D、GFEDCBA --------------------------------------------------------------------------------------

　16、以下说法中不正确的是（C

　 ）。

　A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑 --------------------------------------------------------------------------------------

　17、下面语句正确的是（ C ）。

　A、If x ≠ y Then Print “x 不等于 y” B、.If x <> y Print “x 不等于 y” C、If x <> y Then Print “x 不等于 y” D、If x ≠ y Print “x 不等于 y” --------------------------------------------------------------------------------------

　18、已知 A$=”12345678” 则表达式 Val(Left$(A$,4)+Mid(A$,4,2))的值为（ B ）。

　A、123456 B、123445

　C、8 D、6 --------------------------------------------------------------------------------------

　19、要为按钮设计一个访问键 A，应该在 Caption 中加入（ A ）。

　A、&A B、@A C、$A D、#A --------------------------------------------------------------------------------------

　20、若要处理一个值为 50000 的整数，应采用哪种 VB 基本数据类型描述更合适？（B

　）

　A、Integer B、Long C、Single D、String ------------------------------------------------------------------------------------------------------------------------------------------------------------------------

　 把 在属性列表框里，把 sorted 改为 ture Private Sub List1_Click()

　 List1.AddItem List1.Text End Sub

　Dim t As Integer Private Sub Command1_Click()

　 Timer1.Enabled = True

　 Command1.Enabled = False

　 Frame1.Enabled = False

　 If Option1.Value = False Then

　 If Option2.Value = False Then

　 MsgBox " 请选择一个"

　 Else

　 Command1.Enabled = True

　 End If

　Else

　 Command1.Enabled = True

　 End If End Sub

　Private Sub Form_Load()

　 Timer1.Enabled = False

　End Sub

　Private Sub Option1_Click()

　 t = 10 End Sub

　Private Sub Option2_Click()

　 t = 30 End Sub

　Private Sub Timer1_Timer()

　 t = t - 1

　 If t >= 0 Then

　 Beep

　 Label1.Caption = t

　Else

　 Label1.Caption = " 时间到"

　 Frame1.Enabled = True

　 Timer1.Enabled = False

　 End If End Sub

　Private Sub Form_Load()

　 HScroll1.Min = 10

　 HScroll1.Max = 72

　 Text1.Text = HScroll1.Value End Sub

　 Private Sub HScroll1_Change()

　 Label1.FontSize = HScroll1.Value

　 Text1.Text = HScroll1.Value End Sub

　Private Sub HScroll1_Scroll()

　 HScroll1_Change End Sub

　Private Sub Text1_KeyPress(KeyAscii As Integer)

　 If KeyAscii = 13 Then

　 If Val(Text1.Text) > 10 And Val(Text1.Text) < 72 Then

　 Label1.FontSize = Text1.Text

　 Else

　 MsgBox " 请选择 10 到 到 72 的数字"

　 End If

　 End If End Sub

　 把 属性列表框中，先把 multiline 设为 true Private Sub Command1_Click()

　 Text1.Enabled = True

　 Text1.SetFocus End Sub

　Private Sub Command2_Click()

　 CommonDialog1.DefaultExt = "txt"

　 CommonDialog1.ShowSave

　 Open CommonDialog1.FileName For Output As #1

　Write #1, Text1.Text

　 Close #1 End Sub

　Private Sub Command3_Click()

　 End End Sub

　Private Sub Form_Load()

　 Text1.Enabled = False End Sub

　 Private Sub Command1_Click()

　 Label1.FontName = " 宋体" End Sub

　 Private Sub Command2_Click()

　 Label1.FontName = "黑 黑体 体" End Sub

　自己在相应的文件夹下放一张相应名字的图片 Autosize 改为 false Private Sub Command1_Click()

　 Pic1.Picture = LoadPicture("d:\ 我\xph.jpg") End Sub

　Private Sub Command2_Click()

　 Pic1.Picture = ("")

　End Sub

　老师做过我就不写了

　Private Sub Command1_Click() Dim a(10) As Integer, max As Integer, p As Integer Dim i As Integer Randomize For i = 1 To 10

　 a(i) = Int(Rnd * (100 - 1 + 1)) + 1

　 Form1.Print a(i) Next i p = 1 max = a(1) For i = 2 To 10

　 If a(i) > max Then

　 max = a(i)

　 p = i

　 End If Next i Form1.Print " 最大值：" & max & " 是第" & p & " 个" End Sub

　Private Sub color_Click()

　 CommonDialog1.ShowColor

　 Text1.ForeColor = CommonDialog1.color End Sub

　Private Sub end_Click()

　 End End Sub

　Private Sub font_Click()

　CommonDialog1.Flags = 257

　 CommonDialog1.ShowFont

　 Text1.FontName = CommonDialog1.FontName

　 Text1.FontSize = CommonDialog1.FontSize

　 Text1.FontBold = CommonDialog1.FontBold

　 Text1.FontItalic = CommonDialog1.FontItalic End Sub

　Private Sub save_Click()

　 CommonDialog1.DefaultExt = "txt"

　 CommonDialog1.ShowSave

　 Open CommonDialog1.FileName For Output As #1

　 Write #1, Text1.Text

　 Close #1 End Sub