1、VB.NET程序設(shè)計課程模擬題(A卷 答案)一、選擇題1.下列敘述中正確的是_。A.數(shù)組是用戶自定義的數(shù)據(jù)類型 B.數(shù)組元素在內(nèi)存中的存放形式是連續(xù)的C.數(shù)組在使用時可以采用隱式聲明 D.數(shù)組的下界可以任意答案 B2.復選框的CheckState屬性為_時，表示復選框內(nèi)有灰色的勾即不可選。 A.Unchecked B.IndeterminateC.Checked D.None答案 B3.刪除列表框中第2項的項目，所使用的方法為_ 。 A.Items.RemoveAt B.MoveC.Items.Clear D.Items.Remove答案 A4.要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說

2、明合法的是 _。A.Sub f1(ByVal n%,ByVal m%)B.Sub f1( ByRef n%,ByVal m%)C.Sub f1( ByRef n%, ByRef m%)D.Sub f1(ByVal n%, ByRef m%)答案 C5.下列各賦值語句，語法不正確的是（ ） A.iNumber = 15 B.sLength = x + yC.x+y = 5 D.Label1.Text = TimeOfDay答案 C6.在用通用對話框控件建立打開文件對話框時，在文件列表框只允許顯示文本文件類型的文件，則Filter屬性的正確設(shè)置是_。 A.Text(.txt)|*.txt B.Te

3、xt(.txt)(*.txt)C.文本文件|(.txt) D.Text(.txt)|*.txt答案 D7.以下程序輸出的結(jié)果是_ 。Dim a() As Integer=1, 2, 3, 4, 5, 6, 7For i =0 To Ubound (a) a(i) = a(i) * a(i)Next iMsgBox(a(i)A.49 B.0C.不確定 D.程序出錯答案 D8.下列_方式聲明的變量在每次調(diào)用該過程時其值不能保留。 A.在過程體中用Dim語句聲明的變量 B.在標準模塊中聲明的變量C.在過程外聲明的變量 D.在過程體中用Static語句聲明的變量答案 A9.在下列關(guān)于定時器的說法中，正

4、確的是( )。A.當Enabled屬性為False時，不產(chǎn)生Tick事件B.在程序運行時不可見的，這是因為Visible屬性為FalseC.當Interval屬性為0，則Tick事件不會發(fā)生D.通過適當?shù)脑O(shè)置可以將Interval屬性的單位改為秒答案 A10.下面是用戶界面控件的是（ ）A.GroupBox控件 B.Timer控件C.OpenFileDialog控件 D.MenuStrip控件答案 A二、程序填充1. 程序的功能是讀取a.txt文件，統(tǒng)計以,逗號間隔的每個字符串中漢字的個數(shù)，并以下右圖的形式顯示在Label1中。 Private Sub Button1_Click(.) Han

5、dles Button1.Click Dim str$, k%, i% Label1.Text = _(1)_(1, c:a.txt,OpenMode.Input ) Do While Not EOF(1) Input(1, str) _(2)_ For i = 1 To Len(Str) If Asc(Mid(str, i, 1) 0 Then k = k + 1 Next Label1.Text &= str & _(3)_ 以如圖所示的形式顯示 Loop End Sub答案 （1）FileOpen （2）k = 0 （3）, & k & vbCrLf 2.下列程序隨機產(chǎn)生n個互不重復的三

6、位數(shù)，存放在數(shù)組a中。子過程s( )的功能是統(tǒng)計數(shù)組x中百位數(shù)與個位數(shù)相同的個數(shù)。單擊按鈕從鍵盤輸入要隨機產(chǎn)生的互不重復的三位數(shù)的個數(shù)，數(shù)據(jù)以每行5個的形式輸出，同時調(diào)用子過程s( )，將統(tǒng)計的結(jié)果輸出。 Private Sub Button1_Click(.) Handles Button1.Click Dim a%(), c%, k%, n%, j%, i%, count% Dim Flag As Boolean k = Val(InputBox(輸入產(chǎn)生數(shù)的個數(shù):) _(1)_ a(k-1) a(0) = Int(Rnd() * 900 + 100) n = 1 Do While n m

7、axlen Then maxlen = Len(ListBox1.Items(i) maxstr = ListBox1.Items(i) End If Next For i = 0 To ListBox1.Items.Count - 1 If Len(ListBox1.Items(i) = maxlen Then ListBox1.Items(i) = ListBox1.Items(i) & End If Next Label1.Text = 最長字符串為: & maxstr & vbCrLf Label1.Text &= 字符數(shù)為： & maxlen End Sub Private Sub

8、字體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字體ToolStripMenuItem.Click FontDialog1.ShowDialog() ListBox1.Font = FontDialog1.Font ListBox1.ForeColor = FontDialog1.Color End Sub Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal

9、e As System.EventArgs) Handles 保存ToolStripMenuItem.Click Dim i% FileOpen(1, C:a.txt, OpenMode.Output) For i = 0 To ListBox1.Items.Count - 1 PrintLine(1, ListBox1.Items.Item(i) Next MsgBox(文件成功保存) FileClose(1) End Sub Private Sub 結(jié)束ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As Sys

10、tem.EventArgs) Handles 結(jié)束ToolStripMenuItem.Click End End Sub Private Sub 菜單2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 菜單2ToolStripMenuItem.Click Form2.ShowDialog() End SubEnd ClassPublic Class Form2 Const PI = 3.1415926 Private Sub Button1_Click(ByVa

11、l sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub ComboBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ComboBox1.KeyPress If Asc(e.KeyChar) = 13 Then If Not IsNumeric(ComboBox1.Text) Then MsgBox(輸入錯誤！) ComboBox1.Text = Else Dim f As Boolean, x%, i% x = ComboBox1.Text