visual basic中怎么写以上sql语句

在Visual Basic中，你可以使用ADO.NET库来动态生成SQL查询。以下是使用VB.NET编写包含类似上述SQL语句的一个示例：

Imports System.Data.SqlClient

Dim connectionString As String = "your_connection_string_here"
Dim sql As String = "SELECT * FROM your_table_name WHERE " & _
                      "(作者 = @author AND Status IN (@statusList)) AND Validity = @validity"

Using connection As New SqlConnection(connectionString)
    Dim command As New SqlCommand(sql, connection)
    command.Parameters.AddWithValue("@author", "张泽强")
    Dim statusList() As String = {"仅提交", "审核中", "被退回"}
    Dim statusParam As SqlParameter
    For Each s In statusList
        statusParam = New SqlParameter("@status" & statusList.Count + 1, SqlDbType.VarChar)
        statusParam.Value = s
        command.Parameters.Add(statusParam)
    Next
    statusParam = New SqlParameter("@validity", SqlDbType.VarChar)
    statusParam.Value = "YES"
    command.Parameters.Add(statusParam)

    connection.Open()
    ' 这里可以执行command的ExecuteReader等方法来获取结果
End Using

请注意，你需要替换成实际的数据库连接字符串(`connectionString`)和表名(`your_table_name`)。