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

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 52 的值为（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、选中控件，按键 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 52 的值为（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 52 的值为（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

很受用的一篇范文，谢谢分享！

实习单位综合意见

公司个人调查操作规则

银行加钞个人工作总结

党支部对预备党员综合考察意见2020

个人综合评价